Nombre de copies d'impression

[papypog]

Bonjour les pros,

Dans le code ci-dessous, que faut-il ajouter (modifier, mettre à la place de "copie=1") pour que s'ouvre une boite de dialogue demandant à l'opérateur la saisie du nombre de copies désirées.

Sheets("Fournitures").Select
Range("K48").Select
If ActiveCell = 0 Then
Sheets("Imprim").Select
Range("K7").Select
ElseIf ActiveCell > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
End If

D'avance MERCI.

 

[wilfried_42]

Re : Nombre de copies d'impression

Bonjour papypog

ElseIf ActiveCell > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else

devient :

ElseIf ActiveCell > 0 Then
nbpage = val(inputbox("Nombre de folio à imprimer"))
if nbpage = 0 then nbpage = 1
ActiveWindow.SelectedSheets.PrintOut Copies:=nbpage, Collate:=True
Else

 

[papypog]

Re : Nombre de copies d'impression

Bonjour papypog



devient :

Re bonjour,

Super, Merci infiniment à la fois pour la réactivité et pour la réponse.

PS pour info, je connais un peu St Etienne vu que celle qui partage ma vie depuis bientôt 40 ans en est originaire