Discussion :

[kikim78]

Re le Forum

Dans un dossiers D:\test\ j'ai une disaine de fichiers textes dont je voudrais renommer en supprimant les caracteres "-" et "_";
Le probleme c'est que les noms de fichiers sont aleatoire et ne se ressemble pas.

Exemple: jj_mm-aaaa sera renommé jjmmaaaa
jj-mm_aaaa-vvvv sera renommé jjmmaaavvvv

Est il possible de realiser une telle macro, tout en indiquant le chemin du dossier dans la cellule A1 par exemple?!

Crdt,

[androginius]

Bonjour!
En supposant que dans la cellule A1 tu as écrit le path de ton dossier (D:\test), le code suivant devrait marcher.

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
 
Option explicit
 
Private Sub renommer()
 
    Dim nom As String, lettre As String
    Dim  fs, dossier, fichiers, f
    Dim j as integer
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dossier = fs.getfolder(Range("A1"))
    Set fichiers = dossier.Files
 
    For Each f In fichiers
        nom = ""
        For j = 1 To Len(f.Name)
            lettre = Mid(f.Name, j, 1)
            If lettre <> "_" And lettre <> "-" Then
                nom = nom & lettre
            End If
        Next j
        f.Name = nom                
    Next f
 
End Sub

Bonne soirée

[kikim78]

Re le forum,

C'est vraiment impecable androqinius!!

Je te remercie infiniment,

Crdt