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

1'103test-excel.xlsm (18.88 Ko)
947test.docx (17.36 Ko)

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...

Rechercher des sujets similaires à "export donnees word"