Discussion :

[Thomas88-67]

Bonjour à tous;

J'ai un répertoire contenant beaucoup de PDF et il est enrichi tous les jours.
Je cherche à suivre ce répertoire en comptant le nombre de fichiers contenu dans le répertoire par date.
J'aimerais mesurer le nombre de fichiers par semaines, par mois et par années.

Pourriez-vous m'aider ?

Merci d'avance,

[Raccourcix]

Bonjour
Avec Power Query c'est très facile
Vous importez la liste des fichiers du dossier et vous construisez un TCD par jour
stephane

[Thomas88-67]

Bonjour Raccourcix;

Je te remercie pour ton retour rapide, en vérité comme cela se situe sur un TSE, je préfèrerais utiliser plutôt du VBA si cela est possible.

Aurais tu une solution en VBA ?

[Thomas88-67]

J'ai tenté ceci mais cela ne fonctionne pas...

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
Sub compteDate()
 
Dim Dossier As String, Fichier As String, dato As Integer
Dossier = "\\data2022\"
dato = 0
Fichier = Dir(Dossier)
 
Do While Fichier <> ""
  If FileDateTime(Fichier) = Now Then
  dato = dato + 1
  End If
  Fichier = Dir
Loop
 
  Sheets("rapport").Range("A1") = dato
 
End Sub

[Igloobel]

Bonjour,

déjà je te conseille ce tutos qui a plein d'astuces concernant la gestion des fichiers sous VBA

https://warin.developpez.com/access/fichiers
Particulièrement le chapitre I-D-2

Ensuite quand tu veux boucler d'un fichier à l'autre (une fois dans le bon dossier)
Je te conseille la fonction Dir en VBA (A ne pas confondre avec la commande DIR de la ligne de commande (héritage du DOS)

C'est ce qui est le plus simple

[Igloobel]

Ok nos posts se sont croisés
Je regarde

[Igloobel]

vite fait:

cela ne peut pas marché parce que Now renvoi la date + lheure de maintenant avec le Heures, minutes et secondes

donc tes fichiers ne sont pas égales à la date de Now il te faut extraire les années mois et jours seuls pour faire ta comparaison

A+

[Raccourcix]

Désolé d'insister, je ne suis pas spécialiste du sujet mais je ne vois pas en quoi faire une requête Power Query est gênant dans votre cas.
vous créez votre requête en 5 mn avec l'assistant

Code :

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

1
2
3
4
5
6
7
8
9
let
    Source = Folder.Files("C:\Temp"),
    #"Lignes filtrées" = Table.SelectRows(Source, each [Extension] = ".pdf"),
    #"Année insérée" = Table.AddColumn(#"Lignes filtrées", "Année", each Date.Year([Date created]), Int64.Type),
    #"Mois inséré" = Table.AddColumn(#"Année insérée", "Mois", each Date.Month([Date created]), Int64.Type),
    #"Jour inséré" = Table.AddColumn(#"Mois inséré", "Jour", each Date.Day([Date created]), Int64.Type),
    #"Autres colonnes supprimées" = Table.SelectColumns(#"Jour inséré",{"Name", "Année", "Mois", "Jour"})
in
    #"Autres colonnes supprimées"

Si vous voulez l'actualiser par VBA il suffit d'une ligne de code

Code :

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

1
2
3
Sub Actualise()
    ActiveWorkbook.Connections("RequêteXX").Refresh
End Sub

Stéphane