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.
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
.....
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
 
strCheminModWord = App.Path & "\Mailing.dot"
Set InstanceWord = New Word.Application
InstanceWord.Application.Documents.Add Template:=strCheminModWord
InstanceWord.Visible = False
Merci de vos suggestions.