Correction code vba

[gagnonpeter]

****VOICI LE CODE QUE J'UTILISE******

Sub FermerImprEnr()

Application.ActivePrinter = "\\SEPINF01\IMCDEX05 sur Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\SEPINF01\IMCDEX05 sur Ne03:", Collate:=True

ThisWorkbook.Close savechanges:=True
End Sub


Mon problème est que dépendament de la personne qui utilise le macro, le code d'imprimante (Ne03) change et cela ne fonctionne qu'avec la bonne portant le (Ne03). Comment faire pour qu'il dire par exemple " de Ne01 à Ne99". Cela ferait en sorte que tout les utilisateurs portant un code dans cette plage pourraient utiliser le macro?

 

[xrevenge]

Re : Correction code vba

Ne03 est le nom de l'ordinateur je suppose. récupère le et passe en variable le nom de ton imprimante

 

[xrevenge]

Re : Correction code vba

voici la fonction : Environ("COMPUTERNAME")

regarde ce que ca donne avec MsgBox Environ("COMPUTERNAME").

 

[gagnonpeter]

Re : Correction code vba

Crois tu que tu pourrais me montrer comment l'écrire dans mon macro? Je commence dans le domaine et je sais pas trop encore comment l'intégrer dans ma formule.

 

[xrevenge]

Re : Correction code vba

Dim printername as string

printername="\\SEPINF01\IMCDEX05 sur " & Environ("COMPUTERNAME")


Application.ActivePrinter = printername
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
printername, Collate:=True

voila, essaye de faire une macro de type:

sub test()
MsgBox Environ("COMPUTERNAME")
End Sub

exécute et regarde ce qui s'affiche, tu veras qu'il s'agit du nom de l'ordinateur.

 

[gagnonpeter]

Re : Correction code vba

Ca ne marche pas. Mon imprimante par default n'est pas "\\SEPINF01\IMCDEX05 ". Crois-tu que c'Est pour ca que ca ne fonctionne pas?

 

[xrevenge]

Re : Correction code vba

as tu esayé la fonction test juste apres ? quel est le résultat quand tu l'exécutes?

 

[gagnonpeter]

Re : Correction code vba

Ca écrit " impossible d'executer en mode d'arret"

Voici la formule que j'ai écrit
---------
Sub EnrImprFerm()

printername = "\\SEPINF01\IMCDEX05 sur " & Environ("COMPUTERNAME")

Application.ActivePrinter = printername
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
printername, Collate:=True
Sub test()
MsgBox Environ("COMPUTERNAME")
End Sub
---------

 

[xrevenge]

Re : Correction code vba

crée un nouveau classeur , insère un nouveau module copie la partie sub test() ...... end sub

clique alors sur exécuter la macro et dis moi ce que tu vois.

 

[gagnonpeter]

Re : Correction code vba

J'ai fasi exactement ce que tu m'a dis et quand je fais exécuter, il apparait une fenetre me disant " impossible d'executer en mode d'arret"

 

[gagnonpeter]

Re : Correction code vba

Si je copie la partie sub test()...end sub dans un nouveau module, dois-je enlever cette partie de mon autre module?

 

[xrevenge]

Re : Correction code vba

oui, fais le dans un nouveau classeur meme. c'est juste pour tester la fonction

 

[gagnonpeter]

Re : Correction code vba

Ca m'inscrit PCH31784. C'est le numero du de l'ordi sur lequel je travail

 

[MichD]

Re : Correction code vba

Bonjour,

Si tu veux utiliser l'imprimante par défaut pour l'ordinateur,
Tu n'as qu'à ne pas définir le paramètre "ActivePrinter".
La commande va prendre l'imprimante par défaut pour
imprimer.

Probablement, je n'ai pas compris et j'ai lu trop vite!
;-)

MichD
--------------------------------------------------------------------

 

[excelman]

Re : Correction code vba

Bonjour à tous,

Sinon tu propose l'ouverture de la boite de dialogue pour choisir l'imprimante à utiliser

Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True