cs_deubal
Messages postés198Date d'inscriptionmercredi 26 novembre 2003StatutMembreDernière intervention26 août 2009
-
24 mars 2004 à 11:03
cs_camouille
Messages postés5Date d'inscriptionmercredi 17 mars 2004StatutMembreDernière intervention17 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
cs_moustachu
Messages postés1079Date d'inscriptionjeudi 14 novembre 2002StatutMembreDerniè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
cs_deubal
Messages postés198Date d'inscriptionmercredi 26 novembre 2003StatutMembreDernière intervention26 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