Macro pour choisir le nombre d'impression et la feuille

Fermé
Philou73CH - Modifié par pijaku le 28/11/2013 à 09:03
 Philou73CH - 27 nov. 2013 à 21:26
Bonjour à vous toutes et tous,

Mon problème maintenant est le suivant :

J'ai deux variables dans mon programme qui dépenderons de l'utilisateur.
1.) Le nombre de feuille qu'il veut imprimer. --> NBF
2.) La page du dossier Excel qu'il veut imprimer. --> NOMF

Ces 2 informations seront décidé en B18 pour le nombre d'impression et en A12 pour le nom de la feuille du classeur Excel. ( !! j'attire votre aimable attention que j'ai fusionné A12 et B12, ceci pour des raisons de mise en page)

Vous avez ci-dessous, le bout de la macro. Tout d'abord je n'ai aucun idée comment y intérgrer le choix de la page.
De plus, ce que j'ai fait pour le nombre de copie, ne fonctionne pas.



 ' choix du nombre de copy à faire et sélection de la page
    Dim NBF As String, NOMF As String
        NBF = Sheets("Entrée").Range("B18").Value
        NOMF = Sheets("Entrée").Range("A12").Value
    ActiveWindow.SelectedSheets.PrintOut Copies:=NBF, Collate:=True, _
    IgnorePrintAreas:=False


C'est pourquoi je me permet de vous faire part du seul mot en anglais que je sais : HELP !!
D'avance je vous remercie de votre aide qui m'a déjà été bien précieuse.
A voir également:

1 réponse

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
27 nov. 2013 à 18:21
Bonjour,

A12-B12 fusionnees, pas d'importance dans ca cas

Sub test1()
NBF = Sheets("Entrée").Range("B18").Value
NOMF = Sheets("Entrée").Range("A12").Value
ActiveWorkbook.Sheets(NOMF).Select True
ActiveWindow.SelectedSheets.PrintOut Copies:=NBF, Collate:=True, IgnorePrintAreas:=False
End Sub
0
Bonjour / Bonsoir.

Je pourrais tester votre macro que samedi soir.
Mais d'avance je vous remercie.
0