Piloter Word à partir d'Excel

[zakou76]

Bonjour à tous.
Je rencontre un problème récurent pour coller des données Excel vers un document Word. En effet j'ai trouvé des réponses en recherchant sur le forum mais c'est pas suffisant.
Mon problème est que j'ai un classeur "Tableau.xls', après traitement de données, j'affiche les résultats dans les colonnes F-G et H de lignes variables.
Je voudrais copier les données de ces 3 colonnes dans le tableau N°6 du document Word : "FichWord.doc"

Voici mon code:

Sub exportValeursExcelVersTableWord()

Dim wordApp As Word.Application
Dim wordDoc As Word.Document

Set wordApp = CreateObject("word.application")
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Open("E:\FichWord.doc")

For i = 1 To 3

wordDoc.Tables(6).Columns(2).Cells(i + 1).Range.Text = Range("F" & i)
wordDoc.Tables(6).Columns(3).Cells(i + 1).Range = Range("G" & i)
wordDoc.Tables(6).Columns(4).Cells(i + 1).Range.Text = Range("H" & i)

'wordDoc.Close True
'wordApp.Quit

Next i
End Sub

NB: Je ne reporte dans mon document Word que les cellules non vides.

Merci pour votre aide.

 

[sigismond]

Re : Piloter Word à partir d'Excel

Bonjour à tous et à toi zakou

Le contenu du zip est à installer dans un dossier c:/Tmp

Ouvrir le fichier tableau.xls et lancer la macro Excel_to_Word

Avec ça tu as une base qui tourne, tu pourras l'adapter à tes besoins.

Sigismond