Discussion :

[athos7776]

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

[CodeFacile]

Ta méthode copy past peut fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[athos7776]

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 :

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
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

[Matrixmax]

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 ...