Ajouter un titre/commantaire sur un code d'un bouton impression

Bonjour à tous,

J'ai un code pour un bouton qui me permet d'imprimer (après aperçu) une plage d'un tableau. Jusque là, tout roule.

Mais maintenant je souhaiterai affiner pour qu'apparaisse un titre et un commentaire en dessous du titre lors de l'aperçu et bien sûr lors de l'impression, et la ça coince. Et qui plus est, si c'est possible de faire apparaitre aussi la date et l'heure de l'impression.

Je vous mets ci-dessous mon code, en espérant que quelqu'un pourra m'aider.

Private Sub CommandButton2_Click()

  With ActiveSheet
    .PageSetup.PrintArea = "A6:F12"

     .PrintPreview      

  End With

End Sub

Merci d'avance !

Bonjour,

je regarde comment faire

Bonjour toutes et tous

Je n'ai pas pu tester

petit bout de code que j'ai pris à droite à gauche et un p'tit morceau de code de Gmb merci à lui

Private Sub CommandButton2_Click()
Dim Rep As Integer
    on error goto plouf
    Rep = MsgBox("Souhaitez-vous imprimer cette plage A6:F12 ?", vbYesNo + vbQuestion, "Demande Impression")    
    If Rep = vbYes Then
        ' ici le traitement si réponse positive
     MsgBox ("Impression en cours... :" & Chr(10) & "Nous sommes le " & Format(Date, "dddd d mmmm yyyy") & _
 Chr(10) & "Il est " & Format(Now(), "hh") & " H et " & Format(Now(), "mm") & " mn.")
        ' ...
 With ActiveSheet
    .PageSetup.PrintArea = "A6:F12"

     .PrintPreview      

  End With
    Else
        ' ici le traitement si réponse négative
       MsgBox"Annulé par l'utilisateur"   ' on peut supprimé cela
plouf:
exit sub
    End If
End Sub

Note : non testé, par contre s'il s'agit sur le texte du bouton de commande c'est un peu différent

Info: le pb c'est que le PrintPreview se rendra visible qu'après la confirmation

Je crois qu'il fallait plutôt faire comme dans mon fichier en pièce jointe.

Re,

Ah ok merci Amo33

Pas de soucis

Amo33, je te remercie, j'ai adapté à mon besoin et cela marche parfaitement.

Bonne fêtes de fin d'année et encore merci.