Bonjour,

Je me sert depuis quelque temps de votre forum ou je trouvais ce qu'il me fallait mais la je bloque.

J'ai un userform qui effectue une suite d'action dont une impression sur une imprimante réseau, cela fonctionne mais mon fichier va être utilisé sur plusieurs ordinateurs et suivant comment est installé l'imprimante réseau sur chaque poste le nom diffère :
Poste 1 : \\Réseau\imprimante
Poste 2 : \\réseau\IMPRIMANTE

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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 Dim ImprDef As String
 Dim ImprCommande As String
 Dim Port As Integer
 
 ImprDef = Application.ActivePrinter
 
 ' On test les différentes valeurs du port de l'imprimante distante
     For Port = 0 To 99
        'Si le Port et entre 0 et 9
        If 0 < Port < 9 Then
        ImprCommande = "\\reseau\IMPRIMANTE" & " sur Ne0" & Port & ":"
        Else
 
         'Si le Port et entre 10 et 99
         ImprCommande = "\\reseau\IMPRIMANTE" & " sur Ne" & Port & ":"
           End If
 
         On Error Resume Next
         ActivePrinter = ImprCommande
 
        If ActivePrinter = ImprCommande Then
             Sheets("Commande").PrintOut copies:=1, Collate:=True
             Exit For
         End If
 
     Next
 
    Application.ActivePrinter = ImprDef

Avez vous une solution pour passer outre ces majuscules et minuscules ?

Merci !