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

Bonsoir Thomas,

Mettre plutôt des fichiers que des images, cela répondra peut-être à ces questions :
Les tableaux seront-ils toujours les mêmes ?
Seront-ils toujours positionnés dans Word aux mêmes endroits ?
Y-a-t-il du texte entre les tableaux dans Word ?
Les tableaux initiaux sont-ils dans le même onglet ?

A te relire

Martial

 

[thomas.g]

Re : tableau excel sur word

bonjour yaloo ,

alor ma réponse est oui à toutes les questions mise a part pour la derniére : les tableaux viennent de différentes feuilles du fichier . je vous ais joint le fichier excel et le fichierdans lequel je veux metttre les tableaux ( en photo car je ne pouvais pas mettre de fichier de ce type), les tableaux a copier sont ceux comprenant la valeur '1.09" avec les bordures rouges de la premiére feuille (rdc 1200mm² Cu_Al) et ceux de la derniére feuilles (RAC) . en éspérant avoir répondu a vos question .

thomas

 

[Yaloo]

Re : tableau excel sur word

Bonjour Thomas,

Voici 2 fichiers :
- 1 Word où j'ai inséré des signets Tableau1, Tableau2, Tableau3 et Tableau4 (à toi de mettre le reste )
- 1 Excel où j'ai nommé des tableaux Tab1, Tab2, Tab3 et Tab4 dans "gestionnaire des noms" (à toi de mettre le reste )

Ensuite dans ta macro ExtTabEW j'ai mis une boucle avec les références aux Tab et aux Tableau.
Redimensionnement des tableaux une fois copiés, comme tu conserves les proportions, une seule valeur suffit.

A te relire

Martial

 

[thomas.g]

Re : tableau excel sur word

j'ai essaye de mettre ne marche la macro , mais cela ma indiquer :" projet ou bibliothéque introuvable" , je tient a préciser que j'ai bien cocher "microsoft office 12.0 library"... merci d'avance

 

[Yaloo]

Re : tableau excel sur word

Re,

As-tu bien coché "Microsoft Word 12.0 Object Library" ?

 

[thomas.g]

Re : tableau excel sur word

oui oui , c'est de celui ci que je voulais parler ..

 

[Yaloo]

Re : tableau excel sur word

Bon et avec ce fichier, toujours le même message

 

[thomas.g]

Re : tableau excel sur word

pareil , je vous envoi ce que sa me met en PJ

 

[Yaloo]

Re : tableau excel sur word

Bonjour Thomas,

Il faut décocher "MANQUANT : Microsoft Word 15.0 Object Library" et cocher "Microsoft Word 12.0 Object Library".

A te relire

Martial

 

[thomas.g]

Re : tableau excel sur word

il me dis que le signet n'existe pas :s

 

[Yaloo]

Re : tableau excel sur word

Re,

Si tu arrives jusqu'au signet c'est déjà un bon signe
Quel fichier as-tu utilisé ? Le tien ou le mien ? Se trouve-t-il dans le même répertoire ?

A te relire

Martial

 

[thomas.g]

Re : tableau excel sur word

bonjour , j'ai utilisé le fichier excel que vous m'avez donner et le fichier word s'est ouvert tout seul . il se trouve bien dans le même répértoire .. merci d'avance

 

[Yaloo]

Re : tableau excel sur word

Bonjour Thomas, le forum,

Je ne comprends pas trop, je viens de re-tester chez moi et ça fonctionne correctement.
Peux-tu vérifier le nom des signets dans le fichier Word ? Ainsi que leur nombre ?

A+

Martial

 

[thomas.g]

Re : tableau excel sur word

bah oui je ne sais pas ... les signet : Tableau 1 Tableau 2 Tableau3 et Tableau 4 sont bien présent dans le document word