Suivi d'état d'un dossier

[hamidap]

Bonjour,

Je souhaite implémenter une marco en VBA qui détecte sur un dossier (qu'elle surveille constamment) à chaque fois qu'il y'a un fichier qui est rajouté dedans, elle doit le détecter et lancer un traiment dessus.

Merci d'avance.

 

[phlaurent55]

Re : Suivi d'état d'un dossier

Bonjour Hamidap et bienvenue sur le forum

voici un code pêché sur le site de Boisgontier
à adapter selon tes besoins

[B]Nombre de fichiers d'un répertoire et taille[/B]
 
repertoire = ThisWorkbook.Path & "\"
masque = repertoire & "*.xls"
nf = Dir(masque)
taille = 0
n = 0
Do While nf <> ""
  taille = taille + FileLen(repertoire & "\" & nf)
  n = n + 1
  nf = Dir()
Loop
MsgBox n
MsgBox taille

je pense qu'en ayant cela dans une macro qui scrute régulièrement le dossier, chaque changement de la valeur "n" devrait te signaler l'ajout d'un fichier

à+
Philippe
.

 

[hamidap]

Re : Suivi d'état d'un dossier

Bonjour Philippe,

Je vais essayer d'adapter ça à mon contexte. Merci de ta réponse.

 

[hamidap]

Re : Suivi d'état d'un dossier

Bonjour

je relance la discussion pour savoir si quelqu'un aurait une fonction qui scrute un dossier avec une certaine fréquence.

Merci

 

[hamidap]

Re : Suivi d'état d'un dossier

Up..................