Excel 2011 VBA sur Mac OS X 10.7

[roro14]

Bonjour !

Je souhaiterais lister les noms de fichier d'un dossier mais je n'arrive pas a le coder .
La fonction did ne fonctionne pas correctement . J'ai tout essayé avec did(""); did ( xxx, macis("xlsx")….
J'en ai besoin d'urgence
QUelquun pourrait m'aider s'il vous plait ?

merci par avance

Sub ListingFichiers()
Dim Rep As String, Fichier As String, Mydir As String
Dim i As Integer
i = 5
'Mydir = ActiveWorkbook.Path
Rep = "Macintosh HD:users:mariegh:Desktop"
'Fichier = Dir(Rep, MacID(""))
'Fichier = Dir(Rep, MacID("XLSX"))
'Fichier = Dir(Rep, MacID("XLSX"))
Fichier = Dir(Rep, vbNormal)
Fichier = Dir("")
Do While Len(Fichier) > 0
    i = i + 1
    ActiveWorkbook.Sheets("Feuil3").Range("A" & i) = Fichier
    Fichier = Dir
Loop
End Sub

 

[Aliboron]

Le fonctionnement de Dir() est assez imprévisible dans Excel 2011. On peut tout de même arriver à un résultat décent (enfin, parfois) avec cette macro (très, très voisine de la tienne) :

Sub ChercherLesFichiers()
Dim MonChemin As String
MonChemin = ThisWorkbook.Path & Application.PathSeparator
Dim NomFichier As String

NomFichier = Dir(MonChemin, MacID("XLSX"))
'NomFichier = Dir(MonChemin, MacID("XLSM"))
i = 1
Do While Len(NomFichier) > 0
ActiveSheet.Range("A" & i).Value = NomFichier

NomFichier = Dir
i = i + 1
Loop
End Sub

Ceci dit, si tu veux des résultats fiables, intéresse-toi aux indications et aux macros données par Ron de Bruin sur ses pages dédiées au VBA pour Excel 2011, et plus particulièrement à celle-ci (qui a d'ailleurs été reprise sur la KB MSDN)...

 

[roro14]

Merci beaucoup pour cette réponse rapide
Malheureusement , cela ne fonctionne pas ...
Il y til une fonction/ macro simple qui me permette de lister tous les noms de fichiers d'un repertoire et ses sous repertoires donnés ?

Merci encore pour ton aide