Bonjour à tous,
J'ai une appli en vb6 contenant un module permettant de faire de la fusion Word à partir d'un modèle de document
lorsque j'utilise un modèle ".dot" avec office 2003 ou 2007 tout est ok
par contre, quand j'utilise un modèle ".dotx" avec office 2007, lors de l'ouverture du document, je récupère une erreur 13.
le code utilisé est le suivant :
Dim A_WORD As Object
Dim mvarDocumentId As Variant
On Error Resume Next
' Nouvelle instance of WORD
Set A_WORD = GetObject(, "Word.Application")
' non zero means WORD wasn't open
If Err.Number <> 0 Then
' ouverture WORD
Set A_WORD = CreateObject("Word.Application")
End If
Err.Clear
On Error GoTo StartWORD_Error
' Test ouverture WORD
If (A_WORD Is Nothing) Then
' Erreur
Message "WORDNONPRESENT", vbInformation
Else
' On rend l'application non visible.
A_WORD.Application.Visible = False
'c'est cette ligne ci dessous qui plante en err 13
Set mvarDocumentId = A_WORD.Application.Documents.Add(sFicModele, False)
'contrôle des champs existants
lNbChamps = A_WORD.Application.activedocument.Fields.Count
Malgré mes recherches, je n'ai pas trouvé d'info... donc, si quelqu'un a une idée, elle sera la bienvenue...
D'avance Merci
cordialement
Pat
Don't Worry 
, Be Happy 
lorsque le problème est résolu, pensez Réponse Acceptée 