Imprimer sous excel avec des conditions

Fermé
campagne72 Messages postés 26 Date d'inscription dimanche 5 février 2012 Statut Membre Dernière intervention 4 novembre 2013 - 10 févr. 2012 à 20:59
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 11 févr. 2012 à 14:48
Bonjour, à tous
dans une feuille (Données1) j'ai en K1 ex: (30), ce chiffre peu changer
je voudrai que la macro me sorte sur imprimante dans la feuille (Edition) les feuilles 1 à (30)
ou 1 à (x) suivant la cellule K1
est-ce possible
merci d'avance


A voir également:

1 réponse

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
11 févr. 2012 à 14:48
Bonjour,

Sub Impression()
Sheets("Edition").Select
Nb_Page = Worksheets("Données1").Range("K1").Value
ExecuteExcel4Macro "PRINT(2,1," & Nb_Page & ",1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub


Bonne suite
0