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:
Bonne journée
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
Partager