Ouverture de fichiers en serie Macintosh
Bonjour,
J ai un probleme vec l execution d un code VBA sur mac.
Le but du code est d ouvrir 3 fichiers .xls les uns Apres les autres ,de copier une page et de la coller dans mon fichier recap.
Jusque là rien de compliqué, mon code marche tres bien sous window, mais sur MAC avec excel 2016 j ai un message d erreur 53 fichier introuvable. On dirait qu il ne trouve pas les fichiers dans le dossier.
Voici le code :
' BOUCLE SUR LES WORKBOOK
Dim file as string
Chemin = Sheets("start").Range("B4:B4").Value & Application.PathSeparator
Fichier = Dir(Chemin & "*.xls") ' Premier fichier à ouvrir
For file = 1 To 3
Application.AskToUpdateLinks = False ' evite la mise a jour des liens dans le fichier
Application.EnableEvents = False
Application.DisplayAlerts = False
Set WkMensuel = Workbooks.Open(Filename:=Chemin & Fichier)
If WkMensuel.Name = "1liste.xls" Then
............ Intructions..........
End if
Next fileMerci pour votre aide à ce sujet car cela fais deux semaines que je tente de resoudre le probleme..... ^^
Cordialement
Bonjour,
la fonction dir n'existe pas sur mac,
voir ici pour une solution de remplacement