Imprimer un nombre variable de copies

Bonjour le forum,
Dans des feuilles, j'ai des boutons "Imprimer" qui me sortent le nombre de copies souhaité quand le nombre est rentré en dur.
Dans un autre cas, le nombre est variable et voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Imprimer_Eval() ' ' Imprimer les évaluations ' Touche de raccourci du clavier: Ctrl+i   Nb = Sheets("Dossiers").Range("FC1") 'nombre de copies à imprimer   Range("A1:AP42").Select Application.ActivePrinter = "Brother HL-1430 series sur Ne06:" ExecuteExcel4Macro _ "PRINT(1,,,Nb,,,,,,,,1,""Brother HL-1430 series sur Ne06:"",,TRUE,,FALSE)" 'Nb de copies au milieu (Nb)   End Sub

---

mais là il ne se passe rien. QUelqu'un voit-il pourquoi?

Bonjour,

Ne serait-ce pas :

Code:

---

"PRINT(1,,," & Nb &",,,,,,,,1,""Brother HL-1430 series sur Ne06:"",,TRUE,,FALSE)"

---

Sans test, extraire Nb de la String:

Code:

---

1 2	ExecuteExcel4Macro _ "PRINT(1,,," & Nb & ",,,,,,,,1,""Brother HL-1430 series sur Ne06:"",,TRUE,,FALSE)" 'Nb de copies au milieu (Nb)

---

Edit: Grillé par jacques_jean (qui a tapé trop vite, il manque un espace :mouarf:)

Bien vu AlainTech !

Je dois confondre vitesse et précipitation.

Mais il faut quand même dire que l'espace va se placer ensuite automatiquement.

J'ai corrigé de la façon suivante :

Code:

---

1 2	ExecuteExcel4Macro _ "PRINT(1,,, & Nb & ,,,,,,,,1,""Brother HL-1430 series sur Ne06:"",,TRUE,,FALSE)" 'Nb de copies au milieu (Nb)

---

Ce ne doit pas être la bonne réponse, car j'ai un message disant :
"Erreur d'exécution 1004".

J'ai oublié les " ".

Après correction, ça marche.
Merci à tous.