tableau excel sur word

  • Initiateur de la discussion Initiateur de la discussion thomas.g
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

thomas.g

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

Pièces jointes

  • Sans titre.png
    Sans titre.png
    9.4 KB · Affichages: 35
  • Sans titre.png
    Sans titre.png
    9.4 KB · Affichages: 46
  • Sans titre.png
    Sans titre.png
    9.4 KB · Affichages: 46
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
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
590
Réponses
6
Affichages
675
Retour