Commande Imprimer

[Laurent313131]

Bonjour,

J'ai crée un bouton de commande qui, lorsque je clique dessus, doit m'ouvrir une message box qui me demande si je veux imprimer la feuille "1" de mon fichier excel. Si je répond non, rien de doit se passer.

J'ai tapé ce code :

Sub imprime()

If MsgBox("Voulez vous vraiment imprimer les données", vbYesNo) = Yes Then
ActiveSheets.PrintOut , , 1
Else
Exit Sub
End If

End Sub

Malheureusement, rien ne se passe... Pouvez vous m'aider ???

MErci !

 

[Pierrot93]

Re : Commande Imprimer

Bonjour,

modifie peut être comme suit :

If MsgBox("Voulez vous vraiment imprimer les données", vbYesNo) = [B][COLOR="Red"]VbYes[/COLOR][/B] Then

bon après midi
@+

 

[Pierrot93]

Re : Commande Imprimer

Re

une autre chose :

ActiveSheet.PrintOut

sans le "S" à la fin...

@+

 

[job75]

Re : Commande Imprimer

Bonjour Laurent , salut Pierrot,

Plus simplement :

Sub imprime()
If MsgBox("Voulez vous vraiment imprimer les données", 4) = 6 Then ActiveSheet.PrintOut
End Sub

A+

 

[Laurent313131]

Re : Commande Imprimer

Merci Pierrot ! Ça marche ! J'ai juste rajouter une ligne avant ma boucle If pour avoir un aperçu avant d'imprimer ...

Bonne soirée.