Discussion :

[Marionette]

Bonsoir,

J'ai eu une petite idée sur un module que je voudrais mettre en place, je vous explique..

A partir de ma BDD j'aimerais qu'un module surveille un dossier Windows en particulier et si il détecte un fichier portant le nom renseigné il me génère une alerte sur ma BDD.

J'aimerais donc ajouter un champ ou bouton qui me signalerait qu'un fichier portant le nom a été détecté dans le dossier renseigné.

Pensez-vous que c'est possible ? Ou je regarde trop de film ?

Cordialement,

[Pierre Fauconnier]

Salut.

Il n'y a pas de possibilités de placer un écouteur (un listener en langage informatique) sur un dossier Windows. La seule solution "automatique" que j'entrevois et d'utiliser une boucle perpétuelle dont tu sortiras dès qu'elle aura intercepté un fichier dans ton dossier. Ce processus est très coûteux en termes de ressources et je le déconseille vivement.

Normalement, une simple macro qui serait activée lorsque tu agis sur le fichier Access devrait suffire à ton bonheur, et ça permettrait de ne pas laisser un thread ouvert juste pour un truc que tu peux tester lorsque tu as besoin de le tester...

[Marionette]

Re,

Merci pour ton retour,

Lorsque tu parle de macro tu veux dire qu'il est possible de faire cela avec une macro ? Et à moi ensuite de l’exécuter pour que le job soit fait ? Si oui, pouvons-nous exécuter cette macro avec un timer ? toutes les 10 minutes par exemple....

Cordialement,

[Marionette]

Re de nouveau,

J'ai un début de piste avec le code suivant qui fait bien le Job mais à adapter à mon besoin.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande105_Click()
 
If Dir("C:\Dossier_test\Test.txt") = "" Then
  MsgBox "Le fichier n'existe pas"
Else
  MsgBox "Le fichier existe"
End If
 
End Sub

Dans mon cas je souhaiterais plutôt qu'un champ clignote ou qu'un chiffre soit inscrit dans ce champ correspondant au nombres de fichier portant ce nom.... Du genre
Fichier trouvé : 1

Ensuite j'aimerais un solution pour exécuter ce module automatiquement, avec un timer ou le code s’exécutera tous les X temps,

[Pierre Fauconnier]

Voici une fonction qui renvoie VRAI lorsque le fichier a été déposé. Il faut lui passer le nom complet du fichier et la durée de la boucle d'attente en minutes. J'y mets également une limite (fixée arbitrairement à 1 jour) pour ne pas qu'elle boucle indéfiniment. La procédure Test illustre comment utiliser cette fonction, en fixant la durée maximale d'écoute à 4 heures.

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
Function Listener(Filename As String, Minutes As Long, Optional EndTime As Date) As Boolean
  Dim Limit As Date
 
  If EndTime = 0 Then EndTime = Now + 1
  Listener = Dir(Filename) <> ""
  Do While Not Listener And Now < EndTime
    DoEvents
    Limit = Now + (Minutes / 24 / 60)
    Do While Now < Limit
      DoEvents
    Loop
    Listener = Dir(Filename) <> ""
  Loop
End Function
 
 
Sub Test()
  If Listener("e:\temp\scan\test.txt", 1, Now + CDate("4:00:00")) Then
    MsgBox "Le fichier vient d'être déposé", vbInformation
  Else
    MsgBox "Le fichier n'a pas été déposé dans le temps imparti", vbExclamation
  End If
End Sub

[Marionette]

Bonjour,

Tu ne mavais pas déconseiller cela dans les messages précédents ?

[Pierre Fauconnier]

Si, mais je ne vois pas d'autres solutions "automatiques" que celle-là ^^

Si maintenant tu acceptes l'idée d'une solution "qui n'écoute pas" mais qui fait à certains moments, tu peux te créer une fonction booléenne (qui renvoie VRAI ou FAUX) et la déclencher sur certains événements, par exemple la fermeture du formulaire, l'ouverture du fichier Access, un clic sur tel bouton du menu ou du ruban perso. L'idée étant de créer une fonction qui ne fait que cela, et d'appeler cette fonction "à la demande"...

[Marionette]

Salut,

Oui une fonction à la demande comme tu dis suffira, après si un déclenchement auto peut être intégrées du genre tous les X temps ce serait parfait.
Il ne serait pas possible de compter le nombre de fichier correspondant à mon critère ? Je pense crée un champ vers qui je renverrais cette valeur,

Par contre j'ai hommis quelques détails...

