Discussion :

[albedo0]

Bonjour,

Je débute sur VBA et je bloque sur un truc très simple à partir d'un code que j'ai trouvé dans la FAQ :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ImportFichiers()
    Dim Chemin As String, Fichier As String
 
    'Répertoire contenant les fichiers
    Chemin = ThisWorkbook.Path & "/"
    MsgBox Chemin
 
    'Recupe des fichiers
    Fichier = Dir(Chemin & "*.xls")
 
    Do While Len(Fichier) > 0
        Debug.Print Chemin & Fichier
        Fichier = Dir()
    Loop
End Sub

Lorsque je lance ma macro, j'ai l'erreur "fichier introuvable".
J'ai essayé sans le & "/" pour la définition du chemin mais c la même chose...

Avez-vous une idée pour m'aider ?

Merci par avance

[joe.levrai]

Bonjour,

Dir() n'a pas été nativement prévu pour Mac, il faut adapter un peu

voici une publication à ce sujet : http://www.rondebruin.nl/mac/mac013.htm

[albedo0]

Merci !!

Je vais fouiller le sujet ! Sachant que ma macro doit pouvoir fonctionner sur les deux systèmes...

[unparia]

Bonjour

Je n'en suis pas certain, mais il n'est pas par ailleurs impossible que le séparateur de chemins sous mac soit différent de celui utilisé sous Windows.
Dans le doute, j'utiliserais personnellement la propriété PathSeparator de l'objet application.

[kiki29]

Salut, sur et certain, comme suggéré par UnParia, utilise Application.PathSeparator car sur PC c'est "\" et Mac ":" et Office 2011 sur Mac car sinon AppleScript . Voir galère ici

[RyuAutodidacte]

Bonjour (coucou Joe, Kiki et Jacques )

En fait comme il y a des différences déjà entre Mac et PC, et sur certains point entre Excel Mac 2011 et 2016,
il faut apporter parfois de légère modifications.
Dans ce cas là le signe étoile ne sera pas reconnu en tant que tel c-à-d …
Je site M$ :

"MS Excel utilise le signe "*" comme un signe générique qui permet de remplacer tous caractères dans une chaîne,
un peu à la manière de MS-DOS. Dans ce cas, la fonction Remplacer remplace tous les caractères par le caractère choisi

… mais en tant que simple caractère d'où l'erreur

Par contre le caractère "*" avec Like ça marche

PS : la séparation sur Excel 2011 c'est ":" - sur Excel 2016 c'est "/"

il faut modifier la macro avec un If … Like … then

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ImportFichiers()
    Dim Chemin As String, Fichier As String
 
    'Répertoire contenant les fichiers
    Chemin = ThisWorkbook.Path & "/" ' ou => Chemin = ThisWorkbook.Path & Application.PathSeparator  | comme suggéré plus haut
    MsgBox Chemin
 
    'Recupe des fichiers
    Fichier = Dir(Chemin)
 
    Do While Len(Fichier) > 0
        If Fichier Like "*.xls" then ' tu peux aussi faire  => If Fichier Like "*.xls*" then  - ou encore => If Fichier Like "*.xls" Or Fichier Like "*.xlsx" then
           Debug.Print Chemin & Fichier
        End if
        Fichier = Dir()
    Loop
End Sub