Microsoft 365 recherche fichier sans un dossier

[pelerin65]

Bonjour le forum,

voila j'avais un fichier excel avec le code suivant

nomF = Sheets("Tableau de Bord").Range("Q2") '<- adapter éventuellement le nom de la feuille
If nomF <> "" Then
    fichier = Dir(CHEMIN_TR & nomF & ".xls*")
    If Left(fichier, Len(nomF)) = nomF Then
        VREP = MsgBox("Le Fichier" & " " & [Q2] & " " & "existe, l'ouvrir?", vbYesNo)
       If VREP = 6 Then
            Set wb = Workbooks.Open(CHEMIN_TR & fichier)
        End If
     Else
        VREP = MsgBox(fichier & "La tournée" & " " & [Q2] & " " & "n'existe pas, création d'un nouveau fichier ?", vbYesNo)
        If VREP = 6 Then
            Set wb = Workbooks.Open(CHEMIN_FICHIER_TR_BASE)
            wb.SaveAs (CHEMIN_TR & nomF & ".xlsb")
        End If
    End If
End If

J'aimerai pouvoir l'adapter à ce nouveau ficher qui est 100% avec des userform
ca me permets de pouvoir avoir un historique par N° de Tournée

je joins le fichier

 

[pelerin65]

Re
après il faudrait savoir ce que tu voudrais pouvoir rechercher , A partir de quoi . Un nom de tournée une date l
,les deux etc a toi d'y réfléchir .
Bonne journée
Jean marie

Re
Techniquement par date et pour toi idéal c'est quoi?
date,
date, et ESV

 

[ChTi160]

Re
Tu as un dossier "01-Tournee" qui contient tout l'historique des données "Journal" dans des fichiers . Tu veux pouvoir par exemple rechercher dans l'historique d'une "Tournée"
Les données d'une période où date.
C'est ça ?
Jean marie

 

[pelerin65]

Re
Tu as un dossier "01-Tournee" qui contient tout l'historique des données "Journal" dans des fichiers . Tu veux pouvoir par exemple rechercher dans l'historique d'une "Tournée"
Les données d'une période où date.
C'est ça ?
Jean marie

Bonjour Jean marie,
Désole Je suis au taf encore ce week-end de pont,
bien idéal serait de pouvoir aller chercher les historiques en rapport au numéro de tournée. car c est la réf absolu car par date , il faut pouvoir connaitre la date du dernier passage de la tournée
cordialement
JL