Macro pour automatiser une tâche

Bonjour,

J'ai un fichier excel.Je Copie des cellules, je les colle dans une zone de texte, j'ouvre un document word et je colle cette zone de texte excel dedans.

Y a t-il un moyen d'automatiser tout ceci?

Merci

15liste.xlsx (22.01 Ko)

Bonjour vs86963

Fait un peu à l'arrache mais cela fonctionne

Option Explicit

'activer la reference Microsoft Forms 2.0 Object Library
Sub copier_ds_pressepapier()
Dim S
Dim TXT_IMG As String
Dim x As New DataObject
For Each S In ActiveSheet.Shapes
TXT_IMG = S.TextFrame.Characters.Text
x.SetText TXT_IMG
x.PutInClipboard
Next S
End Sub

Ha j'ai oublié ton fichier corrigé dans ce sens

18copie-de-liste.xlsm (27.81 Ko)
16copie-de-liste.xlsm (23.20 Ko)

C'est plus propre comme cela en ciblant uniquement la seule zone texte de la feuille active nommée "ZoneTexte 1"

Option Explicit

'activer la reference Microsoft Forms 2.0 Object Library
Sub copier_ds_pressepapier()
Dim TXT_IMG As String
Dim x As New DataObject
TXT_IMG = ActiveSheet.Shapes("ZoneTexte 1").TextFrame.Characters.Text
x.SetText TXT_IMG
x.PutInClipboard

End Sub
Rechercher des sujets similaires à "macro automatiser tache"