mdelahais
Messages postés30Date d'inscriptionmercredi 24 mars 2004StatutMembreDernière intervention16 juin 2009
-
28 févr. 2005 à 11:50
mdelahais
Messages postés30Date d'inscriptionmercredi 24 mars 2004StatutMembreDernière intervention16 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
mdelahais
Messages postés30Date d'inscriptionmercredi 24 mars 2004StatutMembreDernière intervention16 juin 20091 28 févr. 2005 à 12:05
Ç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.