Nombre de copies VBA

Fermé
théo1181 Messages postés 14 Date d'inscription jeudi 14 octobre 2010 Statut Membre Dernière intervention 3 avril 2011 - 3 avril 2011 à 19:26
 Paf - 3 avril 2011 à 19:34
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

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