Bonjour

Voici mon code et je n'arrive pas à modifier celui ci comme je le souhaite
comment faire pour ne pas modifier le Nom du fichier des 4 derniers fichiers dbf que j'ai reçu.
c'est à dire les ignorer totalement car ça va créer des erreurs.
je reçois 4 fichiers pas jours que je ne souhaite pas modifier le jour même

Merci pour votre aide
ERIC

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
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

Merci