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.