Tableau dans Word + Fichier Excel

[dado91400]

salut ,

comment traduire en VBA :

Mettre case "A2" de mon excel dans tableau1, ligne 1, colonne 1 de monfichier word?

je souhaite faire autrement que ci-dessous.
A la place de mes signets, je souhaite avoir des tableaux.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Sub envoyerTableauxExcelVersWord_V02()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("G:\Data\Gestion_Commerciale\PRET DE MATERIEL\MODELE CONTRAT_dav.doc")    'ouvre le document Word
    WordApp.Visible = True    'Word n'est pas masqué pendant l'opération
 
    For i = 1 To 8
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3...
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(2, i)
    Next i
 
        WordDoc.Bookmarks("Signet" & 10).Range.Text = Cells(2, 10)
 
 
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word
 
End Sub

merciA+

[Heureux-oli]

Code :

1
2
3
4
5
Dim maTbl As Table
 
Set maTbl = ActiveDocument.Tables(1)
 
maTbl.Cell(2, 2).Select

Ce code te permet d'atteindre une cellule précise de ta table, ici la cellule (2,2)

Pas besoin de signets.