Discussion :

[Bernard67]

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.

[Domi2]

Bonjour,

Tu peux regarder la fonction Dir(). Un exemple ici dans la FAQ.

Domi2

[Bernard67]

Merci Domi2 pour ton aide.

Je joins le code final pour celles et ceux que cela interressent.
Merci encore et bonne AM

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
22
23
24
25
26
27
28
29
Private Sub Import_Fluxxxx_Click()

Dim Chemin As String
Chemin = "\\Chemin\FLU10*"
If Dir(Chemin, vbDirectory) > "" Then
MsgBox "FLU10*.CSV " & Chemin & " Le fichier FLU10xx.CSV est présent"

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

Else 
MsgBox "FLU10*.CSV" & Chemin & " Le fichier FLU10xx.CSV N'EST PAS PRESENT" 
End If 


 
End Sub