Probleme VBA exel

Kino76 -  
michel_m Messages postés 16602 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

A voir également:

1 réponse

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour,
(sur win)
 Nbre_Fich = FSO.GetFolder(Dossiersource).Files.Count


mais il ne manquerait pas des gyullmets dans
Set DossierSource = fso.GetFolder("/Users/***/Desktop/***")
?

Sans FSO

chdir tonchemin 
fich=dir("*.*") 
while fich<>"" 
  nbre_fich=nbre_fich+1 
  fich=dir 
wend 

Michel
0