Export données excel vers Word

[Paulo]

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

 

[Guest]

Re : Export données excel vers Word

Bonjour,

Cells(2,1) ou cells(2,"A") ou range("A2")

A+

 

[Paulo]

Re : Export données excel vers Word

Ah oui ça fonctionnera nettement mieux comme ça, merci beaucoup...

 

[Guest]

Re : Export données excel vers Word

Re,

Avec automation il toujours utile de référencer par variable les objets sources et destination.
Dans ton code il manque une référence à la feuille de calcul d'ou proviennent les données.
Ex:

Dim sh As workSheet
Set Sh= thisWorkBook.Sheets("Feuil1")

WordApp...blablal .Range.Text = Sh.Cells(2,1)

Set Sh = nothing
A+

 

[Paulo]

Re : Export données excel vers Word

Merci je vais rajouter ça.

EDIT : J'ai plutôt mis avec le codename, vu que ce fichier ne m'est pas destiné ça permettra qu'il n'y ai pas de bug.

Encore merci ^^

 

[Arnaud91]

Re : Export données excel vers Word

Bonjour,
Je cherche à faire sensiblement la même chose(je suis novice en vba).
Auriez vous les deux fichiers de test "fonctionnels" ?

Merci.

 

[Paulo]

Re : Export données excel vers Word

Bonjour,

J'ai refais vite fais un exemple en pièce jointe.

Créer un dossier nommé "Document" au même endroit que les deux fichiers word et excel

 

[Arnaud91]

Re : Export données excel vers Word

Super, merci beaucoup... Je vais regarder ça ;-)