tableau excel sur word

[thomas.g]

bonjour , j'aimerais créer une macro qui me permettent de copier 8 tableaux d'un document excel sur un document word déja existant , à un endroit précis et une taille précise ... voici le type de tableau que je dois insérer (en PJ n°1) . le document word s'appellera : "rapport essai RAC/RDC" et le document excel changera de nom ... en dessous , c'est ce que j'ai essayé de faire mais cela n'a pas fonctionné .. merci d'avance .




Sub Aaaa()


Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Set WordApp = New Word.Application

Application.DisplayAlerts = True
WordApp.ShowMe
WordApp.Visible = True

'Ouvre le document Word
Set WordDoc = WordApp.Documents.Open("C:\Users\thgarcia\Desktop\Doc1.docx", ReadOnly:=False)

' Copie les données Excel Tableau 1
Windows("C:\Users\thgarcia\Desktop\2015-01-23_RAC_1200mm² Cu+rond Al.xls").Activate
Worksheets("Feuil1").Range("C1:R5").Copy

' Colle les données dans Word
WordDoc.Range.PasteSpecial
WordApp.Selection.TypeParagraph
Application.CutCopyMode = False

' Copie les données Excel Tableau 1
Windows("Classeur1.xlsm").Activate
Worksheets("RAC").Range("D12:I21").Copy

' Colle les données dans Word
WordDoc.Range.PasteSpecial
WordApp.Selection.TypeParagraph
Application.CutCopyMode = False

'Sauvegarde mon fichier Word
WordDoc.Application.ActiveDocument.Save
WordApp.Application.Quit
End Sub

 

[Yaloo]

Re : tableau excel sur word

Bonjour Thomas, le forum,

On va récapituler :
- Les fichiers sont dans le même répertoire
- Pour le test, il s'agit bien de mes 2 fichiers du post#4 pour le fichier Doc1.docx‎ et post#8 pour le fichier doc internet.xls‎
- Dans le fichier Excel, tu as bien cocher Microsoft Word XX.X Object Library, XX.X suivant ta version d'Excel
- si tu lances la macro ExtTabEW , ça devrait fonctionner.

A+

Martial

 

[Modeste]

Re : tableau excel sur word

Bonjour le fil,

Juste pour éviter au pauvre Martial de se ronger les sangs: sous XL 2013, ça fonctionne !

 

[Yaloo]

Re : tableau excel sur word

Bonjour Modeste ,

Merci pour ta vérification, moi aussi je suis sous 2013, je ne me faisais pas trop de soucis pour mon code puisqu'il fonctionne chez moi, mais plutôt pour une configuration particulière.

Merci encore d'avoir pris le temps de tester

A+

 

[thomas.g]

Re : tableau excel sur word

moi je suis sur excel 2007 ... peut être que le pb vient de la ?

 

[Yaloo]

Re : tableau excel sur word

Re,

Peut-être, en effet, que ça vient de la version d'Excel, si quelqu'un pouvait essayer avec 2007 ce serait bien.

A+