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
Partager