Dim ligne, StrNom As String
Sub arborescence()
Application.ScreenUpdating = False
racine = "T:\"
Columns("a").ClearContents
Set fs = CreateObject("Scripting.FileSystemObject")
Set dossier_racine = fs.GetFolder(racine)
ligne = 1
Lit_dossier dossier_racine, 1
End Sub
Sub Lit_dossier(ByRef dossier, ByVal niveau)
StrNom = dossier.Path
ChangeCar
Cells(ligne, 1) = StrNom
ligne = ligne + 1
For Each f In dossier.Files
StrNom = f.Path
ChangeCar
If Not f.Attributes And vbHidden Then
Cells(ligne, 1) = StrNom
ligne = ligne + 1
End If
Next
For Each d In dossier.SubFolders
Lit_dossier d, niveau + 1
Next
End Sub
Sub ChangeCar()
If InStr(StrNom, "é") <> 0 Then StrNom = Replace(StrNom, "é", "e")
If InStr(StrNom, "è") <> 0 Then StrNom = Replace(StrNom, "è", "e")
If InStr(StrNom, "'") <> 0 Then StrNom = Replace(StrNom, "'", " ")
If InStr(StrNom, "ô") <> 0 Then StrNom = Replace(StrNom, "ô", "o")
If InStr(StrNom, "Ô") <> 0 Then StrNom = Replace(StrNom, "Ô", "O")
If InStr(StrNom, "ê") <> 0 Then StrNom = Replace(StrNom, "ê", "e")
End Sub