Nombre de copies VBA

théo1181 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -  
 Paf -
Bonjour,

For i = 0 To j - 1
If ListBox1.Selected(i) = True Then
Worksheets(i + 1).Activate ' Active la feuille
ActiveWindow.SelectedSheets.PrintOut
End If
Next i


Dans la commande ci-dessus j'aimerais intégrer automatiquement le nombre de copies (à la suite de PrintOut). J'ai essayé à l'aide d'un ComboBox mais ça ne fonctionne pas, je me plante dans la procédure.

Quelqu'un pourrait-il m'aider ?

Merci beaucoup.

A voir également:

1 réponse

Paf
 
bonjour,

tu peux essayer ceci:

ActiveWindow.SelectedSheets.PrintOut  Copies:=Var


Var étant une variable que tu définis comme tu l'entends.

Bonne suite
0