Ne pas afficher la boite d'alerte Impression sur excution macro
Résolu
Gilles.DR315
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je vous expose mon problème.
J'ai un tableau en Feuil1 ou une MsgBox s'affiche via :
Particularité : La feuil1 est masqué du classeur par défaut, et s'affiche sous condition.
Enfin J'ai une commande macro en "module 12" d'impression sélective.
Question : est-il possible de lancer la macro d'impression sans tenir compte de la MsgBox où l'utilisateur doit confirmer par Ok. Il doit y avoir moyen de neutraliser la MsgBox
J'ai essayé d'introduire dans la macro :
Application.DisplayAlerts = False
(....)
Application.DisplayAlerts = True
Mais rien à faire. Ca ne marche pas.
Merci d'avance de votre aide et astuce.
Cdt
Je vous expose mon problème.
J'ai un tableau en Feuil1 ou une MsgBox s'affiche via :
Private Sub Worksheet_Activate()
Range("B16").Select
If Range("C1").Value = 2 Then Exit Sub
MsgBox ("........")
End Sub
Particularité : La feuil1 est masqué du classeur par défaut, et s'affiche sous condition.
Enfin J'ai une commande macro en "module 12" d'impression sélective.
Sub Impression()
If Range("G4").Value = "" Then Exit Sub
ThisWorkbook.Unprotect Password:="******"
With Worksheets("Feuil1")
.Visible = True
With .PageSetup
.PrintArea = "$B$12:$Y$311"
.PrintTitleRows = ""
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 5
End With
.PrintOut
.Visible = False
End With
ThisWorkbook.Protect Password:="******"
End Sub
Question : est-il possible de lancer la macro d'impression sans tenir compte de la MsgBox où l'utilisateur doit confirmer par Ok. Il doit y avoir moyen de neutraliser la MsgBox
J'ai essayé d'introduire dans la macro :
Application.DisplayAlerts = False
(....)
Application.DisplayAlerts = True
Mais rien à faire. Ca ne marche pas.
Merci d'avance de votre aide et astuce.
Cdt
A voir également:
- Ne pas afficher la boite d'alerte Impression sur excution macro
- Spouleur d'impression - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Impression livret a5 - Guide
- Boite gmail saturée - Guide
- Boite gmail bloquée - Guide
2 réponses
J'ai trouvé la solution.
J'ai remplacé
Application.DisplayAlerts = False
par
Application.EnableEvents = False
Ca fonctionne
J'ai remplacé
Application.DisplayAlerts = False
par
Application.EnableEvents = False
Ca fonctionne
Sub Impression()
If Range("G4").Value = "" Then Exit Sub
ThisWorkbook.Unprotect Password:="******"
With Worksheets("Feuil1")
.Visible = True
Application.EnableEvents = False
With .PageSetup
.PrintArea = "$B$12:$Y$311"
.PrintTitleRows = ""
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 5
End With
.PrintOut
.Visible = False
Application.EnableEvents = True
End With
ThisWorkbook.Protect Password:="******"
End Sub
