OVH Cloud OVH Cloud

Fusion automatique Word et Excel avec une macro

4 réponses
Avatar
Patroche
Bonjour,
Pour un publipostage avec un fichier Excel j'ai cette=20
macro qui fonctionne tr=E8s bien :
Public Sub MAIN()
With ActiveDocument.MailMerge
.Destination =3D wdSendToNewDocument
.Execute
End With
ActiveDocument.PrintOut False
ActiveDocument.Close False
ActiveDocument.Close False
Application.Quit False
End Sub

Le seul pb, c'est que mon fichier Excel ne se ferme pas=20
automatiquement. En effet apr=E8s la fusion sur=20
l'imprimante, Word se ferme et Excel reste en attente de=20
fermeture avec un message me demandant : Voulez-vous=20
enregistrer les modifications ? Peut-on =E9viter ce message,=20
ou y r=E9pondre en automatique ?
Merci d'avance pour votre collaboration

4 réponses

Avatar
Anacoluthe
Bonjour !

'Patroche' nous a écrit ...
Pour un publipostage avec un fichier Excel j'ai cette
macro qui fonctionne très bien :
Le seul pb, c'est que mon fichier Excel ne se ferme pas
automatiquement.


Ouvrez votre fichier XL et fermez-le sans rien modifier :
s'il vous demande une sauvegarde, c'est lui qui a un
problème, pas Word ...

Anacoluthe
« Si tout ici-bas était excellent,
il n’y aurait plus rien d’excellent »
- Denis DIDEROT

Avatar
Patroche
Bonjour et merci pour votre réponse.
Mais j'ai oublié un point important, le fichier Excel
effectue une extraction de données par ODBC à chaque
ouverture.

-----Message d'origine-----
Bonjour !

'Patroche' nous a écrit ...
Pour un publipostage avec un fichier Excel j'ai cette
macro qui fonctionne très bien :
Le seul pb, c'est que mon fichier Excel ne se ferme pas
automatiquement.


Ouvrez votre fichier XL et fermez-le sans rien modifier :
s'il vous demande une sauvegarde, c'est lui qui a un
problème, pas Word ...

Anacoluthe
« Si tout ici-bas était excellent,
il n'y aurait plus rien d'excellent »
- Denis DIDEROT
.




Avatar
Anacoluthe
Bonjour !

'Patroche' nous a écrit ...
Mais j'ai oublié un point important, le fichier Excel
effectue une extraction de données par ODBC à chaque
ouverture.


C'est ce que je disais : le fichier XL est modifié.
C'est dans XL qu'il faut mettre un ThisWorkbook.Saved = True

Anacoluthe
« Si tout ici-bas était excellent,
il n'y aurait plus rien d'excellent »
- Denis DIDEROT

Avatar
Patroche
Bonjour et Merci pour votre réponse.
Je n'avais pas percuté.
Bonne journée

-----Message d'origine-----
Bonjour !

'Patroche' nous a écrit ...
Mais j'ai oublié un point important, le fichier Excel
effectue une extraction de données par ODBC à chaque
ouverture.


C'est ce que je disais : le fichier XL est modifié.
C'est dans XL qu'il faut mettre un ThisWorkbook.Saved =
True


Anacoluthe
« Si tout ici-bas était excellent,
il n'y aurait plus rien d'excellent »
- Denis DIDEROT
.