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-22T17:43:48+00:00

Non, ya un schmilblick

Les chiffres avec trois décimales au copiage sur IE se retrouvent toujours après ta nouvelle macro avec séparateur de milliers (cad un espace) au lieu de la virgule.

32,551 à l'origine sur l'affichage de IE devient 32 551,rien après ta nouvelle macro.

Je précise si je ne l'ai pas déjà fait que l'écran de mon programme sur IE que je copie par sélection avec ma souris en tirant, puis bouton droit sur la selection (alors sur fond bleu) et copier affiche la virgule pour les décimales, contrairement à d'autres programmes boursiers qui affichent le point.

Les touches CTRL+V elles donnent toujours un bon collage, sans décimale non significative, mais qu'on peut rajouter vite fait avec la commande "format"

Vous avez dit bizarre, comme c'est bizarre !

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

0 commentaires Aucun commentaire
Anonyme

2011-01-22T16:14:40+00:00

Essaie cette macro :

Lorsque ton information est dans le presse-papier,

tu sélectionnes la première cellule à partir de laquelle

la copie se fera et tu appelles la procédure. Tu peux

même lui attribuer un raccourci clavier en utilisant

la fenêtre de la liste des macros (alt + F8) / options...

Cette forme est plus générale et devrait te permettre

d'effectuer la copie dans la destination de ton choix!

Si cela fonctionne, c'est beaucoup plus fiable que la

commande Sendkeys

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

Sub test()

Dim N As String

With ActiveCell

N = .Parent.Name

Worksheets(N).Paste

Selection.NumberFormat = "# ##0.###"

Selection.Replace ",", "."

End With

End Sub

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

MichD

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

Bonjour Denis

Je voudrait étendre cette fonction (ta fonction) de collage à d'autres de mes fichiers, mais voilà, l'organisation n'étant pas la même, celà ne fonctionne plus.

On m'a parlé de "SendKey" qui reproduirait exactement l'action CTRL+V.

Dans l'aide, cette fonction m'apparait trés pointue, contenant des accolades, des parenthèses, des virgules etc. Et l'exemple n'est hélas pas CTRL+V .

J'essaie et essaie mais pour l'instant, je ne reussi qu'à coller le presse-papier ... dans le texte de la macro elle même, et non pas sur la feuille excel en cours. Pourtant, d'après l'aide, ce devrais être simplement

SendKeys "^(V)",True

Help

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

0 commentaires Aucun commentaire
Anonyme

2011-01-22T15:43:00+00:00

Bonjour Denis

Je voudrait étendre cette fonction (ta fonction) de collage à d'autres de mes fichiers, mais voilà, l'organisation n'étant pas la même, celà ne fonctionne plus.

On m'a parlé de "SendKey" qui reproduirait exactement l'action CTRL+V.

Dans l'aide, cette fonction m'apparait trés pointue, contenant des accolades, des parenthèses, des virgules etc. Et l'exemple n'est hélas pas CTRL+V .

J'essaie et essaie mais pour l'instant, je ne reussi qu'à coller le presse-papier ... dans le texte de la macro elle même, et non pas sur la feuille excel en cours. Pourtant, d'après l'aide, ce devrais être simplement

SendKeys "^(V)",True

Help

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

0 commentaires Aucun commentaire