bibiphoqie
XLDnaute Nouveau
Bonjour,
Je voudrais exporter des cellules d'une feuille excel vers des cellules de différents objets "Feuille de calcul Microsoft Excel" qui se trouvent dans mon fichier word.
J'ai trouvé cela pour exporter des cellules d'une feuille Excel vers des cellules d'un tableau Word:
Quelqu'un saurait-il adapter cette macro à mon cas??
Merci de votre aide.
Je voudrais exporter des cellules d'une feuille excel vers des cellules de différents objets "Feuille de calcul Microsoft Excel" qui se trouvent dans mon fichier word.
J'ai trouvé cela pour exporter des cellules d'une feuille Excel vers des cellules d'un tableau Word:
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application")
WordApp.Visible = True 'mettre False pour garder Word masqué
Set WordDoc = WordApp.Documents.Open("monDocument.doc") 'ouvre le document Word
'Tables(2) correspond au 2eme tableu du document Word
'transfert la donnée de la cellule A1 dans la 3eme cellule de la 1ere colonne
WordDoc.Tables(2).Columns(1).Cells(3).Range.Text = Range("A1")
'transfert la donnée de la cellule A2 dans la 2eme cellule de la 3eme colonne
WordDoc.Tables(2).Columns(3).Cells(2).Range.Text = Range("A2")
'WordDoc.Close True 'ferme le document Word en enregistrant les modifications
'WordApp.Quit 'ferme l'application Word
Quelqu'un saurait-il adapter cette macro à mon cas??
Merci de votre aide.