Impression de page Excel

Bonjour à tous

Je voudrais effectuer un prgramme vba qui effectue l'impression d'une feuille excel lors du click sur un bouton dans une ueser form

voilà le programme que j'ai effectué:

Private Sub CommandButton4_Click()

Application.ScreenUpdating = False

Msg = MsgBox("This button will print the sheet 'printable'. Continue?", _

vbYesNo + vbQuestion + vbSystemModal, "Print the page?")

If Msg = vbYes Then

Sheets("Printable").Select

ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True

Exit Sub

If Msg = vbNo Then Exit Sub

End If

Application.ScreenUpdating = True

End Sub

Lors du click sur le bouton (commandbutton4) un message s'affiche indiquant que ce bouton va imprimer la feuille "printable"

pui l'utilisateur va choisir de poursuivre ou d'annuler

mon prblème est le suivant:

La feuille printable contient 9 pages mais lors de l'impression j'obtient toujours la 1ere page uniquement.

Y'a t-il quelque chose qui manque dans mon code? queque chose qui indique le nombre de pages par expl?

ou bien quelqu'un parmi vous connais un autre code plus facile pour effectuer l'impression?

Merci beaucoup

Bonsoir,

A tester

Option Explicit
Public Sub Imprimer()
Dim Msg
    Application.ScreenUpdating = False
    Msg = MsgBox("This button will print the sheet 'printable'. Continue?", _
    vbYesNo + vbQuestion + vbSystemModal, "Print the page?")

    If Msg = vbYes Then
        Sheets("Printable").PrintOut
    Else
        Exit Sub
    End If

End Sub

didn't work

Re,

Message d'erreur?

Tentes :

Worksheets("Printable").Activate
ActiveSheet.PrintOut

Merci beaucoup

ca a fonctionné cette foi ci