Discussion :

[emulamateur]

Bonjour,

J'ai créé une table temporaire récupérant les fichiers d'un répertoire :

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
 
Set oFSO = New Scripting.FileSystemObject
 
 
'répertoire des fichiers à récupérer
 repertoire = Me.texte23 ' répertoire des fichiers à scanner
 
 'vide la table tbFichiers
 DoCmd.SetWarnings False
 DoCmd.RunSQL "DELETE tbFichiers.* FROM tbFichiers;"
 DoCmd.SetWarnings True
 
 Set T = CurrentDb.OpenRecordset("tbFichiers")
 fichier = Dir(repertoire & "\*" & Me.Texte36)     'pour les fichiers .pdf
 Do Until fichier = ""
  T.AddNew
  T!fichier = fichier
  T!chemincomplet = repertoire & "\" & fichier
  T.Update
  fichier = Dir
 Loop
 
 T.Close
 Set T = Nothing

Parmi ces fichiers, certains contiennent la chaîne [Date de Drag'N Drop].

Je souhaite donc faire apparaître dans mon contrôle me.liste8, uniquement ces fichiers.

Code :

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

1
2
3
 
strSQL = "select * from tbfichiers where fichier like ('*[Date de Drag'N Drop]*');"
 Me.Liste8.RowSource = strSQL

Et ... rien ne se passe (la requête me sort bien tous les fichiers sans condition "where")

Quelqu'un aurait-il l'amabilité où pêche ma syntaxe strsql parce que je ne vois pas où le problème alors qu'il y en a manifeste un

Merci d'avance

[hyperion13]

Salut
Ne serait-ce pas plus tôt

Code :

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

strSQL = "select * from tbfichiers where fichier like ('" & [Date de Drag'N Drop] & "')" ' si string

Code :

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

strSQL = "select * from tbfichiers where fichier like (#" & [Date de Drag'N Drop] & "#)" ' si date

[emulamateur]

Merci pour la piste mais cela ne fonctionne pas

En fait, je me suis mal exprimé.

Je cherche à sélectionner uniquement les fichiers formatés ainsi : 20210701 113221 [Date de Drag'N Drop] conclusions.docx ou 20210701 113221 [Date de Drag'N Drop].docx

C'est-à-dire dans la table "tbfichiers" et dans "fichiers", tous les fichiers contenant la chaîne alphanumérique : [Date de Drag'N Drop] et uniquement ceux-là.

[hyperion13]

Re,
S'il faut s'assurer que le ou les premiers caractères du nom du fichier est ou sont numériques

Code :

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

strSQL = "select * from tbfichiers where fichier like '#*'"

[emulamateur]

Du tout, mais je note pour plus tard


Il faut seulement que le fichier contienne la chaîne : [date du drag'n drop]

[hyperion13]

Re,
Je pensais que l’expression entre crochets correspondait à la chaine date heure

Code :

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

strSQL = "select * from tbfichiers where fichier like '*[[]]*'

Code :

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

strSQL = "select * from tbfichiers where fichier like '*[[date du drag'n drop]]*'

[emulamateur]

Je m'étais, très certainement, mal exprimé.

En tous cas, merci beaucoup ! Cà marche !