Fermer fichier excel (datasource d'une fusion WORD)

Question

Bonjour,

J'utilise la macro suivante pour fusionner mon document Word avec un fichier Excel (datasource).


Sub fusionner()


'


' fusionner Macro


'


docname = ActiveDocument.Name


With ActiveDocument.MailMerge


.Destination = wdSendToNewDocument


.MailAsAttachment = False


.MailAddressFieldName = ""


.MailSubject = ""


.SuppressBlankLines = True


With .DataSource


.FirstRecord = wdDefaultFirstRecord


.LastRecord = wdDefaultLastRecord


End With


.Execute Pause:=True


End With


' fermeture


Documents(docname).Close SaveChanges:=wdDoNotSaveChanges

End Sub

Suite &#224; cette fusion, mon fichier Excel reste ouvert (seulement si j'ai un autre document Excel ouvert avant la fusion).Comment puis-je le fermer ?

J'arrive &#224; r&#233;cup&#233;rer le nom du fichier en faisant : 
SourceName = ActiveDocument.MailMerge.DataSource.Name

Merci

michelxld · Answer

bonjour

tu peux tester

ActiveDocument.MailMerge.DataSource.Close

bonne soiree
michel

LaboClarins · Answer

Bonjour,

j'avais d&#233;j&#224; fait ce test et j'obtenais l'erreur suivante : 

Erreur de compilation : Membre de m&#233;thode ou de donn&#233;es introuvable 

Une autre id&#233;e ?

Merci 

Sophie

michelxld · Answer

bonsoir Sophie

je vais peut etre dire une b&#233;tise , mais tu as bien plac&#233; la ligne avant de fermer le document Word ?

Documents(docname).Close SaveChanges:=wdDoNotSaveChanges

( je viens de retester sans probleme avec OfficeXP )

bonne soiree
michel

Fermer fichier excel (datasource d'une fusion WORD)

3 réponses

Discussions similaires