Macro pour automatiser une tâche Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
v
vs86963
Jeune membre
Jeune membre
Messages : 38
Inscrit le : 31 janvier 2018
Version d'Excel : 2013 FR

Message par vs86963 » 8 mars 2018, 11:27

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 :bof:
liste.xlsx
(22.01 Kio) Téléchargé 9 fois
Avatar du membre
et1000lio
Membre dévoué
Membre dévoué
Messages : 634
Appréciations reçues : 8
Inscrit le : 7 mars 2013
Version d'Excel : 365
Contact :

Message par et1000lio » 8 mars 2018, 12:58

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

Avatar du membre
et1000lio
Membre dévoué
Membre dévoué
Messages : 634
Appréciations reçues : 8
Inscrit le : 7 mars 2013
Version d'Excel : 365
Contact :

Message par et1000lio » 8 mars 2018, 13:03

Ha j'ai oublié ton fichier corrigé dans ce sens
Copie de liste.xlsm
(27.81 Kio) Téléchargé 10 fois
Avatar du membre
et1000lio
Membre dévoué
Membre dévoué
Messages : 634
Appréciations reçues : 8
Inscrit le : 7 mars 2013
Version d'Excel : 365
Contact :

Message par et1000lio » 8 mars 2018, 13:15

Copie de liste.xlsm
(23.2 Kio) Téléchargé 7 fois
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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message