renvoyer le nombre classeur d'un dossier dans une cellule

[laurent999]

Bonjour,

J'aimerais savoir s'il est possible de renvoyer le nombre de classeur contenu dans un dossier en cellule A1 de mon classeur ouvert.

exemple dans mon dossier "X" j'ai 10 classeurs j'aimerais avoir en A1 10 en valeur

Je pensais procéder comme cela.

Dim Repertoire As String, Fichier As String
Dim r as integer
Repertoire = ThisWorkbook.Path & "\X\"
Fichier = Dir(Repertoire & "*.xlsm")
r=(Fichier.count)
Range("A1").value = r

Mais rien à faire, je n'arrive pas à avoir le résultat en A1

merci pour votre aide.

Laurent

 

[phlaurent55]

Re : renvoyer le nombre classeur d'un dossier dans une cellule

Bonjour Laurent,

clique ci-dessous
Formation Excel VBA JB

ensuite clique sur Fichiers & répertoires(vba)

tu y trouveras ce que tu cherches et même beaucoup plus

à+
Philippe

 

[kjin]

Re : renvoyer le nombre classeur d'un dossier dans une cellule

Bonsoir,

Dim Repertoire As String, Fichier As String
Repertoire = ThisWorkbook.Path & "\X\"
Fichier = Dir(Repertoire & "*.xlsm")
Do While Fichier <> ""
    compteur = compteur + 1
    Fichier = Dir()
Loop
MsgBox compteur & " fichiers trouvés"

A+
kjin

 

[laurent999]

Re : renvoyer le nombre classeur d'un dossier dans une cellule

Un grand merci à vous,

A phLaurent pour le lien, je vais apprendre pleins de choses.
A kjin pour la solution.

Encore merci

Laurent.