Bonsoir,
Dans le cadre d'un projet de suivi de travaux, je souhaite transférer des données EXCEL vers word.
Le document word étant existant, la macro devra l'ouvrir et copier dessus.
Avec l'aide des forumeurs et en cherchant un peu je sui arrivé à la macro ci-dessous, mais celle-ci ne fonctionne pas car elle ne copie pas les données dans le document word à l'emplacement du fichier.
J'ai l'impression qu'il me manque une ligne pour sélectionner la feuille word.
Si une personne veut bien me venir en aide?
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim i As Byte
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWord = appWrd.Documents. _
Open("C:\Documents and Settings\My Documents\AAA.docx", ReadOnly:=True)
For i = 1 To 1
WordDoc.Bookmarks("AAA" & i).Range.Text = Cells(i, 1)
Next i
'Ajuste le tableau copié à la largeur de la page
MonDocWord.Tables(1).AutoFitBehavior wdAutoFitWindow
'Désactive le mode Copier/Coller
Application.CutCopyMode = False
'Réactivation de la mise à jour de l'écran
Application.ScreenUpdating = True
End Sub
Dans le cadre d'un projet de suivi de travaux, je souhaite transférer des données EXCEL vers word.
Le document word étant existant, la macro devra l'ouvrir et copier dessus.
Avec l'aide des forumeurs et en cherchant un peu je sui arrivé à la macro ci-dessous, mais celle-ci ne fonctionne pas car elle ne copie pas les données dans le document word à l'emplacement du fichier.
J'ai l'impression qu'il me manque une ligne pour sélectionner la feuille word.
Si une personne veut bien me venir en aide?
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim i As Byte
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWord = appWrd.Documents. _
Open("C:\Documents and Settings\My Documents\AAA.docx", ReadOnly:=True)
For i = 1 To 1
WordDoc.Bookmarks("AAA" & i).Range.Text = Cells(i, 1)
Next i
'Ajuste le tableau copié à la largeur de la page
MonDocWord.Tables(1).AutoFitBehavior wdAutoFitWindow
'Désactive le mode Copier/Coller
Application.CutCopyMode = False
'Réactivation de la mise à jour de l'écran
Application.ScreenUpdating = True
End Sub