Discussion :

[CIRE3]

Bonjour

J'aimerai exécuter ce code via Access (Module)

Je suis vraiment embêter et je n'arrive pas à faire du code pour ça , je dois importer de nombreux fichiers dbf. dans ma base mais le nom du fichier est trop long . Exemple : geodisvitry20120702 etc geodisvitry+datedujour etc ...

je souhaiterai supprimer par ce code le Mot geodisvitry de tous les fichiers dbf
qui se trouve dans le lecteur E .Sachant que le fichier dbf peut s'ouvrir avec Excel et après mes codes fonctionnent parfaitement

Quelqu'un aurait une idée pour créer ce code ?

Merci de votre aide

[zoom61]

Avec quelque chose comme cela tu pourrais peut-être renommer tous les fichiers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
NChemin = "chemin du répertoire ou se trouve les fichiers"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(NChemin & "\")
 
If (objDossier.Files.Count > 0) Then
	For Each objFichier In objDossier.Files
		NomFic1 = objFichier.Name
		NomFic2 = Replace(NomFic1, "geodisvitry", "") 
		FileCopy NomFic2, NomFic1
		Kill NomFic1
	Next
End If

[marot_r]

Le code trouvé ici : http://www.excelforum.com/excel-prog...using-vba.html

Devrait faire ce que tu veux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub x()
    Dim sFile As String
 
    ChDir "C:\myPath"    
    sFile = Dir("*v9test*")
    If Len(sFile) = 0 Then Exit Sub
 
    Do
        Name sFile As Replace(sFile, "V9test", "")
        sFile = Dir()
    Loop While Len(sFile)
End Sub

A+

[zoom61]

Il est vrai que je suis allé un peu vite sur le code :

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
Function test()
 
    Dim NChemin As String
    'Dans ton cas
    NChemin = "E:\"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objDossier = objFSO.GetFolder(NChemin)
 
    If (objDossier.Files.Count > 1) Then
        For Each objFichier In objDossier.Files
            NomFic1 = objFichier.Name
            NomFic2 = Replace(NomFic1, "geodisvitry", "")
            FileCopy NChemin & NomFic1, NChemin & NomFic2
            Kill NChemin & NomFic1
        Next
    End If
 
End Function

[CIRE3]

Bonjour,

Super pour le code le résultat est au RDV mais lorsqu'un autre fichier est remis dans le lecteur E (je les reçois tous les jours tel quel "geodisvitry+date du jour" . le code ne fonctionne plus et il me dit : Erreur d'exécution "70" Permission refusée
y a t il du code pour dire , nom du fichier "20120407"(date) toujours le même Nbre 8 passe au suivant jusqu'au fichier à modifier "geodisvitry20120607" Nbre 19 puis le modifier.

Merci pour votre aide

[marot_r]

Ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
if dir(NChemin & NomFic2)<>"" then
   'Supprimme le fichier renommé si il existe déjà
   Kill NChemin & NomFic2
end if

avant le FileCopy.

A+

[CIRE3]

Bonjour,

le code bloque à cette ligne
Kill NChemin & NomFic2
Ce que je souhaite, c'est de modifier les derniers fichiers trop long reçus et de garder le reste(qui lui a été modifié par le code de Zoom61)

Merci pour ton aide

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
Function test()
 
    Dim NChemin As String
    'Dans ton cas
    NChemin = "E:\"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objDossier = objFSO.GetFolder(NChemin)
 
    If (objDossier.Files.Count > 0) Then
        For Each objFichier In objDossier.Files
            NomFic1 = objFichier.Name
 
           If Dir(NChemin & NomFic2) <> "" Then
  'Supprimme le fichier renommé si il existe déjà
   Kill NChemin & NomFic2
    End If 
            NomFic2 = Replace(NomFic1, "geodisvitry", "")
            FileCopy NChemin & NomFic1, NChemin & NomFic2
            Kill NChemin & NomFic1
        Next
    End If
 
End Function