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
| Public Function supp_electrolux()
Dim NChemin As String
Dim NomFic1 As String, NomFic2 As String
'Chemin du disque
NChemin = "E:\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(NChemin)
If (objDossier.Files.Count > 1) Then
For Each objFichier In objDossier.Files
'Récupération du nom de l'ancien fichier
NomFic1 = objFichier.Name
'Création du nouveau nom en ne gardant que la partie date
NomFic2 = Replace(NomFic1, "electrolux", "")
'Renommer ancien fichier avec nouveau nom
Name NChemin & NomFic1 As NChemin & NomFic2
Next
End If
End Function
Function ImporteDbl1()
Dim NomFich As String
Dim StrSQL1 As String, StrSQL2 As String
Dim NomTbl As String
Dim fd As FileDialog, VPathFic As String
Dim Rqa As String
NomFich = Dir("E:*.dbf")
' tranferer tous les fichiers dbf. de l'emplacement C:/ etc ... . Ce qui génére une table nomée 0 dans access puis 1 etc ...
Do While NomFich <> ""
DoCmd.TransferDatabase acImport, "dBase IV", "E:\", , NomFich, False, False
'executer la requete R_Ajouts_TNT
Rqa = "R_Ajouts_TNT"
DoCmd.SetWarnings False
DoCmd.OpenQuery Rqa
' Supprimer la table 0 de la base
DoCmd.DeleteObject acTable, "0"
NomFich = Dir
Loop
End Function |
Partager