Bonjour,

Je travaille sur des fichiers excel ou je fais des statistiques. Une fois terminé, je dois transferer les résultats des calculs dans des tableaux words.
Donc j'aimerais automatiser cette manip avec vba, j'ai deja fais le début mais pour placer les résultats dans les tableaux words je bloque. J'aimerais avoir un peu d'aide s'il vous plaît.

Voici le code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Sub RemplirTableauWordDepuisDonnéesExcel()
 
 
     Dim AppWord As Word.Application
 
     Dim docword As Word.Document
 
     Set AppWord = New Word.Application
 
     Application.DisplayAlerts = True
 
     AppWord.ShowMe
 
     AppWord.Visible = True
 
     'Ouvre le document Word
 
     Set docword = AppWord.Documents.Open("R:\PREVENTION ET SECURITE\NOUVELLE STRUCTURE\TABLEAUX DE BORD\MODAT Indicateurs\Modat Ind en cours\Année 2011\Docs_pierre\test_vba\Fenouillet_test11.doc", ReadOnly:=False)
 
     ' Copie les données Excel
 
     Contrats_ISBN = Sheets("faits_constates").Range("C14").Value
 
     Contrats_Titre = Sheets("faits_constates").Range("D14").Value
 
     Contrats_autre = Sheets("coups_blessures").Range("B14").Value
 
 
     ' Colle les données dans Word
 
     docword.Tables(2).Rows.Add
 
     Derligne = docword.Tables(2).Rows.Count
 
 
     With docword.Tables(2)
 
          .Cell(Derligne, 1).Range.InsertAfter Contrats_ISBN
 
          .Cell(Derligne, 2).Range.InsertAfter Contrats_Titre
 
          .Cell(Derligne, 3).Range.InsertAfter Contrats_autre
 
 
     End With
 
     docword.Application.ActiveDocument.Save
 
     AppWord.Application.Quit
 
End Sub
Bonne journée