ouvrir un fichier, mais ne pas planter si il n existe pas

[robby]

Bonjour,
Voila, je voudrais faire un programme, qui vas chercher dans un fichier la reference que l on lui donne:
Par exemple : "fichierRefA123" et la il va ouvrir le fichier "fichierRefA123".
Mais si le fichier est absent du repertoire, il faut que cella signifie quelque chose.

Pour l instant j utilise: workbooks.open filename:= ...
Et j aimerais que si il n y a pas ce fichier dans le repertoire, comprendre ce qui ce passe (au lieu de faire planter ma macro comme en ce moment)
Soit, si le fichier n est pas present, cella signifie que la reference a ete supprime.

J espere que c est comprehensible.

Salutations
Robby

 

[Pascal76]

Bonjour

Voici un fil où tu trouveras ta solution je pense

Lien supprimé

Pascal

 

[wilfried]

Salut robby,

Tu peu utilié la gestion des erreurs :

on erreur resume gest_erreur
workbooks.open filename:= ...
blaballbalb
exit sub
gest_erreur:
select case err.number
case 1004
msgbox "le fichier rechercher n'existe pas"
exit sub
case else
msgbox "erreur numero : " & err.number " -> "& err.description
end select

Il faut que tu adapte le numéro d'erreur de mémoir si le fichier est absent c'est 1004 mais chui pas sur!!!

test ton prog en pas à pas sans la commande on error....

A+ wilfried ;op

 

[wilfried]

Oupps salut pascal76 je t'avait pas vu toujours les pb de rafraichissement.

Bonne journée.

A+ Wilfried ;op

 

[Pascal76]

Salut Wilfried

Là même en rafraichissant tu n'aurais rien vu on a posté dans la même minute.

Quelle synchronisation !!!!

En plus cela donne 2 réponses différentes

Pascal

 

[robby]

Merci Wilfried, je vais essayer ca.
Merci Pascal; et j avais cherche dans le forum, mais je n ai pas du avoir les bons mots clefs.
Merci a tous les deux, je vais essayer.
Salutations

 

[Creepy]

Hello all,

Allez j'y vais de ma petite pierre à l'édifice

Function FichierExiste(filespec)
' --------------------------------
' Vérifie l'existence d'un fichier
' Renvoie True si le fichier existe
' --------------------------------

Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
FichierExiste = IIf(fso.FileExists(filespec), True, False)
End Function
Sub essai()
fichier = "c:\autoexec.001"
If FichierExiste(fichier) Then
MsgBox "Le fichier " & fichier & " existe"
Else
MsgBox "Le fichier " & fichier & " n'existe pas"
End If
End Sub

++

Creepy

 

[robby]

super Creepy.
Je vais essayer ca tout a l heure des que je serais chez moi.
Mais c est exactement le genre de programme qu'il me faut.
Merci !