Detection présence fichier temporaire

Bonjour , je voudrais détecter la présence d'un fichier temporaire contenant ~$ dans mon dossier et ça ne marche pas ?, voici mon code :

Dim chemin$
chemin = "C:\Users\Paul\Documents\vba"
If Dir(chemin & "*~$*") = "" Then
MsgBox ("aucune detection")
end if

Une idée ?

Merci.

bonjour

essaie ceci

If Dir(chemin & "*~$*",vbhidden) = "" Then

Bonjour, non çà ne fonctionne pas ...

Merci.

bonjour,

pourtant ceci fonctionne chez moi

Sub test()
If Dir("d:\downloads\*~$*", vbHidden) <> "" Then
MsgBox "fichier temporaire trouvé"
End If
End Sub

Sub test()
If Dir("d:\downloads\*~$*", vbHidden) = "" Then
MsgBox "pas trouvé de fichier temporaire"
End If
End Sub

Ok je crois savoir pourquoi parce que j'essaye de récupérer la valeur du mois dans la cellule A2 qui conditionne mon chemin comme ceci :

Month(CDate(Worksheets("donnees").Range("A2"))) & "_sauvegarde"

Et il me met un valeur 2 au lieu de 02

Mon chemin il est faut

chemin = "C:\Users\Paul\Documents\vba\ " & mois & "\"

Du coup mon pb est ailleurs ...