Bonjour,
Je travaile sur des stats sur un fichier excel et j'aimerais envoyer les données du fichier excel sur plusieurs fichiers word. C'est là que je bloque donc si quelqu'un pouvais m'aider, merci
Voir ci dessous le code: il envoye que sur un fichier word
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 Option Explicit Sub auto() Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = CreateObject("word.application") WordApp.Visible = True 'mettre False pour garder Word masqué Set WordDoc = WordApp.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") 'ouvre le document Word 'Tables(2) correspond au 2eme tableu du document Word 'transfert la donnée de la cellule A1 dans la 3eme cellule de la 1ere colonne WordDoc.Tables(3).Columns(2).Cells(2).Range.Text = Sheets("faits_constates").Range("C14").Text 'transfert la donnée de la cellule A2 dans la 2eme cellule de la 3eme colonne WordDoc.Tables(3).Columns(3).Cells(2).Range.Text = Sheets("coups_blessures").Range("C14").Text 'WordDoc.Close True 'ferme le document Word en enregistrant les modifications 'WordApp.Quit 'ferme l'application Word End Sub
Partager