Coller sur NotePad

Bonjour,

Je suis à la recherche d’une petite info.

Je crée actuellement un document Excel qui permettrai d’ouvrir le logiciel « NotePad » et d’y coller les données d’une cellule.

Tout simplement en laissant le nouveau document ouvert

Voilà le code que j’ai mais le collage ne fonctionne pas :

Sub CreerNotePad()

Dim Id As Variant

Id = Shell("notepad")

Sheets("CHOISIR").Range("A4").Copy

AppActivate Id
Application.SendKeys "^V"

End Sub

Pensez vous pouvoir m’aider sur le pourquoi du comment ?

Merci à vous,

Bonne soirée,

Loic

bonjour,

essaie ceci (ne fonctionne pas en mode pas à pas)

Sub CreerNotePad()
    Dim Id As Variant
    Sheets("CHOISIR").Range("A4").Copy
    Id = Shell("notepad", vbNormalFocus)
    Application.SendKeys "^V"
End Sub

Bonjour,

Merci pour ta réponse

Je viens de tester, et mon NotePad est toujours vide.

Le collage ne fonctionne pas alors que si je fais "entrée" sur Excel, les données se collent bien...

Une idée?

Merci à toi,

Bonne journée,

Loic

a_loic a écrit :

Bonjour,

Le collage ne fonctionne pas alors que si je fais "entrée" sur Excel, les données se collent bien...

Loic

peux-tu expliquer ce que tu fais exactement ? je ne comprends pas comment appuyer sur "entrée" peut provoquer le collage des données dans notepad.

Re,

Je me suis mal exprimé.

En fait techniquement, NotePad s'ouvre bien mais il reste vide.

Si je retourne sur ma feuille Excel, et que je fais entrée, les données se collent bien sur la feuille Excel.

Je le precisai pour valider le fait que les données sont bien en mémoire

Merci à toi,

Bonne journée,

Loic

re-bonjour,

le code que je t'ai mis fonctionne chez moi. as-tu utilisé ce code ?

Re

Je viens de retester et je tombe toujours sur le même problème.

Sur NotePad, ca me colle une ligne vide.

Alors que sur Excel, c'est ok.

Est ce que ca peut venir que dans la cellule, on trouve un caractère spécial, voir ci dessous un exemple de ce qui peut se trouver dans la cellule :

9100003↔1001↔24010348798↔24078965434

Voilà le code complet que j'ai utilisé pour ce dernier test :

Sub CreerNotePad()

    Dim Id As Variant

Sheets("CHOISIR").Range("A3").Copy
Sheets("CHOISIR").Range("A4").PasteSpecial Paste:=xlPasteValues

Sheets("CHOISIR").Range("E13,E15,E17,E19,E21,E23,E25").Select
Selection.ClearContents

Sheets("CHOISIR").Range("A4").Copy

    Id = Shell("notepad", vbNormalFocus)
    Application.SendKeys "^V"

End Sub

Merci encore pour ton aide,

Bonne journée,

Loïc

re-bonjour,

peux-tu mettre ton fichier ?

est-ce que tu exécutes la macro en mode pas à pas ?

Re

Pour le mode pas à pas, je ne sais jamais comment l'utiliser

Je te joins le document...

Merci encore,

Bonne journée,

Loic

Bonjour,

apparemment cela ne fonctionne pas avec des données en colonne cachée. ce qui est le cas de ta colonne A

Re

Tu es parfait !!!

Merci beaucoup à toi,

Bonne journée,

Loic