vb evitant erreur

[zumye]

bonjour le forum

J'ai un soucis avec une imprimante dont le port je ne sais pas pourquoi change:

Cela fait plusieurs fois que je modifie le Ne01 en Ne02 ou Ne03 etc

j'aimerai juste un petit programme, qui si détecte l'erreur passe directement en Ne02, si c'est encore faux passe alors en Ne03, si encore faux passe en Ne04 etc jusqu'a Ne5

voici ma ligne d'origine:
Application.ActivePrinter = "\\Pe4\TEC B-SV4 sur Ne01:"


merci

 

[pierrejean]

Re : vb evitant erreur

Bonjour zumye

A tester:

For n = 1 To 5
   On Error Resume Next
     Application.ActivePrinter =\\Pe4\TEC B-SV4 sur Ne0" & n & ":"
     If Err.Number = 0 Then GoTo suite
   On Error GoTo 0
  Next n
suite:

 

[zumye]

Re : vb evitant erreur

merci pierrejean
="\\Pe4 manquait les premiers guillemets
ca marche très bien , super