Exporter tableaux Excel vers Word

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:

---

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

---

Ta méthode copy past peut fonctionner

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Worksheets("Syntaxe 10").Range("C1:R5").Copy   appWD.Selection.Paste appWD.Tables(1).AutoFitBehavior wdAutoFitWindow   WordApp.Selection.TypeParagraph appWD.Selection.TypeParagraph   Worksheets("Syntaxe 10").Range("R1:T5").Copy appWD.Selection.Paste '......

---

Si tu veux avoir un traitement plus , tu peux créer les tableaux : .Tables.Add et un remplissage cellule par cellule.
Voici un exemple de syntaxe.

Code:

---

1 2	appWD.ActiveDocument.Tables(1).Cell(1, 2).Range.Text = Worksheets("Syntaxe 10").cells ( 1 ,2).value

---

On obtient une copie des valeur

Dans certain cas il est préférable de copier un objet Excel tableau car ainsi on peut garder les formules , si une donnee est modifié dans le tableau sous word , la colonne totaux sera modifié . Voici un exemple de syntaxe dans ce cas.

appWD.Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8", Filename:="c:\" & "Tableau.xls", LinkToFile:=False, DisplayAsIcon:=False

Hum... voici ce que j'ai essayé, mais ça ne fonctionne pas tout à fait. Ça réussit à ouvrir mon fichier Word, de copier le premier tableau Excel dans Word, mais lorsque je veux copier un 2e tableau à la suite du premier... on dirait que ça ne fonctionne pas. C'est comme s'il me supprimait le premier et qu'il le remplaçait par le 2e. C'est à n'y rien comprendre. De plus, pour mes "TypeParagraph", il me fait des "Entrée" avant mes tableaux. Moi je veux que mes "Entrée" soient après mon tableau, pour qu'il y ait un espace entre mes 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 25 26 27 28 29 30 31 32

Dim DocWord As Word.Document Dim AppWord As Word.Application Set AppWord = New Word.Application   Application.DisplayAlerts = True AppWord.ShowMe AppWord.Visible = True   'Ouvre le document Word Set DocWord = AppWord.Documents.Open("F:\ModèleDocument.docx", ReadOnly:=False)   ' Copie les données Excel Tableau 1 Windows("Classeur1.xlsm").Activate Worksheets("Feuil1").Range("C1:R5").Copy   ' Colle les données dans Word DocWord.Range.PasteSpecial AppWord.Selection.TypeParagraph Application.CutCopyMode = False   ' Copie les données Excel Tableau 1 Windows("Classeur1.xlsm").Activate Worksheets("Feuil1").Range("C7:R12").Copy   ' Colle les données dans Word DocWord.Range.PasteSpecial AppWord.Selection.TypeParagraph Application.CutCopyMode = False   'Sauvegarde mon fichier Word DocWord.Application.ActiveDocument.Save AppWord.Application.Quit

---

bonjour à tous ,

Je suis si débutant en VBA mais , Je vois clairement que tu typeparagraphe sur la selection précédent donc tu annule le ce qui s'est coller avant
je te conseil de faire annuler la selection avant chaque étape dans ton code :) ..

bonne chance ...