Nombre de copies d'impression

papypog · 25 Mai 2007

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 · 25 Mai 2007

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 · 25 Mai 2007

Re : Nombre de copies d'impression

wilfried_42 à dit:
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

Nombre de copies d'impression

papypog

XLDnaute Occasionnel

wilfried_42

XLDnaute Barbatruc

papypog

XLDnaute Occasionnel

Discussions similaires

Nombre de copies d'impression

papypog

XLDnaute Occasionnel

wilfried_42

XLDnaute Barbatruc

papypog

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency