Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Boite de dialogue pour nombre de copie...

Boite de dialogue pour nombre de copie...

2 réponses
Avatar
johend
Bonjour à toutes et à tous,

J'ai créé un bouton qui me permet de lancer l'impression de ma
feuille en me demandant l'imprimante sur laquelle je souhaite imprimer.
Mais je voudrais ajouter une ligne (ou plusieurs ;).) pour créer une
boite où la personne renseignerée le nombre de copie qu'elle souhaite...

Voici mon code:

Private Sub CommandButton1_Click()

Var = Application.Dialogs(xlDialogPrinterSetup).Show


Shapes("commandbutton1").Visible = False

Sheets("EPS TRA 002 A").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True

Shapes("commandbutton1").Visible = True

End Sub

Merci beaucoup pour votre aide précieuse.

Johend
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FFO
Salut à toi

Remplace cette ligne

ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True

Par

ActiveWindow.SelectedSheets.PrintOut Copies:=InputBox("Saisissez le Nombre
de copie", "Nombre de copie"), Collate:=True

Celà devrait faire
Dis moi !!!!!
Avatar
johend
FFO a écrit le 24/04/2009 à 09h47 :
Salut à toi

Remplace cette ligne

ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True

Par

ActiveWindow.SelectedSheets.PrintOut Copies:=InputBox("Saisissez le Nombre
de copie", "Nombre de copie"), Collate:=True

Celà devrait faire
Dis moi !!!!!


Merci merci merci infiniment!!!!!!!!!!

C'est génial!

@+