Bonjour à tous,
J'ai un petit souci sur le fonctionnement d'une macro qui me servira à exporter des données de Excel vers Word via les signets Word.
Le but de la macro est fort simple :
Je rempli une ligne sous excel et les données de chaque cellule alimentent un modèle de document sous Word.
Ce document est ensuite enregistré avec le nom de la cellule A1 dans un nouveau document Word.
Voici donc la macro que j'ai :
J'ai donc une erreur à partir de la ligne " WordDoc.Bookmarks("Nom1").Range.Text = Cells(A, 2)" que je n'arrive pas à résoudre.
De plus mon document Word ne s'ouvre pas automatiquement, j'ai une fenêtre qui s'affiche en me disant que mon document word est verrouillé pour modification.
Pouvez-vous donc m'aider résoudre ce problème ?
Je joint les deux fichiers test. Je pense que le code VBA est correct mais qu'il y a un souci sur les signets Word.
Merci d'avance
J'ai un petit souci sur le fonctionnement d'une macro qui me servira à exporter des données de Excel vers Word via les signets Word.
Le but de la macro est fort simple :
Je rempli une ligne sous excel et les données de chaque cellule alimentent un modèle de document sous Word.
Ce document est ensuite enregistré avec le nom de la cellule A1 dans un nouveau document Word.
Voici donc la macro que j'ai :
VB:
Sub Export_Word()
Dim Doc_origine As String, Doc_save As String
Dim WordApp As Object
Dim WordDoc As Object
Doc_origine = ActiveWorkbook.Path & "\test.docx"
Doc_save = ActiveWorkbook.Path & "\Document" & Sheets("Feuil1").Range("A1").Text & ".docx"
Set WordApp = CreateObject("word.application")
Set WordDoc = WordApp.Documents.Open(Doc_origine, ReadOnly:=False)
WordApp.Visible = False
WordDoc.Bookmarks("Nom1").Range.Text = Cells(A, 2)
WordDoc.Bookmarks("Nom2").Range.Text = Cells(A, 3)
WordApp.Visible = True
WordDoc.Application.ActiveDocument.SaveAs Doc_save
'WordApp.Application.Quit
'WordDoc.PrintOut
'WordDoc.Close True
End Sub
J'ai donc une erreur à partir de la ligne " WordDoc.Bookmarks("Nom1").Range.Text = Cells(A, 2)" que je n'arrive pas à résoudre.
De plus mon document Word ne s'ouvre pas automatiquement, j'ai une fenêtre qui s'affiche en me disant que mon document word est verrouillé pour modification.
Pouvez-vous donc m'aider résoudre ce problème ?
Je joint les deux fichiers test. Je pense que le code VBA est correct mais qu'il y a un souci sur les signets Word.
Merci d'avance
Pièces jointes
Dernière édition: