Hello,
Petit probleme dans mon projet VBA : Mon but est de copier les donnees des cellules B2 a G101 de la feuille 2 de mon fichier excel dans un tableau deja existant en feuille 2 de mon fichier word a l'aide d'un bouton de commande inserer en feuille 2 du fichier excel.
Le code suivant me permet de copier la cellule B2 de mon fichier excel dans la colonne 2, cellule 2 de mon fichier word
Private Sub CommandButton1_Click()
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("S:\WM Project\Market col test\hkcolor.docx") 'ouvre le document Word
wordDoc.Tables(3).Columns(2).Cells(2).Range.Text = Range("B2")
End Sub
Cependant je ne veux pas ecrire 101 lignes de code pour copier les cellules une par une dans mon fichier word, est-il possible de copier coller directement les colonnes du tableau excel (B2:G101) dans les colonnes 2 a 6 de mon fichier word ?
Si oui que dois-je modifier dans mon code svp ?
Merci de votre aide