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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
| Public Sub ImportationAutomatique()
'Déclaration de variables
Dim StrFichier As String
Const CHEMIN_FICHIER As String = "D:\"
Dim MaDate As String
MaDate = Format(DateAdd("d", -1, Date), "yymmdd")
If MsgBox("Confirmez-vous l'importation de la table Tache?", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
End If
'Initialisation
StrFichier = Dir(CHEMIN_FICHIER & "\TACHES_GE_I4D212_D" & Format(DateAdd("d", -1, Date), "yymmdd") & "_*.CSV")
MsgBox ("NOM FICHIER = " & StrFichier)
'Verifier que le fichier existe bien
If StrFichier = "" Then
MsgBox "le fichier" & StrFichier & " est introuvable!", vbExclamation
Exit Sub
End If
MsgBox "le fichier" & StrFichier & " a bien ete trouvé!", vbExclamation
'Vider la Table temporaire si elle existe
'(elle est de toute façon crée automatiquement si elle n'existe pas)
On Error Resume Next
CurrentDb.Execute "DELETE * FROM [TOTO];"
'Importer le fichier csv
DoCmd.TransferText acImportDelim, "TableModel", "TOTO", CHEMIN_FICHIER & StrFichier, True
DoCmd.SetWarnings False
'Tansfert de données vers R1
DoCmd.OpenQuery "R1"
'Tansfert de données vers R2
DoCmd.OpenQuery "R2"
'Transfer des données vers R3
DoCmd.OpenQuery "R3"
'Terminé!
DoCmd.SetWarnings True
MsgBox " Importation terminée !", vbInformation
End Sub |
Partager