OVH Cloud OVH Cloud

erreur en publipostant

2 réponses
Avatar
Korhyana
Bonjour,
en effectuant un publipostage sous forme de macro, j'obtiens cette
erreur :
"Ereur d'ex=E9cution '5535':
Impossible de fusionner ces fichiers ou d'ins=E9rer cette base de
donn=E9es"

l'erreur ne semble pas venir de ma macro, sachant qu'aux param=E8tres
pr=E8s, elle fonctionne ailleur
O=F9 dois-je chercher ?

2 réponses

Avatar
Tisane
Bonjour Korhyana,

en effectuant un publipostage sous forme de macro, j'obtiens cette
erreur :
"Ereur d'exécution '5535':
Impossible de fusionner ces fichiers ou d'insérer cette base de
données"
l'erreur ne semble pas venir de ma macro, sachant qu'aux paramètres
près, elle fonctionne ailleur


As-tu essayé de fusionner "manuellement" avec la même source avant de passer
par la macro ?
Quel protocole de fusion utilises-tu ?

Regarde la fiche suivante :
"How to automate Word with Visual Basic to create a Mail Merge"
http://support.microsoft.com/kb/285332/en
Remplace en par fr à la fin de l'adresse pour une traduction automatique
(approximative).

ou celle-ci "Comment faire pour automatiser Microsoft Word pour la
réalisation d'un publipostage à partir de Visual Basic"
http://support.microsoft.com/kb/220607/fr

--
Tisane

Avatar
Korhyana
As-tu essayé de fusionner "manuellement" avec la même source avant de passer
par la macro ?


oui manuellement, le publipostage fonctionne bien
lors du bug à l'éxécution, la macro génère pourtant correctement
le document word.


Quel protocole de fusion utilises-tu ?


Le document Word est en mode "Normal" au lancement de la macro et voici
cette dernière :

Documents.Open FileName:=MyPath & "template.doc", ReadOnly:=True
Documents("template.doc").Activate
With ActiveDocument
.MailMerge.MainDocumentType = wdFormLetters
.MailMerge.OpenDataSource Name:=MyPath & "source.xls", _
ReadOnly:=True, _
Connection:="Feuille de calcul entière", _
ConfirmConversions:úlse, _
LinkToSource:=True, _
AddToRecentFiles:úlse, _
Revert:úlse, _
Format:=wdOpenFormatAuto
.MailMerge.Destination = wdSendToNewDocument
.MailMerge.Execute Pause:=True
.SaveAs FileName:=MyPath & "result.doc"
.Close SaveChanges:=wdSaveChanges
End With