adaptation code vba

Version imprimable

adaptation code vba

Bonjour,

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

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.

Bonjour,
Une solution possible,

Code:

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

03/11/2024, 12h52
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.
03/11/2024, 13h15
Valtrase
Re,

Citation:

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:

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.
03/11/2024, 13h42
rossemma

exact mauvais copy/paste

voici le bon code :

Code:

totoKR = TrouveFichier("c:\perso\" & share & "\", "SP_")
05/11/2024, 12h48
patmeziere

re

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
06/11/2024, 20h11
rossemma

cela ne fonctionne pas, pq ?
06/11/2024, 23h48
Valtrase

Bonjour,
Nous allons être aussi précis que vous :

Parce que...