E
EDfun
Guest
🙂😉Bonjour Vous tous,
Votre aide serait plus que bienvenue.
J'ai un problème à résoudre qui je pense sera moins complexe pour des passionnés comme vous :
Ci-joint une matrice qui copie une plage de cellule d'une feuill x dans une feuille Word défini.
Mais voila, il y a 2 points que je n'arrive pas à résoudre. A savoir que j'ai 266 feuille qui ont chaqu'une les plages identiques pour y écrire un texte.
1) comment modifier cette matrice pour que la 2ème copie n'écrasent pas la 1ere. Et qui permettrait de copier plusieurs textes de différentes feuilles sur une même page word les une aprés les autre.
2) comment modifier le code de manière a ce que la copie se face depuis la feuille ouverte et non pas de la feuille x.Car sinon il faudrait faire une macro pour chaque feuille(266)
Dim docWord As Word.Document
Dim appWord As Word.Application
Set appWord = New Word.Application
Application.DisplayAlerts = True
appWord.ShowMe
appWord.Visible = False
'Ouvre le document Word
Set docWord = appWord.Documents.Open("c:\Documents and Settings\toto\Bureau\Memos.doc", ReadOnly:=False)
' Copie les données Excel de la feuille1. (Feuille activ serait mieux)😀
ThisWorkbook.Worksheets("Feuil1😕").Range("C31:I36").Copy
' Colle les données dans Word, (Mais écrase le précédant)😱
docWord.Range.PasteSpecial😡
Application.CutCopyMode = False
docWord.Application.ActiveDocument.Save
appWord.Application.Quit
Je remercie par avance la bonne âme
En effet, je n'arrive pas à le faire sans que les textes s'écrasent les uns les autres plutôt que de se succéder.
Votre aide serait plus que bienvenue.
J'ai un problème à résoudre qui je pense sera moins complexe pour des passionnés comme vous :
Ci-joint une matrice qui copie une plage de cellule d'une feuill x dans une feuille Word défini.
Mais voila, il y a 2 points que je n'arrive pas à résoudre. A savoir que j'ai 266 feuille qui ont chaqu'une les plages identiques pour y écrire un texte.
1) comment modifier cette matrice pour que la 2ème copie n'écrasent pas la 1ere. Et qui permettrait de copier plusieurs textes de différentes feuilles sur une même page word les une aprés les autre.
2) comment modifier le code de manière a ce que la copie se face depuis la feuille ouverte et non pas de la feuille x.Car sinon il faudrait faire une macro pour chaque feuille(266)
Dim docWord As Word.Document
Dim appWord As Word.Application
Set appWord = New Word.Application
Application.DisplayAlerts = True
appWord.ShowMe
appWord.Visible = False
'Ouvre le document Word
Set docWord = appWord.Documents.Open("c:\Documents and Settings\toto\Bureau\Memos.doc", ReadOnly:=False)
' Copie les données Excel de la feuille1. (Feuille activ serait mieux)😀
ThisWorkbook.Worksheets("Feuil1😕").Range("C31:I36").Copy
' Colle les données dans Word, (Mais écrase le précédant)😱
docWord.Range.PasteSpecial😡
Application.CutCopyMode = False
docWord.Application.ActiveDocument.Save
appWord.Application.Quit
Je remercie par avance la bonne âme
En effet, je n'arrive pas à le faire sans que les textes s'écrasent les uns les autres plutôt que de se succéder.
