Bonjour
Je reprends un ancien praticiel que j'avais réalisé il y a quelques années, et dont le projet VB6 fonctionnait très bien à l'époque (mais dont le document explicatif n'avait pas été finalisé).
Maintenant, le code suivant me renvoit une erreur 5852 (objet non disponible) dont je n'arrive pas à trouver la cause.
Avant cette portion de code, j'ajoute un nouveau document qui fait référence à un document modèle (.dot) à la collection Documents.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 With InstanceWord.ActiveDocument.MailMerge DialogSortie.Show vbModal If strModeSortie = "DocWord" Then .Destination = wdSendToNewDocument .....
Merci de vos suggestions.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 strCheminModWord = App.Path & "\Mailing.dot" Set InstanceWord = New Word.Application InstanceWord.Application.Documents.Add Template:=strCheminModWord InstanceWord.Visible = False
Partager