Problème macro excel impression

Fermé
David - 3 juin 2010 à 12:22
Bonjour à tous,

Voilà j'ai un petit soucis,

J'ai une macro excel qui me sert à imprimer les feuilles de mon classeur.
La macro est la suivante:

<Sub IMP_Frais_de_sante()

'Sub imprimer_onglet()

'pour chacune des feuilles du classeur
For Each feuille_en_cours In Sheets
If Feuil3.Name <> "Impression" Then
'l 'activer pour visualiser
Feuil3.Activate

'si la réponse est nom, sortir du programme
If reponse = 7 Then End

'demander à l'imprimer
reponse = MsgBox("Voulez-vous imprimer la feuille : " & Feuil3.Name, vbYesNoCancel)

'si la réponse n'est ni oui ni non, sortir du programme
If reponse <> 6 And reponse <> 7 Then End

'si la réponse est oui (6), BoiteDialogueImpression()
If reponse = 6 Then Feuil3.Application.Dialogs(xlDialogPrint).Show , , , 1

End If
Next


End Sub


Le problème est le suivant:

Cette macro est, à mon sens trop importante pour ce que je veux.
Concrètement , je souhaiterais avoir une macro qui puisse imprimer une feuille de mon classeur.

Exemple: on clique sur le bouton n°1 cela ouvre la fenêtre d'impression pour la feuille1
On clique sur le bouton n°2 cela ouvre la fenêtre d'impression pour la feuille 2
etc...



Je vous remercie par avance.

David