Verifier l'existence d'un fichier à partir de vba

cs_deubal Messages postés 198 Date d'inscription mercredi 26 novembre 2003 Statut Membre Dernière intervention 26 août 2009 - 24 mars 2004 à 11:03
cs_camouille Messages postés 5 Date d'inscription mercredi 17 mars 2004 Statut Membre Dernière intervention 17 décembre 2004 - 23 mai 2004 à 22:00
salut,
dans ma bdd access 2003, je souhaiterais qu'a l'ouverutre d'un des formulaires, le code verifie l'existance d'un fichier word ou access qui se situe dans le meme repertoire que la bdd. est-ce possible et comment faire??
Merci pour votre aide
A+
Deubal

7 réponses

cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012
24 mars 2004 à 12:51
Oui c'est possible. Tu dois ajouter la référence "Microsoft Scripting Runtimes". Ensuite, dans la procédure dans laquelle tu veux vérifier l'existence du fichier :

dim fso as filesystemobject

if fso.FileExists (chemindufichier) = true
'le fichier existe
else
'le fichier n'existe pas
end if
0
cs_deubal Messages postés 198 Date d'inscription mercredi 26 novembre 2003 Statut Membre Dernière intervention 26 août 2009
24 mars 2004 à 14:00
voici mon code, mais ca marche pas. j'ai purtant ajouter la reference

form_load()
dim fso as filesystemobject
ch = Application.CurrentProject.Path & "\fichier contacts.mdb"
If fso.FileExists(ch) = True Then
MsgBox ("fichier existant")
Else
MsgBox "fichier inconnu"
End If

A l'execution , ca plante sur la ligne :
if fso.fileExists...
avec le message "variable objet ou variable de bloc with non definie". il a pourtant bien le chemin d'acces au fichier dans la variable ch. Ca vient de quoi??
Merci
A+
Deubal
0
cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012
24 mars 2004 à 14:48
dim fso as new filesystemobject

désolé
0
cs_deubal Messages postés 198 Date d'inscription mercredi 26 novembre 2003 Statut Membre Dernière intervention 26 août 2009
24 mars 2004 à 15:06
merci
Bonne aprem'
A+
Deubal
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_camouille Messages postés 5 Date d'inscription mercredi 17 mars 2004 Statut Membre Dernière intervention 17 décembre 2004
23 mai 2004 à 18:32
Salut !
Je suis tout débutant en VB

Comment ajoute-t-on la référence "Microsoft Scripting Runtimes" ?
0
cs_deubal Messages postés 198 Date d'inscription mercredi 26 novembre 2003 Statut Membre Dernière intervention 26 août 2009
23 mai 2004 à 21:53
salut,
dans vba tu clique sur outils>references et tu coches dans la liste la reference.
A+
Deubal
0
cs_camouille Messages postés 5 Date d'inscription mercredi 17 mars 2004 Statut Membre Dernière intervention 17 décembre 2004
23 mai 2004 à 22:00
OK merci, c'était on ne peut plus simple.
J'avais réglée la question en utilisant Dir$()

Merci again 8-)
0
Rejoignez-nous