FileFind (VBA Excel:Mac) ne marcherait plus?
Bonjour,
J'envisageais d'utiliser ces quelques lignes de code VBA pour lister tous les fichiers d'un répertoire:
Code:
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.
