Bonjour,

je sauvegarde des BD au format cvs, le nom des fichiers sont constitués d'un texte suivi de la date, heure et minute, nom fichier avec code ci-dessous.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
NomFichier = "Stock du " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " à " _
& Format(Time, "hh") & "h" & Format(Time, "mm") & "mm" & ".csv"
Pour mettre à jour ou revenir à une date ultérieure, j'ai le code ci-dessous qui me place directement dans le bon dossier où se trouvent les archives.
Ce dossier contient plusieurs archives par catégories (stock, commande, etc... suivi de la date).
Je voudrais vérifier que le fichier sélectionné contient le mot "stock", la procédure ce poursuit sinon un message averti que ce n'est pas le bon fichier.
Le code ci-dessous n'est pas de moi, j'ai juste adapter le nom de mon dossier
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
25
26
Sub MàJ_BD()
'Ouverture de l'explorateur Windows et récupération du chemin d'accès
Dim Fichier$, Niveau$, sPath$, Chemin$, Rep$
'Crée une boite de dialogue de sélection de fichiers :
With Application.FileDialog(msoFileDialogFilePicker)
    'Selection d'un seul fichier
   .AllowMultiSelect = False
 
Rep = Application.ThisWorkbook.Path
    'Repertoir de départ
   .InitialFileName = Rep & "\Archive des BD"
    'Affiche la boite
   .Show
    'si il y a une selection (donc si l'utilisateur n'annule pas la boite)
   If .SelectedItems.Count Then
        'Récupération du chemin complet selectionné
       sPath = .SelectedItems(1)
        'Trouver le niveau de sous dossier ou se trouve le fichier
       Niveau = (UBound(Split(sPath, "\")))
        'Récupérer la chaine de caractère (nom du fichier) du niveau trouvé
       Fichier = Split(sPath, "\")(Niveau)
        'Récupérer le chemin du dossier
       Chemin = Left(sPath, Len(sPath) - Len(Fichier))
    End If
End With
End Sub
En vous remerciant par avance.