listage fichiers répertoire et remplacement de caractères

[La Fougère]

Bonjour,
Je voudrais créer une macro dans excel 2007 dont la fonction serait la suivante :

1) lister tous les fichiers d'un répertoire et de ses sous-répertoires
2) si les noms de fichiers contiennent des caractères tels que "_", "é", "è"..., je voudrais les remplacer par d'autres caractères acceptés

Quelqu'un a t'il une solution à mon problème

Merci par avance.

 

[Guest]

Re : listage fichiers répertoire et remplacement de caractères

Bonjour,

En cherchant sur le forum tu devrais trouvé pleins de solutions.

Regardes déjà en bas de cette page dans la section "Discussion similaires" tu auras des débuts de réponses.

C'est un sujet souvent traité.

A+

 

[nath009]

Re : listage fichiers répertoire et remplacement de caractères

tu peux t'inspirer de cela :

        i = 0
        Do While strRepVentil <> ""
            If (GetAttr(strRepertoireAnnee & strRepVentil) And vbDirectory) = vbDirectory And _
                Left(strRepVentil, 6) = "VENTIL" Then
                
                    ReDim Preserve ListeRepVentil(i)
                    ListeRepVentil(i) = strRepVentil
                    i = i + 1
            End If
            strRepVentil = Dir
        Loop

et

Public Function retrourneStringSimple(ByVal pstrChaine As String) As String
Const entrees_AlphaNum_permises = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Dim i As Integer
Dim intTaillechaine As Integer
Dim KeyAscii As String

intTaillechaine = Len(pstrChaine)

For i = 1 To Len(pstrChaine)

    KeyAscii = Mid(pstrChaine, i, 1)
    
    If InStr(entrees_AlphaNum_permises, KeyAscii) = 0 Then
        pstrChaine = Replace(pstrChaine, KeyAscii, "")
        i = i - 1
    End If
    
Next i
retrourneStringSimple = pstrChaine

End Function