vb evitant erreur

zumye · 14 Juin 2011

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 · 14 Juin 2011

Re : vb evitant erreur

Bonjour zumye

A tester:

Code:

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 · 14 Juin 2011

Re : vb evitant erreur

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

vb evitant erreur

zumye

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

zumye

XLDnaute Occasionnel

Discussions similaires