ActiveSheet.paste

Anonyme
2011-01-09T16:39:40+00:00

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

Microsoft 365 et Office | Excel | Pour la maison | Windows

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
2011-01-23T17:53:06+00:00

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

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

0 commentaires
Réponse acceptée par l’auteur de la question
Anonyme
2011-01-18T14:48:53+00:00

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

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

0 commentaires

25 réponses supplémentaires

Trier par : Les plus anciens
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2011-01-24T22:20:11+00:00

    Tu peux suivre sur ce groupe comme ceci :

    Un copier-coller d'un message que Misange émettait tout récemment sur ce forum

    ===================================================

    Hello

    Pour ceux qui préfèrent suivre ce forum via leur lecteur de news (windows mail, outlook express, thunderbird, mesnews), il y a deux possibilités. Soit via le NNTP bridge de microsoft, soit via le "community NNTP-bridge" développé par un MVP, Jochen Kalmbach qui permet de se logguer automatiquement et de n'avoir qu'un seul port pour tous les forums de microsoft.

    Il y avait quelques bizarreries avec ce pont, notamment avec les caractères accentués dans le titre et des titres qui apparaissaient tronqués. Ces deux points ont été corrigés dans la dernière mouture sortie aujourd'hui.

    Je vous invite donc si vous l'utilisez à le mettre à jour.

    Pour le télécharger c'est ici

    http://communitybridge.codeplex.com/releases/view/59647

    et pour paramétrer tout comme il faut c'est là

    http://www.excelabo.net/web/community-bridge

    ===================================================

    MichD

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

    Merci pour toutes ces explications que je vais conserver au cas ou.

    Mon problème était le cas précis que je t'avais exposé. Non pas quelque chose d'universel. Je pensais être clair. Seulement tu n'avais pas accès à ces données que je copiais (mon pressepapier). C'est pourquoi je me demande sur quelles bases tu me répondais. Mais pour moi le problème est résolu.

    A une prochaine fois sur ce nouveau forum ou je suis un peu perturbé, je préférais l'ancien !

    Cordialement

    Milloche

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

    0 commentaires