Bonjour le forum,

Depuis un bouton du formulaire je lance ce code.
Serait il possible d’integrer un code afin de savoir si le fichier « FLU* » est présent sur le serveur ?
Actuellement le code se déroule même si il n’y a pas de fichier.
C’est ennuyeux car je cache les messages par : « DoCmd.SetWarnings False » donc on ne sait pas si le fichier a bien été chargé.
Voici le code utilisé.

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
Private Sub Import_Fluxxxx_Click()
Select Case MsgBox("Nous sommes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "Voulez vous recharger FLUxxxx ?", vbOKCancel, "BASE ACCESS ")
 
Case vbOK
'DoCmd.SetWarnings False
Call Importer_FLUxxxx
MsgBox "Le fichier FLUxxxx est importé dans la table T_FLUxxxx", vbOKOnly
DoCmd.OpenQuery "aQry_FLUxxxx"
DoCmd.OpenQuery "bQry_FLUxxxx"
'DoCmd.SetWarnings True
MsgBox "La table T_FLUxxxx_TOTALE est chargée" & vbNewLine & "La table T_FLUxxxx est vidée" & vbNewLine & "Vous pouvez actualiser le TABLEAU DE BORD", vbOKOnly
 
Case vbCancel
 
End Select
 
End Sub
Fonction qui se trouve sur le module1

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
Public Function Importer_FLUxxxx()
 
Dim strFichier As String
Dim strDossier As String
Dim strFichierFLU As String
 
strDossier = "Chemin du serveur"
strFichier = Dir(strDossier & "\FLU*.CSV", vbNormal)
 
If Len(strFichier) > 0 Then
strFichierFLU = strDossier & "\" & strFichier
DoCmd.TransferText acImportDelim, "FLU", "T_FLUxxxx", strFichierFLU
 
 
End If
 
End Function
Merci pour l’aide et bonne journée à toutes et tous.