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

P

Pascal76

Guest

• 4 Février 2005

• #2

Bonjour

Voici un fil où tu trouveras ta solution je pense

Lien supprimé

Pascal

 

Vote positif 0 Vote négatif

W

wilfried

Guest

• 4 Février 2005

• #3

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

 

Vote positif 0 Vote négatif

W

wilfried

Guest

• 4 Février 2005

• #4

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

Bonne journée.

A+ Wilfried ;op

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 4 Février 2005

• #5

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

 

Vote positif 0 Vote négatif

R

robby

Guest

• 4 Février 2005

• #6

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

 

Vote positif 0 Vote négatif

C

Creepy

Guest

• 4 Février 2005

• #7

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

 

Vote positif 0 Vote négatif

R

robby

Guest

• 5 Février 2005

• #8

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 !

 

Vote positif 0 Vote négatif