N
noznoz
Guest
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!!!
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!!!