Bouton impression nombre de copies

Bonjour à tous,

Voilas j'ai créer un bouton pour l'impression, une macro pour lancer avec zone définie et nombre de copie.

Lorsque j'imprime si je demande une copies il m'en sort 4, je vous joint le code merci de bien vouloir m'aider.

Private Sub CommandButton1_Click()
For Each sh In Worksheets
If sh.Name <> "AV_2x7h" Then
Range("A9:j18").Select
Selection.PrintOut copies:=Range("J2")
End If
Next sh
End Sub

Merci

Bonjour,

Une macro c'est un peu court pour apprécier la cohérence du code.

Il faut aussi le fichier...

A+

Bonjour à tous,

Range("A9:j18").Select s'applique à la feuille active.
Et comme elle ne change pas tu imprimes la même.
Essaie avec sh.Range("A9:j18").Select mais à mon avis il va falloir activer la feuille sh.Select
eric

Bonjour Eric,

Merci d'avoir pris le temps de regarder mon code.

j'ai essayer, mais je n'ai pas assez de connaissance en VBA, peut tu me dire ou je doit placer (sh.Select) car maintenant cela me dit débogage donc une erreur.

Sinon je supprime ce bouton, cela est très simple, mais comme j'aime ces code VBA j'essayerais encore et encore

Merci Bon Dimanche

Merci aussi a galopin, j'ai tester sur un fichier test et cela fonctionne, je doit avoir un soucis autre-part.

Merci quand même pour ton message

Re,

merci de déposer un fichier de travail réduit au minimum.
eric