Probleme VBA exel
Kino76
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je rencontre un probleme pour compter le nombre de fichier contenu dans un dossier car nous avons besoin du dictionnaire Microsoft Scripting runtime et il n'existe pas sous mac..
Connaissez vous un equivalent ou ce dictionnaire sous mac??
Voici mon code
----------------------------------------------------------------------------
Dim fso As Object
Dim DossierSource As Object
Dim Fichier As Object
Dim r As Long
Set fso = CreateObject("Scripting.FileSystemObject")
Set DossierSource = fso.GetFolder(/Users/***/Desktop/***")
r = 0
For Each Fichier In DossierDource.Files
r = r + 1
Next Fichier
MsgBox "Nb Fichier : " & r
-----------------------------------------------------------------------------
Merci d'avance
Je rencontre un probleme pour compter le nombre de fichier contenu dans un dossier car nous avons besoin du dictionnaire Microsoft Scripting runtime et il n'existe pas sous mac..
Connaissez vous un equivalent ou ce dictionnaire sous mac??
Voici mon code
----------------------------------------------------------------------------
Dim fso As Object
Dim DossierSource As Object
Dim Fichier As Object
Dim r As Long
Set fso = CreateObject("Scripting.FileSystemObject")
Set DossierSource = fso.GetFolder(/Users/***/Desktop/***")
r = 0
For Each Fichier In DossierDource.Files
r = r + 1
Next Fichier
MsgBox "Nb Fichier : " & r
-----------------------------------------------------------------------------
Merci d'avance
