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