Discussion :

[rossemma]

Bonjour,

j'ai ce petit code qui fonctionne très bien pour trouver un fichier du style "2024-11-01-nom.xlsx"

Code :

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

1
2
3
4
5
6
7
8
9
Public Function TrouveFichier(UnDossier As String, UnSuffixe As String, Optional AncienneteMax As Long = 10) As String
Dim i As Long
Dim UnFichier As String
While i < AncienneteMax And UnFichier = ""
     UnFichier = Dir(UnDossier & Format(Date - i, "yyyy-mm-dd") & UnSuffixe)
     i = i + 1
Wend
TrouveFichier = UnFichier
End Function

Je cherche à l'adapter pour trouver un fichier du style "nom_2024-11-01.xlsx"

Merci beaucoup pour votre aide.

[Valtrase]

Bonjour,
Une solution possible,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function TrouveFichier(UnDossier As String, _
                              ByVal Prefix As String, _
                              Optional ByVal UnSuffixe As String = ".xlsx", _
                              Optional AncienneteMax As Long = 10) As String
 
    If Right(Prefix, 1) <> "_" Then Prefix = Prefix & "_"
    Dim UnFichier As String
    Dim i As Long
    While i < AncienneteMax And UnFichier = ""
        UnFichier = Dir(UnDossier & Format(Date - i, Prefix & "yyyy-mm-dd") & UnSuffixe)
        i = i + 1
    Wend
    TrouveFichier = UnFichier
End Function

[rossemma]

cela ne fonctionne pas

totoKR = TrouveFichier("c:\perso\ & "share" & "", "SP_" & ".xlsx")

il ne me trouve pas de fichier, pq ?


De plus, peut on combiner les deux recherches soit nom_date, soit date-nom afin de n'avoir qu'un seul code
ce sont des fichiers automatiques et on ne peut changer le nom d'extraction.

[Valtrase]

Re,

totoKR = TrouveFichier("c:\perso\ & "share" & "", "SP_" & ".xlsx")

Ne manque t-il pas un antislash dans le chemin ?
De plus si Share est une variable elle ne doit pas être mise en guillemets. Si ce n'est pas le cas cela peut être remplacé par

Code :

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

1
2
TrouveFichier("c:\perso\share\", "SP_" ) 'Ou bien
TrouveFichier("c:\perso\share\", "SP_",".xlsx" )

Pour finir Unsuffixe est optionnel donc s'il est égal à ".xlsx" null besoin de le renseigner.

[rossemma]

exact mauvais copy/paste

voici le bon code :

Code :

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

totoKR = TrouveFichier("c:\perso\" & share & "\", "SP_")

[patmeziere]

Bonjour à tout les deux
juste en passant comme ça
quand je lis la réponse de Valtraze et que je lis la réponse du demandeur la #5

je me dis qu'il y a peut être confusion entre

un dir(dossier virgule vbdirectory)
et
un dir(dossier & peut être un slach si il n'y est pas & prefixe & "*" & format(blablabla) &"*" & suffixe )

les deux méthodes dir ne font pas la même chose

Patrick