Discussion :

[jncoffy]

Bonjour à tous

Je souhaite, depuis une macro Excel 2010, ouvrir un document Word 2010 qui est document principal de fusion (rattaché à un autre document Excel qui sert de source de données).

Voici mon 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
 
Sub cif()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open("E:\cif.docx") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
 
'Définition des signets Word
WordDoc.Bookmarks("DebutStage").Range.Text = Cells(4, 4)
WordDoc.Bookmarks("FinStage").Range.Text = Cells(5, 4)
 
WordApp.Visible = True 'affiche le document Word
 
End Sub

En procédant de la sorte mon document Word s'ouvre effectivement mais je n'obtiens pas la boite de dialogue SQL permettant, en répondant 'Oui', d'ouvrir en même temps la source de données. Je suis obligé ensuite d'ouvrir moi même la source de données une fois le document Word ouvert.

Existe-il une solution pour qu'à l'ouverture du document Word la source de données s'ouvre également, soit en ajoutant une commande, soit en ajoutant un commutateur à la commande WordApp.Documents.Open ?

Merci de votre aide

Jean Noël

[jncoffy]

J'ai trouvé une solution. La voici (en gras dans 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
Sub cif()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\" & "cif.docx") 'ouvre document Word
    
WordApp.Visible = False 'word masqué pendant l'operation

'Liste des signets Word
WordDoc.Bookmarks("DebutStage").Range.Text = Cells(4, 4)
WordDoc.Bookmarks("FinStage").Range.Text = Cells(5, 4)

WordApp.Visible = True 'affiche le document Word
With WordDoc.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource Name:=ThisWorkbook.Path & "\" & "stagiaires.xls", ReadOnly:=False, Connection:="Feuil1$"
End With

End Sub

Il me reste encore un tout petit problème. A l'ouverture du document Word, il m'est demandé de choisir la feuille ou la plage nommée du document Excel qui servira de source au publipostage. Il semble que le code Connection:="Feuil1$" ne fonctionne pas.

Si quelqu'un a une idée.

Merci

Jean Noël