Bonjour,

J'envisageais d'utiliser ces quelques lignes de code VBA pour lister tous les fichiers d'un répertoire:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
        ws = ThisWorkbook.Worksheets("MesFichiers")
        With Application.FileFind
            .Options = msoOptionsNew
            .Filename = ""
            .SearchPath = ThisWorkbook.Path
            If .Execute > 0 Then
                For i = 0 To .FoundFiles.Count - 1
                    j = j + 1
                    ws.Cells(j, 1) = Dir(.FoundFiles(i))
                Next i
            End If
        End With
L'exécution de ces quelques lignes bute sur l'instruction "Application.FileFind" avec un message d'erreur 445.

Après plusieurs heures passées à éplucher le forum VB de developpez.com et de quelques autres forums sans grand succès, j'ai cru comprendre que la méthode FileFind (alter ego de FileSearch de VBA pour PC) n'était plus supportée par VBA Mac.

Quelqu'un peut me le confirmer?
Comment contourner cette difficulté?

Merci d'apporter un éclairage à ma lanterne, à la lumière bien terne dois-je avouer.