Bonjour,

Je suis en train de migrer quelques macro excel de PC vers Mac, ou plus exactement de les rendre compatibles des deux OS.
Et là je tombe sur un os dans la macro suivante qui liste des fichiers d'un répertoire avec les dates de création, modification et accès aux fichiers.
Sur PC cette macro fonctionne, sur Mac l'instruction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
   Set fs = CreateObject("Scripting.FileSystemObject")
est en erreur : "Un composant active X ne peut pas créer un objet"

Merci de vos conseils.

PPz

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
18
19
20
21
22
23
24
25
26
27
Sub list_fic()
    If Application.OperatingSystem Like "*Macintosh*" Then
        OS = "Mac"
        C_Separateur = ":"
    Else
        OS = "PC"
        C_Separateur = "\"
    End If
    NomPath = Application.ActiveWorkbook.Path & C_Separateur
    MsgBox (NomPath)
    Name_Fic = Dir(NomPath)
    For i = 1 To 4
        Call AfficheInfoAccesFichier(Name_Fic)
        Name_Fic = Dir
    Next
End Sub
 
Sub AfficheInfoAccesFichier(specfichier)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(specfichier)
    s = UCase(specfichier) & vbCrLf
    s = s & "Créé le : " & f.DateCreated & vbCrLf
    s = s & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
    s = s & "Dernière modification le : " & f.DateLastModified
    MsgBox s, 0, "Infos d'accès au fichier"
End Sub