valider automatiquement un enregistrement

[kinel]

Bonjour à toutes et à tous

afin de garder une impression incrémentée automatique j'ai créé cette macro :


Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 17/01/2012 par mic
'

'
Application.ActivePrinter = "Microsoft Office Document Image Writer sur Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Microsoft Office Document Image Writer sur Ne01:", Collate:=True
Application.ActivePrinter = "\\esca1a\ESCA IMP7 sur Ne02:"
End Sub


le problème est que la macro stoppe à la validation de l'enregistrement
l'un (ou l'une ) de vous aurait il la commande magique à intégrer dans la macro pour valider automatiquement cet enregistrement ?

Merci de vos réponses

Michel

 

[PrinceCorwin]

Re : valider automatiquement un enregistrement

Bonjour,

Le code pour éviter la fenêtre de confirmation d'enregistrement des modification est :
'A mettre en début de code
Application.DisplayAlerts = False

'En fin de code pour réactivé les infos
Application.DisplayAlerts = True

Bonne journée

 

[kinel]

Re : valider automatiquement un enregistrement

super

merci beaucoup

Michel

 

[kinel]

Re : valider automatiquement un enregistrement

j'ai bien essayé ces commandes mais j'ai toujours une fenêtre de validation sur le nom créé pour le fichier image

voici mon code


Sub Michel1()
'
' Michel1 Macro
' Macro enregistrée le 17/01/2012 par mic
'

Application.DisplayAlerts = False ' A mettre en début de code
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Microsoft Office Document Image Writer sur Ne01:", Collate:=True
Application.ActivePrinter = "\\esca1act\ESCA ULS IMP7 sur Ne02:"
Application.DisplayAlerts = True ' En fin de code pour réactivé les infos


End Sub