Discussion :

[marc56]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Invité]

Bonjour,

Ne serait-ce pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

Sans test, extraire Nb de la String:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

[Invité]

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.

[marc56]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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".

[marc56]

J'ai oublié les " ".

[marc56]

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