Erreur sur ouverture fichier

[flo2002]

Re bonjour,
j'ai un probleme avec des ouvertures de fichiers.
Voila, j'ai definit 5 variables donnant le nom de fichier. Le probleme est que sur mes differents fichiers, on utilisent pas les 5 variables, dont j'en ai une ou deux qui sont égale à "". Donc il va vouloir ouvrir le fichier "".
Et la je pense que ca plantera.
Donc je cherche un truc pour eviter les plantages. Du style je mets des bornes et si il ya une erreurs on passe à la borne suivante.
Est ce possible?

merci d'avance!

 

[porcinet82]

Re : Erreur sur ouverture fichier

Salut Flo,

Avec ton code on aurait pu adapter directement. Je vois plusieurs possibilités, soit tu tests si tes varaibles contenant les noms de tes fichiers sont vident, soit tu utilises On Error Resume Next et On Error Goto 0, regarde dans l'aide pour plus de détails.

@+

 

[flo2002]

Re : Erreur sur ouverture fichier

Bonjour le forum,
j'ai essayer le on error resume next, mais j'ai toujours le bug 91 sur ma variable.
Merci

 

[porcinet82]

Re : Erreur sur ouverture fichier

Salut Flo,

Chez moi ca a l'air de fonctionner avec le code suivant :

Sub test()
    Fichier1 = "C:\Documents and Settings\Moi\Bureau\effectifs.xls"
    Fichier2 = ""
    On Error Resume Next
    Workbooks.Open Filename:=Fichier1
    Workbooks.Open Filename:=Fichier2
    On Error GoTo 0
End Sub

Ainsi, avec ce code, la variable Fichier2 qui est vide et qui devrait faire planté la macro est ignoré grace au On Error Resume Next, le On Error GoTo 0 permet de réactiver la gestion d'erreur.

@+

 

[flo2002]

Re : Erreur sur ouverture fichier

re bonjour et merci Porcinet,

j'ai mis sur une conditionnelle pour contourner le probleme, etant donné que je connais la nature du bug:

If fichier3 = "" Then GoTo out3

merci