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

Messages postés
30
Date d'inscription
mercredi 24 mars 2004
Dernière intervention
16 juin 2009
- 28 févr. 2005 à 11:50 - Dernière réponse :
Messages postés
30
Date d'inscription
mercredi 24 mars 2004
Dernière intervention
16 juin 2009
- 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

Meilleure réponse
Messages postés
30
Date d'inscription
mercredi 24 mars 2004
Dernière intervention
16 juin 2009
- 28 févr. 2005 à 12:05
1
Merci
Ç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

Merci mdelahais 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

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.