miguelangelo
XLDnaute Occasionnel
Bonjour Forum, Bonjour à tous
comme je le dis dans l'intitulé, je souhaite ouvrir depuis excel un publipostage.
j'ai fais une recherche et trouvé pas mal d'infos qui ressemblent bcp à ce que je veux, mais pas tout à fait...
donc voilà, le fichier word que je veux ouvrir est déjà paramétré pour la fusion.
je veux juste en fait que depuis excel :
- le fichier word s'ouvre,
- qu'une info présente sous excel soit reprise pour appeler la fusion
j'ai essayé de bidouiller ca :
Dim CIA As String
CIA = Range("b10")
FileMailing = "c:\base correspondance avec fusion gestionnaire.doc"
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Application.ScreenUpdating = False
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open(FileMailing)
With DocWord.MailMergeMailMerge.DataSource.QueryString = _
"SELECT * FROM c:\\base location.xls WHERE ((CIA1 = CIA))" _
& ""
End With
DocWord.Activate
DocWord.Close savechanges:=False
AppWord.Visible = True
End Sub
1ere erreur : Set AppWord = New Word.Application
il bloque à ce niveau. ne connais pas le type
Merci pour votre aide...
comme je le dis dans l'intitulé, je souhaite ouvrir depuis excel un publipostage.
j'ai fais une recherche et trouvé pas mal d'infos qui ressemblent bcp à ce que je veux, mais pas tout à fait...
donc voilà, le fichier word que je veux ouvrir est déjà paramétré pour la fusion.
je veux juste en fait que depuis excel :
- le fichier word s'ouvre,
- qu'une info présente sous excel soit reprise pour appeler la fusion
j'ai essayé de bidouiller ca :
Dim CIA As String
CIA = Range("b10")
FileMailing = "c:\base correspondance avec fusion gestionnaire.doc"
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Application.ScreenUpdating = False
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open(FileMailing)
With DocWord.MailMergeMailMerge.DataSource.QueryString = _
"SELECT * FROM c:\\base location.xls WHERE ((CIA1 = CIA))" _
& ""
End With
DocWord.Activate
DocWord.Close savechanges:=False
AppWord.Visible = True
End Sub
1ere erreur : Set AppWord = New Word.Application
il bloque à ce niveau. ne connais pas le type
Merci pour votre aide...