Nom de l'imprimante dans une cellule

[David590]

Bonjour à tous,

J'utilise ce code pour imprimer: FEUIL1.Range("A1").PrintOut ActivePrinter:="EPSON Printer"

Pour changer d'imprimante, je dois changé le nom de l'imprimante qui est dans le code

Y aurait il un moyen pour que le nom de l'imprimante soit stocké dans une cellule, pour que je puisse changer le nom facilement sans devoir toucher au code

Quelque chose dans ce genre FEUIL1.Range("A1").PrintOut ActivePrinter:="feuil5.range("D10")"
Et dans la cellule D10 j'aurais le nom de l'imprimante : EPSON Printer

 

[MJ13]

Re : Nom de l'imprimante dans une cellule

Bonjour David

Peut-être:

Sheets("feuil5").Range("D10").value

 

[David590]

Re : Nom de l'imprimante dans une cellule

J'ai essayé comme ça mais ça ne marche pas

FEUIL1.Range("A1").PrintOut ActivePrinter:="Sheets("feuil5").Range("D10").value"

 

[phlaurent55]

Re : Nom de l'imprimante dans une cellule

Bonjour à tous,

"Sheets("feuil5").Range("D10").value" Oui mais sans les guillemets

à+
Philippe

 

[MJ13]

Re : Nom de l'imprimante dans une cellule

Re , Bonjour Philippe

Comme c'est pas toujour simple ces histoires d'impression, voici déjà pour commencer 2 codes à tester pour avoir le bon nom de l'imprimante:

Sub Nom_Imprimante_Active()
MsgBox "The name of the active printer is " & ActivePrinter
Cells(1, 2) = ActivePrinter
End Sub
Sub Imprimante_Active_A1()
Application.ActivePrinter = Range("A1").Value
End Sub

 

[David590]

Re : Nom de l'imprimante dans une cellule

C'est bon, j'ai réussi, javais déjà essayé même sans les guillemets mais ça n'allait pas, j'ai du me planter sur quelque chose

Grand merci pour vos reponse

 

[MJ13]

Re : Nom de l'imprimante dans une cellule

Re

C'est bon, j'ai réussi, javais déjà essayé même sans les guillemets mais ça n'allait pas, j'ai du me planter sur quelque chose

Grand merci pour vos reponse​

Euh, pourais-tu donner ta solution, histoire qu'on ai pas cherché pou rien .

 

[David590]

Re : Nom de l'imprimante dans une cellule

Bonsoir tous le monde,

désolé MJ13, je n'avais pas vu que tu avais répondu

Je n'avais pas trouvé d'autre solution, ce que je voulais dire c'est que c’était bien comme vous l'aviez dit ici

C'est à dire sans les guillemets

FEUIL1.Range("A1").PrintOut ActivePrinter:=Sheets("feuil5").Range("D10").value

Donc c'etait nikel, merci

@+

 

[Staple1600]

Re : Nom de l'imprimante dans une cellule

Bonsoir à tous


Juste pour le plaisir de sortir mon String
Code vba:
Sub TestPRINT()
Dim NomImprim As String
NomImprim=Sheets("feuil5").Range("D10").Text
FEUIL1.Range("A1").PrintOut ActivePrinter:=NomImprim
End Sub