Imprimer sans confirnation

Bonsoir Tous le Monde,

J'ai besoin d'un coup pouce S.V.P.

J'ai un bouton Imprimer avec ce code:

Sub Print_Nbre_Unite()
'Print Nombre Unité Macro'
'Imprimer le Nombre d'Unité'
Range("L29:S34").Select
ActiveSheet.PageSetup.PrintArea = "$L$29:$S$34"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

Quand j'imprime, j'ai une demande de confirmation comme quoi que la zone

d'impression n'a qu'une cellule. (Photo).

Est-ce possible de By-Passer ce message dans mon code VBA pour que ça imprime

sans ce message?

Merci de votre Aide.

Jean

Salut,

Essaie avec les instructions Application.DisplayAlerts = False/True, comme dans le code ci-dessous.

Sub Print_Nbre_Unite()
'Print Nombre Unité Macro'
'Imprimer le Nombre d'Unité'

''''''Range("L29:S34").Select

Application.DisplayAlerts = False

    ActiveSheet.PageSetup.PrintArea = "$L$29:$S$34"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False

Application.DisplayAlerts = True

End Sub

Selon moi l’instruction Range("L29:S34").Select est inutile.

Cordialement.

Bonjour Yvouille,

La syntaxe fonctionne très bien.

Un GROS MERCI.

Jean