Discussion :

[papyjac]

Bonjour

J'ai écrit une procédure pour récupérer les noms de fichier contenus dans un dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[PMO2017]

Bonjour,

Au risque de dire une bêtise, ne faut-il pas utiliser le Slash ( / ) sous MAC plutôt que le BackSlash ( \ ) ?
L'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

U_Fichier = Dir(Chemin & "\*")

deviendrait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

U_Fichier = Dir(Chemin & "/*")

[AlainTech]

Bonjour,

Le séparateur de répertoires sur Mac est ":".
Si on veut rendre le code universel, on peut utiliser la propriété PathSeparator de l'objet Application.

Extrait de l'aide de VBA:

PathSeparator, propriété
Cette propriété renvoie le caractère séparateur du chemin d'accès (« \ »). Type de données String en lecture seule.

Exemple
Cet exemple montre comment afficher le séparateur en cours du chemin d'accès.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox "The path separator character is " & _
    Application.PathSeparator