Export données Excel vers Word
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 :
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
Cells(A, 2)
A = 0
la ligne 0 n'existe pas..
Erreur...
Cells(1,2) correspond à B2
Range("A2") Correspond à A2
Pour ton problème, fais un application.displayalerts=False
Effectivement ça fonctionne nettement mieux comme ça, quel âne je suis
Et l'erreur comme quoi mon document est verrouillé c'est parce que j'avais une tâche Word encore active en arrière plan, donc je l'ai fermée et ça fonctionne au poil...
Merci beaucoup pour cette réponse rapide...