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 :
Set fs = CreateObject("Scripting.FileSystemObject")
est en erreur : "Un composant active X ne peut pas créer un objet"
Merci de vos conseils.
PPz
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 |
Partager