Discussion :

[Gaetan31]

Bonjour a tous,

Je dois actuellement crée une macro sous VBA qui permet de compter le nombre de fichier(pdf) dans un dossier et de l'afficher sur un fichier Excel
Le probleme est que je suis debutant et je n'arrive pas a récupérer les données que je vois lors de la simulation

Je joins la partie avec la fenêtre des variables locales, avec la donnée que je souhaite récupérer. Je cherche surtout l'instruction qui permet de récuperer la valeur count

Merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
30
31
32
33
34
35
36
37
38
39
'************************************************************************************************************
 
Sub ListeREX()
 
  Dim i, c As Integer 'i = ligne et j = colonne
  Dim j, r As Byte
  Dim Repertoire, SsRep As String
 
  Repertoire =  'nom du répertoire où se trouve les données Rg0
 
  [A:C].ClearContents      'Supprime la colonne A-C sauf le titre
 
  SsRep = Dir(Repertoire & "\", vbDirectory) 'Vecteur qui pointe sur le nom du sous fichier Rg1 "\" défini uniquement le sous dossiers
 
  i = 4
 
  Cells(3, 1) = "PN"
  Cells(3, 2) = "Nombre Fichiers"
 
 Set Fso = CreateObject("Scripting.FileSystemObject")
 Set DossierSource = Fso.GetFolder(Repertoire)
 
 Do While SsRep <> "" 'tant qu'il y a des fichiers dans REX
 
     If SsRep <> "." And SsRep <> ".." Then 'on supprime qd le programmme commence à compter il indique 2 valeurs incorrects <.> et <..>
 
        If GetAttr(Repertoire) = vbDirectory Then 'Vecteur qui pointe sur les sous fichiers
 
           j = 1
           Cells(i, j) = SsRep
           j = j + 1
 
           'Compter le nombre de fichier           
        i = i + 1
        End If
     End If
     SsRep = Dir 'A ce moment que le Dir change de valeur
  Loop
End Sub

[Invité]

bonjour,
regarde ce lien : http://warin.developpez.com/access/fichiers/

[kiki29]

Salut, nettement plus rapide ( x3 ) que FSO via les APIs, surtout quand le nombre de fichiers est important, par contre plus complexe et à adapter à ton contexte pour dégraisser la bête : ici

[Gaetan31]

Merci de vos reponses

Mes en regardant le lien de rdurupt, je n'arrive pas à activer le sous dossier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set DossierSource = Fso.GetFolder(Repertoire)

Je suis au niveau de mon dossier source, mais je n'arrive pas a selectionner le sous dossier de rang inférieur

Pour la solution de kiki,je suis débutant donc la complexité, ce n'est pas mon ami.

[kiki29]

Salut, ce qui est dommage c'est de partir battu d'avance.

[Invité]

bonjour,
tu veux compter tous les fichier du répertoire et des sous répertoires?

[Marc-L]

Bonjour, bonjour !

Pour un besoin de lister de simples fichiers, au lieu d'utiliser une bibliothèque ou API externes,
penser d'abord à la fonction Dir interne au VBA ‼
En consultant son aide et son exemple, niveau débutant …

Pleins d'exemples dans les discussions de ce forum comme celle-ci …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …