Probleme VBA exel

Fermé

Kino76 - 25 juil. 2011 à 15:41
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 25 juil. 2011 à 17:13

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:

Probleme VBA exel
Formule exel - Guide
Exel 2013 - Télécharger - Tableur
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 25/07/2011 à 17:22

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters