462 : Le serveur distant n'existe pas ou n'est pas disponible [Résolu]

mdelahais 30 Messages postés mercredi 24 mars 2004Date d'inscription 16 juin 2009 Dernière intervention - 28 févr. 2005 à 11:50 - Dernière réponse : mdelahais 30 Messages postés mercredi 24 mars 2004Date d'inscription 16 juin 2009 Dernière intervention
- 28 févr. 2005 à 12:05
Bonjour à tous,

Je travaille sous VB6 et je réalise des publipostages sous Word. Je crée un fichier texte contenant les données sources, puis j'appelle Word pour réaliser le publipostage. Si je fais cette procédure une fois, il n'y a pas de problème. Si je la lance deux fois à la suite, il me sort l'erreur suivante:
462 : Le serveur distant n'existe pas ou n'est pas disponible

J'ai trouvé différentes remarques sur cette question sur les forums, mais aucune ne m'apporte de solution. Pourriez vous m'aider?

Un grand merci d'avance.

Matthieu

PS : Ci joint le code que j'utilise

StrMessage = "ouverture de Word"
Set objWord = CreateObject("Word.Application")StrMessage "Ouverture du modele " & NomModele
Set objDocument = objWord.Documents.Open(NomModele)StrMessage "Ouverture de la source " & NomSource & ".txt"
objDocument.MailMerge.OpenDataSource (NomSource & ".txt")
StrMessage = "Publipostage Word"
objDocument.MailMerge.Execute
StrMessage = "Sauvegarde Word"
ActiveDocument.SaveAs NomSource & ".doc"
StrMessage = "Sortie Word"
objDocument.Close (wdDoNotSaveChanges)
objWord.Quit
GoTo FIN


Erreur:
MsgBox "Une erreur est survenue durant " & StrMessage & vbNewLine & vbNewLine & Err.Number & " : " & Err.Description, vbCritical, "Erreur"


FIN:
Set objDocument = Nothing
Set objWord = Nothing

La sortie en erreur se fair lors de la sauvegarde (ligne ActiveDocument.SaveAs NomSource & ".doc")
Afficher la suite 

1 réponse

mdelahais 30 Messages postés mercredi 24 mars 2004Date d'inscription 16 juin 2009 Dernière intervention - 28 févr. 2005 à 12:05
+1
Utile
Ça y est, j'ai trouvé grâce au site de Ms (tout arrive...)
http://support.microsoft.com/default.aspx?scid=kb;fr;189618
Dans mon code, cela se traduit par corriger la ligne de sauvegarde comme suit:
objWord.ActiveDocument.SaveAs NomSource & ".doc"
Voilà, merci quand même à tous et bonne programmation.

Matthieu
Cette réponse vous a-t-elle aidé ?  

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.