Peut être peux tu utiliser la commande SendKeys pour valider cette boite de dialogue.
Cordialement,
-- Stéphane PINIER, Sitel France, pour l'Assistance Utilisateur Microsoft
"lemra" a écrit dans le message de news: bssrsu$p7c$
bonjour,
Quand je fais :
With ActiveDocument.MailMerge .Destination = wdSendToPrinter .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = False With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute (False) End With
Celà me convient, .. sauf qu'il y a une boite de confirmation pour l'impression en final.
Celà serait pas trop grave mais je dois faire une boucle.
Connaissant un peu vba excel, j'ai tenté un "application.displayalerts > false". Helas, sans succès.
Si quelqu'un a une idée.
Armel
Philippe Tulliez
Bonjour Armel, Il y a sûrement une autre façon de le faire, mais je n'ai pas le temps de chercher maintenant.
Philippe
================== Sub Fusion() With ActiveDocument.MailMerge .Destination = wdSendToNewDocument ' <<<<<<<<<<< A modifier .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = False With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute (False) End With ' ***** A ajouter ***** ActiveDocument.PrintOut ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges End Sub ===================
"lemra" a écrit dans le message de news:bssrsu$p7c$
bonjour,
Quand je fais :
With ActiveDocument.MailMerge .Destination = wdSendToPrinter .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = False With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute (False) End With
Celà me convient, .. sauf qu'il y a une boite de confirmation pour l'impression en final.
Celà serait pas trop grave mais je dois faire une boucle.
Connaissant un peu vba excel, j'ai tenté un "application.displayalerts > false". Helas, sans succès.
Si quelqu'un a une idée.
Armel
Bonjour Armel,
Il y a sûrement une autre façon de le faire, mais je n'ai pas le temps
de chercher maintenant.
Philippe
================== Sub Fusion()
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument ' <<<<<<<<<<< A modifier
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = False
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute (False)
End With
' ***** A ajouter *****
ActiveDocument.PrintOut
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
End Sub
===================
"lemra" <armel.francois_antiiii_spam@wanadoo.fr> a écrit dans le message de
news:bssrsu$p7c$1@news-reader3.wanadoo.fr...
bonjour,
Quand je fais :
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = False
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute (False)
End With
Celà me convient, .. sauf qu'il y a une boite de confirmation pour
l'impression en final.
Celà serait pas trop grave mais je dois faire une boucle.
Connaissant un peu vba excel, j'ai tenté un "application.displayalerts > false".
Helas, sans succès.
Bonjour Armel, Il y a sûrement une autre façon de le faire, mais je n'ai pas le temps de chercher maintenant.
Philippe
================== Sub Fusion() With ActiveDocument.MailMerge .Destination = wdSendToNewDocument ' <<<<<<<<<<< A modifier .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = False With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute (False) End With ' ***** A ajouter ***** ActiveDocument.PrintOut ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges End Sub ===================
"lemra" a écrit dans le message de news:bssrsu$p7c$
bonjour,
Quand je fais :
With ActiveDocument.MailMerge .Destination = wdSendToPrinter .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = False With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute (False) End With
Celà me convient, .. sauf qu'il y a une boite de confirmation pour l'impression en final.
Celà serait pas trop grave mais je dois faire une boucle.
Connaissant un peu vba excel, j'ai tenté un "application.displayalerts > false". Helas, sans succès.
