Discussion :

[DUCKY_]

Bonjour à tous,

Je suis apprentis dans une boite et mon tuteur a commencé une base access.

Ma situation :

J'ai une base access qui ,à partir d'un fichier excel se trouvant au même endroit que ma base, réalise des fonction d'ajout, de mises à jours etc ...J'ai crée un formulaire dans lequel l'utilisateur clique sur un bouton pour lancer le module que j'ai crée qui lance mes mises à jours etc ...

Mon problème :

Je souhaiterais que lorsque l'utilisateur clique, cela vérifie que le fichier, TableOP est bien présent et écrit de cette manière ce qui dans le cas échéant renverra un message d'erreur ...

Voici ce que j'ai tenté de faire à partir du code que mon tuteur a pu réalisé ( il est absent pour 1 semaine ... ). Son code à lui consistait à prendre le fichier TableOP et l'importer dans access.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function ExisteFichier(ByVal strFichier As String) As Boolean
Dim str As String
On Error GoTo err01
str = Application.CurrentProject.Path & "\TabOpDetailsHDI.xls"
ExisteFichier = True
Exit Function
err01:
    Select Case Err.Number
        Case 3265
        ExisteFichier = False
    End Select
 
End Function
Sub Vérification_fichier()
 
DoCmd.SetWarnings False
 
' On vérifie la présence et/ou la bonne orthographe du fichier TableOpDetails.xls
If ExisteFichier = True Then
Else: MsgBox " Attention ! Il n'existe pas de fichier TableOpDetails.xls ou celui-ci est mal orthographié. Veuillez vérifier sa présence et/ou son orthographe puis ré-essayer la Mise à Jour."
End Sub

C'est surement très moche etc mais je n'y connais rien et j'y suis allé un peu tête baissé, en me disant peut-être que ...

En parralèle je cherche sur le net comment bien construire la chose, les fonction etc ....

Cordialement,

[DUCKY_]

Bonjour,

J'ai donc utilisé la chose suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set filesys = CreateObject("Scripting.FileSystemObject")
le_chemin_du_fichier = "C:\chemin\TabOpDetailsHDI.xls"
If filesys.FileExists(le_chemin_du_fichier) Then
' faire machin si il existe
Else
' faire machin

Voilà voilà ....

Merci quand même ;-)

[Pouloups]

Bonjour,
perso j'utilise la fonction DIR

If Dir(Path) <> "" Then xxxx Else xxxx

si ca peut te servir à quelque chose ....

Bonne journée

[FreeAccess]

Bonjour,

Souvent les réponses aux questions se trouve déjà dans la .......(à lire avant toute chose..)
Comment tester l'existence d'un fichier ?