lier un tableau word + tableau excel [Résolu]

[dado91400]

SALUT 0 TOUS?

je n'arrive pas à remplir mon tableau dans word depuis mon fichier excel.

qu'est cequi cloche dans mon code? :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub envoyerTableauxExcelVersWord_V02()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 Dim maTbl As Table
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("G:\Data\Gestion_Commerciale\PRET DE MATERIEL\MODELE CONTRAT_dav.doc")    'ouvre le document Word
    WordApp.Visible = True    'Word n'est pas masqué pendant l'opération
 
Set maTbl = ActiveDocument.Tables(1)
 
maTbl.Cell(2, 2) = Workbooks("contrat de prêt.xls").Worsheets("Feuil").Range("A2")
 
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word
 
End Sub

merci d'avance pour votre aide, parceque là, je déclare forfait ....

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub envoyerTableauxExcelVersWord_V02()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 Dim maTbl As Table
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("G:\Data\Gestion_Commerciale\PRET DE MATERIEL\MODELE CONTRAT_dav.doc")    'ouvre le document Word
    WordApp.Visible = True    'Word n'est pas masqué pendant l'opération
 
Set maTbl = WordDoc.Tables(1)
 
maTbl.Cell(2, 2).range.text = Workbooks("contrat de prêt.xls").Worsheets("Feuil").Range("A2")
 
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word
 
End Sub

[dado91400]

salut Heureux-oli,

je n'arrive pas à expliquer pourquoi mon code ne fonctionne pas.
il faut peut être chercher ailleurs...

c'est pourquoi je vous mets mon fichier EXCEL avec tout mon code complet, peut être qu'il y a une erreure ailleurs qui me plante mon code au moment de liée mon fichier EXCEL à un fichier Word...

si quelqu'un peut me dire pourquoi je n'arrive pas à transférer mes donées excel à mon tableau dans mon word.... ça serait super sympas.

les colonnes en couleur dans mon excel sont les seuls qui lancent un userform apres doubleclick ou click gauche.

Ensuite apres double click sur une case de ma colonne M, mon userform se lance et apres click sur "CommandButton3_Click()" je voudrait transférer les données que j'ai sur toute ma ligne remplie de mon excel, VERS un tableau WORD. (Je remplirai mon tabelau word en fonction d'un ActiveCell.Offset(0, -X).Value, par exemple... )

merci de me donner un coup de main, j'ai pas mal bossé sur mon fichier, grâce à tous le monde sur le site et tutoriaux j'en suis presque venu à bout, mais là jvois pas l'issu alors que j'ai VRAIMENT l'impression d'avoir AUCUNE FAUTES : pourtant ça ne fonctionne pas.

merci d'avance.
A+

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Oli()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 Dim maTbl As Table
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("c:\temp\DocTest.docx")    'ouvre le document Word
    'Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\david goncalves\Bureau/test.doc")
    WordApp.Visible = True    'Word n'est pas masqué pendant l'opération
 
Set maTbl = WordDoc.Tables(1)
'Debug.Print Workbooks("contrat de prêt.xls").Worksheets("Feuil").Cell("B2").Value
 Debug.Print ActiveWorkbook.ActiveSheet.Range("B2")
 
maTbl.Cell(1, 1).Range.Text = ActiveWorkbook.ActiveSheet.Range("B2")
 
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word
 
End Sub

Si tu colles ce code dans un module et pas dans ton UserForm, il fonctionne

[dado91400]

super!

merci pour ta réponse, je reviens de vacances et je viens de tester le code... ça fonctionne

merci encoe A+