Au lieu de chercher un fichier correspondant au nom exact, J'aimerais que ce soit plutôt "contient..." le mot ....

Imaginons que le fichier contenu dans le dossier est "Marion_05032020.txt"

J'aimerais plutôt chercher si un fichier contient le mot "Marion" alors bingo !!

Ensuite j'ai intégrée un champs allant chercher le nom de l'utilisateur dans la BDD ODBC de la société , (juste pour l'esthétique)
J'aimerais que le code se base donc sur la valeur de ce champ.

Exemple
Nom utilisateur : Marion


Cordialement

[Pierre Fauconnier]

Pour chercher des fichiers dont le nom contient quelque chose, tu peux utiliser les jokers * et ? (comme dans une requête Access...). * remplace un nombre indéfini de caractères, ? remplace n'importe quel caractère à la place où tu l'a mis.


dir("Marion*") va chercher ce qui commence par Marion, dir("m?t.txt") retrouvera mat.txt, mot.txt, mit.txt, mbt.txt, ...


Pour ce qui est de le faire au clic ou tous les x temps, tu as tout ce qu'il te faut: Le faire au clic, c'est lancer la commande DIR sur un clic (je te conseille une fonction perso qui est appelée au clic), et pour le faire tous les x temps, je ne vois pas d'autre solution que ce que je t'ai donné plus haut dans la discussion. Je ne vois pas trop de quoi d'autre tu pourrais avoir besoin... ^^

[Marionette]

Bonjour,

Je vais essayer de bidouiller cela tout à l'heure, j'ai cru voir que "Mar%" Fonctionné aussi

Tu as oublié de répondre concernant le fait de pointer la recherche du mot en se basant sur la valeur d'un champ c'est possible ?

imaginons texte_106 dont la valeur = "Marion"

Cdt

[Pierre Fauconnier]

[...]
Tu as oublié de répondre concernant le fait de pointer la recherche du mot en se basant sur la valeur d'un champ c'est possible ? [...]

Il suffit de remplacer la chaine "..." par la valeur du champ ^^

[Marionette]

Excellent,

Dernière chose, peut-on compter le nombre de fichier trouvé ?

Cdt

[Pierre Fauconnier]

Avec Dir, la seule solution est de boucler tant que tu récupères un nom de fichier et de compter les tours de boucle. Perso, tant qu'à faire, je pousserais les noms de fichiers dans une collection (ça peut toujours servir) puis je compterais les éléments de la collection. Voici une fonction qui renvoie la collection des noms correspondant à un pattern et la procédure qui utilise cette fonction.

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
 
Function getFiles(FilenamePattern) As Collection
  Dim Filename As String
 
  Set getFiles = New Collection
  Filename = Dir(FilenamePattern)
  Do While Filename <> ""
    getFiles.Add Filename
    Filename = Dir()
  Loop
End Function
 
Sub test()
  Debug.Print getFiles("e:\temp\*.jpg").Count
End Sub

Sinon, sans récupérer les noms des fichiers, cette fonction donne le nombre de fichiers qui correspondent à un pattern.

Code :

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

1
2
3
4
5
6
7
8
9
Function getFilesCount(Pattern As String) As Long
  Dim Filename As String
 
  Filename = Dir(Pattern)
  Do While Filename <> ""
    getFilesCount = getFilesCount + 1
    Filename = Dir()
  Loop
End Function

Attention: ces fonctions ne récupèrent pas les infos pour les sous-dossiers!

[Marionette]

Salut Pierre,

Comment exécuter un module sur un bouton formulaire ?

Du genre

Code :

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

Private Sub Commande3_Click()

Cordialement,

[Pierre Fauconnier]

Salut.

On ne peut pas exécuter un module, mais bien une procédure dans ce module. il suffit de saisir le nom de la procédure à exécuter dans le corps de la procédure du bouton.

Code :

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

1
2
3
4
5
6
7
Private Sub Commande3_Click()
  DireBonjour
End Sub()
 
Sub DireBonjour()
  Msgbox "Bonjour"
End Sub

Si la procédure appelée requiert des paramètres, tu les places à la suite

Code :

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

1
2
3
4
5
6
7
Private Sub Commande3_Click()
  DireBonjour "Pierre"
End Sub()
 
Sub DireBonjour(Prenom As String)
  Msgbox "Bonjour " & Prenom
End Sub

Les procédures appelées peuvent être soit dans le module du formulaire qui contient le bouton, soit dans un module standard. L'endroit où tu les rangeras dépendra de leur finalité.