Discussion :

[Stutak]

Bonjour,

J'ai une macro pour lister les fichiers d'un répertoire établi sur ma feuille excel.

Merci à je ne sais plus qui pour ce 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Liste_Fichiers()
    Dim Fichier As String, Chemin As String
    Dim i As Integer, m As Integer, a As Integer
 
    'Nécessite d'activer la référence "Microsoft Scripting RunTime"
    '
    Dim Fso As Scripting.FileSystemObject
    Dim FileItem As Scripting.File
 
    '---liste les fichiers du répertoire ---
    Chemin = ThisWorkbook.Path & "\En cours"
 
    Fichier = Dir(Chemin & "\*.*")
    'pour filtrer sur un type de fichiers (par exemple xls)
    'Fichier = Dir(Chemin & "\*.xls")
 
    'Boucle sur les fichiers
        i = WorksheetFunction.CountA(Sheets("Tous").Columns(2)) + 3
        m = i
 
    Do
        Set Fso = CreateObject("Scripting.FileSystemObject")
        Set FileItem = Fso.GetFile(Chemin & "\" & Fichier)
 
        For a = 4 To i
        If Fichier = Cells(a, 1) Then
                GoTo Line1
        End If
        Next a
 
        Cells(m, 1) = Fichier
        m = m + 1
 
Line1:
     Fichier = Dir
 
        i = 1 + i
    Loop Until Fichier = ""
 
End Sub

Cela fonctionne parfaitement
SAUF quand il y a un accent dans le nom du fichier, il faut pour continuer la macro que je supprime l'accent sur le nom.
Je précise que je ne suis pas maître du nom du fichier et que je le prends comme il est.

Quelqu'un aurait-il une solution pour que ma macro puisse également lire les accents.
Merci

[ARTURO83]

Bonjour,

Ajoutez Option Compare text, tout en haut du module avant "Sub Liste_Fichiers()"

Code :

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

1
2
3
4
5
Option Compare text
 
Sub Liste_Fichiers()
    Dim Fichier As String, Chemin As String
    Dim i As Integer, m As Integer, a As Integer

Cdlt