Excel et publipostage

[noznoz]

Bonjour,

J'ai fait une macro excel qui fait un publipostage vers un nouveau document.
Le souci est qu'une fois le publipostage effectué, je n'arrive pas à enregistrer le document généré:
With wordDoc.MailMerge
'Ouvre la base de données
.OpenDataSource Name:=NomBase, _
Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & NomBase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [Feuil1$]"
.Destination = wdSendToNewDocument
.MailAsAttachment = True
.MailAddressFieldName = "Mail"
.MailSubject = "Message de test"

.SuppressBlankLines = True
'Prend en compte l'ensemble des enregistrements
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord

End With
'Exécute l'opération de publipostage
.Execute pause:=False

End With

ActiveDocument.SaveAs Filename:=DocResultat

La dernière ligne plante... Si qqu'un a une idée...
MERCI!!!

 

[chris]

Re : Excel et publipostage

Bonjour
Ta ligne

ActiveDocument.SaveAs Filename:=DocResultat

doit être dans le with end with

 

[noznoz]

Re : Excel et publipostage

Bonjour,
Merci pour ta réponse. Mais quand je fais ce la, j'ai un message "Un composant ActiveX ne peut pas créer un objet"...

Merci!

 

[chris]

Re : Excel et publipostage

RE
J'ai lu un peu vite :
en fait tu dois avoir plus haut dans ton code la définition du Word application
puis des lignes commencant par un . avant ton "With wordDoc.MailMerge"
Peux-tu préciser ce code car la ligne
ActiveDocument.SaveAs Filename:=DocResultat
doit suivre la logique de ce début de procédure.
Il manque peut-être simplement un point en début de cette ligne mis sans voir le code, je ne peux l'affirmer à coup sûr.

 

[noznoz]

Re : Excel et publipostage

Re,

Merci de ta réponse
Mais j'ai trouvé une solution; ça doit etre un moyen détourné mais bon, ça fonctionne:
A la fin, je mets ça:

With wordApp.Application
wordApp.DisplayAlerts = False
With .Dialogs(wdDialogFileSaveAs)
.Name = DocResultat
.Execute
End With
.Quit SaveChanges:=wdDoNotSaveChanges

End With

Merci à tous en tous cas et bonne fin de journée!