Bonjour,

Je voudrais créer un tableau avec 1 ligne et 5 colonnes vers word.

J'arrive bien à créer mon tableau la 1ère fois mais si je reéxécute la macro une deuxième fois il me met Le serveur distant n'existe pas ou n'est pas disponible (erreur 462). C'est du a quoi ?

Et Range:=ActiveDocument.Range(Start:=0, End:=0)
C'est sa correspond à quelles cellules dans word ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub RemplirTableauWordDepuisDonnéesExcel()

    Dim DocWord As Word.Document
    Dim AppWord As Word.Application
    Dim nomWord As String
    
    Set AppWord = New Word.Application
    AppWord.Visible = True
    
    nomWord = "Chemin\fichier.docx"
    
    Set DocWord = AppWord.Documents.Add
    DocWord.SaveAs nomWord
    
    ActiveDocument.Tables.Add Range:=ActiveDocument.Range(Start:=0, End:=0), numrows:=1, numcolumns:=5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
    
    With DocWord.Tables(1)
        .Cell(0, 1).Range.InsertAfter "A"
        .Cell(0, 2).Range.InsertAfter "B"
        .Cell(0, 3).Range.InsertAfter "C"
        .Cell(0, 4).Range.InsertAfter "D"
        .Cell(0, 5).Range.InsertAfter "E"
    End With
    
    DocWord.Application.ActiveDocument.Save
    AppWord.Application.Quit
End Sub