Voilà mon problème. Je tente d'exporter certains de mes tableaux Excel vers Word. Pour exporter un tableau Excel vers une nouvelle feuille Word je n'ai aucun problème. Par contre, si je veux exporter plusieurs tableaux Excel vers un document word existant, tout en ajustant automatiquement le tableau à l'écran et en laissant un espace entre chaque tableau, je ne suis pas capable. Voici ce que j'ai construit jusqu'à présent



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
For i = 1 To 3
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordDoc = GetObject("test.docx")
 
    Worksheets("Syntaxe 10").Range("C1:R5").Copy
 
    WordApp.Selection.Paste
    WordDoc.Tables(1).AutoFitBehavior wdAutoFitWindow
 
    Application.CutCopyMode = False
 
 
Next i