Compatibilité MAC de la fonction DIR
Bonjour
J'ai écrit une procédure pour récupérer les noms de fichier contenus dans un dossier
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Function StockerFichiers(Chemin As String) As Integer
Dim U_Fichier As String ' Résultat de la recherche avec DIR
Dim U_Tableau(1000) As String ' Nom des fichiers
Dim U_nb as integer ' taille du tableau
StockerFichiers = 0
U_Fichier = Dir(Chemin & "\*")
Do While U_Fichier <> Empty
U_nb = U_nb + 1
U_Tableau(U_nb) = U_Fichier
U_Fichier = Dir ' Fichier suivant
Loop
StockerFichiers = U_nb
End Function |
Je fonctionne correctement sous Windows en version Excel 2007, mais j'ai un problème en version MAC.
J'ai vu dans l'aide Excel qu'il fallait utiliser la fonction MacID
Citation:
Dir(Chemin, MacID("TEXT"))
Mais je ne sais pas quelle chaine il faut mettre dans le paramètre de MAcID pour récupérer tous les fichiers et pas seulement ceux d'un certain type
En complément, si je devais repérer uniquement les extensions ".eml" de Windows Mail qu'elle valeur devrais-je préciser dans MacID ?
Avec les remerciements
papyjac
