Bonjour,
Pour un projet d'école d'ingénieur j'ai besoin de copier les valeurs d'un tableau d'excel dans un tableau ayant la même dimension mais sur un document word existant (il y a déjà du texte sur ce fichier word).
J'ai donc commencer à faire un script VBA mais je n'arrive pas à faire ce que je veux (après de multiples recherche...). J'arrive juste à modifier une seule cellule avec ce code :
Je pense qu'une boucle pourrait résoudre mon problème mais je n'y arrive pas...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub essai5() Dim wordApp As Word.Application Dim wordDoc As Word.Document Set wordApp = CreateObject("word.application") wordApp.Visible = True Set wordDoc = wordApp.Documents.Open(ActiveWorkbook.Path & "\essai2.docx") wordDoc.Tables(1).Columns(1).Cells(1).Range.Text = Range("B1") End Sub
Une bonne âme pourrait-elle m'aider ?![]()
Partager