Vérification date fichier

Bonjour à tous et merci à ceux qui me lieront.

Mon problème devrait je l'espère paraitre simple à certains.

Je dispose d'une macro permettant d'ouvrir un fichier dont le nom est: fichier ddmmyy.

En fait, je dois ouvrir le fichier de la veille chaque jour.

Ce que je voudrais, c'est que ma macro vérifie que j'ouvre bien le fichier de la veille et

si ce n'est pas le cas (sélection d'un mauvais fichier), que la macro s'arrêt.

Voilà, j'espère que mes explictions sont assez explicites.

Merci d'avance

Bonjour,

- Tu veux une fonction qui vérifie que le nom du fichier contient la date d'hier ?

Ex : fichier 20082012.xls --> La fonction te renvoi OK si on est le 21 ?

Si oui alors un exemple (ya peux être mieux)

Function verif_date_hier(nomfichier As String) As Boolean
Dim hier As String

'Format fichier = Fichier DDMMYYYY.XLS
'A modifier si format différent
nomfichier = Left(nomfichier, InStr(1, nomfichier, ".") - 1)
nomfichier = Right(nomfichier, 8)

'Vérifie que la date écrite dans le nom du fichier correspond a la date d'hier
hier = Format(DateAdd("d", -1, Date), "DDMMYYYY")
If hier <> nomfichier Then
    verif_date_hier = False
Else
    verif_date_hier = True
End If
End Function

Pour l'utiliser :

Sub test()
If verif_date_hier("fichier 20082012.xls") = False Then Exit Sub
'Traitement
End Sub

Dis moi si cela répond a ta question ?

Damien