Impression en VBA

[jbdubreuil]

Bonjour,

A l'aide de l'enregistreur de macro, j'ai ecrit un code pour imprimer une page.

Application.ActivePrinter = "\\brunt100\FIN-02 on Ne08:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\brunt100\FIN-02 on Ne08:", Collate:=True

Or j'ai plusieures imprimantes en reseau.
Comment ecrire le code si je souhaite choisir une imprimante liée à une cellule?

A1 \\brunt100\FIN-02 on Ne08:
A2 \\brunt100\FIN-03 on Ne08:
A2 \\brunt100\FIN-04 on Ne08:
A3 \\brunt100\FIN-05 on Ne08:
A4 \\BRUNT100\COLOR-10 on Ne05:


Merci par avance,
Le bout du tunnel est proche...

jb

 

[Pierrot93]

Re : Impression en VBA

Bonjour Jb

as tu essayé le code ci dessous :

Application.ActivePrinter = Range("A1").Value

bon après midi
@+

 

[jbdubreuil]

Re : Impression en VBA

j'essaye de suite 😉

 

[jbdubreuil]

Re : Impression en VBA

Hello Pierrot,

J'ai essayé, mais j'ai un message d'erreur 🙁
C'est vraiment bête...



Private Sub CommandButton1_Click()
Sheet3.Select
Range("e2").Select
Range("e2") = ComboBox1


Sheet3.Select
Range("a2").Select
Selection.Copy
Range("d2").Select
ActiveSheet.Paste
Calculate
Application.CutCopyMode = False
Calculate
Sheet1.Select
Calculate
Application.ActivePrinter = Range("e3").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
Range("e3").Value, Collate:=True

 

[Pierrot93]

Re : Impression en VBA

Re

je ne comprends pas, je viens de tester le code ci dessous chez moi (excel 2003) et ca fonctionne :

Application.ActivePrinter = Range("A1").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
Range("A1").Value, Collate:=True

a1 renseignée avec la même construction du nom de l'imprimante que toi...

@+

Edition : quelle ligne bogue chez toi ?

 

[jbdubreuil]

Re : Impression en VBA

Pierror merci pour le temps consacré.
Je te joins mon fichier excel zippé.

J'espere vraiment que el probleme sera reglé aujourd'hui.

Je vais continuer de mon coté à bidouiller le fichier

@+

jb

 

[Pierrot93]

Re : Impression en VBA

Re jb

tu éxécute le code à partir d'un USF et pas forcement positionné sur la bonne feuille, je pense qu'il faut le préciser cvomme ci dessous :

Application.ActivePrinter = Sheets("para").Range("i1").Value

@+

 

[jbdubreuil]

Re : Impression en VBA

Excellent,
J'aurai du y penser effectivement.

Ca marche parfaitement,
Vraiment merci mille fois 🙂