Workbooks.OpenText , On error continue

Bonjoru à tous,

Petit problème sans doute très simple à régler:

For i = 1 To imax
    NomBis = Nom & i & ".dfq"

    ChDir "S:\METRO\Gabin\DFQ qui bloquent\DFQ Pour Moulinette"
    On Error GoTo Suite
    Workbooks.OpenText Filename:= _
        "S:\METRO\Gabin\DFQ qui bloquent\DFQ Pour Moulinette\" & NomBis _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True

Suite:

Next i

Donc j'ai des fichiers qui s'incrémentent en fonction de " i " et j'arrive à les ouvrirs sans problèmes

Mais dans certains cas des fichiers sont absent, imaginons lorsque i=5 le fichier

Nom & 5 & ".dfq"

n'éxiste pas... et comme excel arrive pas à l'ouvrir il stop le programme complètement, je voudrais juste ignorer l'erreur et passer au i suivant... d'où le:

On Error GoTo Suite

Qui ne fonctionne pas..

Une idée ?

Merci
Gabin,

Bonjour,

teste d'abord l'existence du fichier avec Dir :
if Dir("D:\tmp\Classeur1.xlsm")<>"" then' le fichier existe
eric

Ah bah oui c'est simple comme solution et ca marche merci !!!

J'en profite pour poser une autre question toutes bête, je me retrouve avec une série de valeurs et je voudrais tester si elles sont égales:

IF(ET(A1=A2;A1=A3;A1=A4etc.....);"OK";"NOK")

Ca fonctionne mais si je supprime des colonnes au milieu de la selection bah... marche pu j'ai des problèmes de références....

si on pouvaus faire un truc avec (A1;A20) comme ca lorsque qu'on supprime des colonnes au milieur le formules s'ajuste toute seule

tu parles de colonnes, je vois plutôt des lignes...
=SOMMEPROD(--(INDIRECT("A2:A10")=A1))
te donne le nombre de valeurs de A2:A10 égales à A1
eric