Discussion :

[Peiro]

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.

[kiki29]

Sur la Version Excel 2007 PC effectivement FileSearch a disparu, pour contourner cela 2 liens
http://silkyroad.developpez.com/vba/classefilesearch/

Sur Excel 2008 Mac c'est VBA qui lui a disparu ...

Donc pour le moment la retranscription en VBA Mac des solutions données par les 2 liens çi-dessus serait une solution

Sinon http://www.google.fr/search?hl=fr&q=...chercher&meta=
http://www.google.fr/search?hl=fr&q=...chercher&meta=