ActiveSheet.paste

Anonyme

Bonjour

Je recupère des données numérique directement en les sélectionant et copiant sur IE8.

Je les recopie sur excel(V2000) en les selectionnant par la souris, puis bouton droit puis copier, retour sur Excel et collage via le bouton coller (ou ctrl+V). Tout va bien.

J'ai essayé d'automatiser cette action en créant une macro car il y a quelques petits règlages à faire en plus. Mais Activesheet.paste me créé des erreurs dans les chiffres. Alors que ctrl+v au clavier fonctionne impec.

Je pensais que ActiveSheet paste correspondait exactement au bouton coller, car c'est ce que me donne l'enregistreur de macros, mais ce n'est pas le cas.

merci d'avance

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

Réponse acceptée par l’auteur de la question

Anonyme

A ) J'aimerais bien savoir ce que tu lui reproches à cette macro.

Si le presse-papier n'est pas vide, tu sélectionnes la cellule où doit

débuter la copie et tu appelles la macro...et ça fonctionne !

B ) Si tu tiens à la commande Sendkeys, voilà comment procéder :

Dans un module standard, tu copies cette procédure. Tu dois lui

donner un raccourci clavier en utilisant la fenêtre de la liste des

macros (alt + F8) / options.

Pour que cela fonctionne, tu dois l'appeler en utilisant le raccourci

clavier que tu lui as associé.

'--------------------------------------

Sub Collage_Special()

ActiveCell.Select

SendKeys "%e" & "v" & "{TAB 4}" & "{ENTER}"

Application.CommandBars.FindControl(ID:=755).Execute

End Sub

'--------------------------------------

Tu peux associer un raccourci clavier automatiquement lorsque

tu ouvres le classeur. Dans le ThisWorkbook, tu copies :

'----------------------------------------

Private Sub Workbook_Open()

Call Raccourci_Collage_Special

End Sub

'----------------------------------------

'Dans un module standard :

'------------------------------------------

Sub Raccourci_Collage_Special()

Application.MacroOptions "Raccourci_Collage_Special", , , , True, "M"

End Sub

'------------------------------------------

Et pour copier, tu utilises les touches "Maj + Ctrl + m"

ça fonctionne avec toutes les versions d'Excel (français)

en anglais, la séquence des lettres dans la commande "Sendkeys"

est différente.

MichD

0 commentaires

Réponse acceptée par l’auteur de la question

Anonyme

Bonjour,

J'ai roulé ce petit test qui consiste à formater les cellules devant

recevoir les données avant que les données soient copiées.

Dans la feuil1, les données source sont en B5:B9

J'applique un format de cellule à la plage réceptrice : B22:B27

et je copie les données en utilisant la méthode "Paste" de la feuil1

et pour finir afin d'afficher le contenu des cellules à droite, j'inclus

cette ligne de code : .Range("B22:B27").Replace ",", "."

Et le résultat est au rendez-vous.

Conclusion : applique le format de cellule à la plage de cellules devant

recevoir les données + la dernière ligne de code...

'------------------------------------

Sub test()

With Feuil1

.Select

.Range("B22:B27").NumberFormat = "# ##0.00#"

.Range("B4:B9").Copy

.Range("B22:B27").Item(1, 1).Select

.Paste

.Range("B22:B27").Replace ",", "."

End With

End Sub

'------------------------------------

MichD

"milloche" a écrit dans le message de groupe de discussion : *** Adresse électronique supprimée pour cause de confidentialité ***...

Une idée bête !

Au lieu de ActiveSheet.Paste, n'y aurait-il pas une commande VBA qui dirait

Application.Run"Le bouton coller d'excel"

Ne rigole pas, on sait jamais !

Milloche

0 commentaires

25 réponses supplémentaires

Anonyme

2011-01-18T13:06:56+00:00

Jai testé ta macro 1 pour Feuil1 (c'est LE problème)

Cela fonctionne sauf pour Air-France qui se retrouve avec une valeur de 14500,00 (en B24) au lieu de 14,50 (en B4). Mais il se retrouve bien à 14,50 avec le bouton coller (en B15)

C'est pareil avec tous les chiffres inscrits avec 3 décimales sur l'écran de IE, car je ne t'en ai mis que quelques uns.

Bogue sur le site ?

HS : j'ai coché "me prevenir en cas de réponse" mais je ne vois ni n'entends jamais rien. Quel type d'alerte est utilisé sur ce site ?

Marquer comme réponse signifie t'il comme je pense "marquer comme résolu"

Milloche
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2011-01-17T18:19:25+00:00

Pour modifier l'affichage de la plage B22:B27 de la feuil1 en nombre

essaie ceci :

'----------------------------------

Sub test()

With Worksheets("Feuil1")

.Range("B22:B27").Replace ",", "."

End With

End Sub

'----------------------------------

Par exemple dans ta Feuil2 pour modifier l'affichage à gauche pour

un affichage à droite tu pourrais faire comme ceci :

'----------------------------------

With Worksheets("Feuil2")

With .Range("B1:J" & .Range("B65536").End(xlUp).Row)

.Replace ",", "."

End With

End With

'----------------------------------

Après, tu peux ajouter un format personnalisé

de cellule à chacune de tes colonnes si tu désires.

MichD

"milloche" a écrit dans le message de groupe de discussion : *** Adresse électronique supprimée pour cause de confidentialité ***...

Bonjour

Longtemp qu'on ne s'était pas causé.

http://www.cijoint.fr/cjlink.php?file=cj201101/cijif5V1aS.xls

Ne te casse pas trop la tête. Si c'est juste un ti truc, ok. Je gagne 5 secondes de manip. Sinon, laisse tomber.

JMM

Milloche
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2011-01-17T16:02:28+00:00

Bonjour

Longtemp qu'on ne s'était pas causé.

http://www.cijoint.fr/cjlink.php?file=cj201101/cijif5V1aS.xls

Ne te casse pas trop la tête. Si c'est juste un ti truc, ok. Je gagne 5 secondes de manip. Sinon, laisse tomber.

JMM

Milloche
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire