[Résolu] Recherche de fichier...

[alias_2003]

Bonjour à tous,
Grâce au code suivant, l'utilisateur choisit un N° de fichier à l'aide d'une inputbox.
Le code ci-dessous me permet de retrouver dans un dossier précis, les fichiers contenant ce numéro. J'aimerais que le seul le fichier modifié le plus récemment soit ouvert.
Pouvez-vous m'aider à adapter ce code ??

Private Sub Commandbutton1_Click()
Dim rep
rep = InputBox("Quel N°, "recherche")
    Dim MyObj As Object, MySource As Object, file As Variant
   file = Dir("C:\")
   While (file <> "")
      If InStr(file, rep) > 0 Then
         MsgBox "found " & file
         Exit Sub
      End If
     file = Dir
  Wend
end sub

Merci beaucoup de votre aide,
Bonne journée

 

[Speel]

Re : Recherche de fichier...

Bonjour,
Peux tu donner le format d'écriture des noms de fichiers ?

monfichier1234.xls ou 1223monfichier.xls ou autre ??

 

[alias_2003]

Re : Recherche de fichier...

Bonjour Speel,
Merci de ta réponse !
Le format d'écriture peut varier ce qui ne facilite pas les choses... il est du type monfichier n°1234.xlsm ou monfichier n°1234 autresinfos.xlsm
Merci beaucoup,
Bonne journée

 

[Speel]

Re : Recherche de fichier...

Re, un début pour voir si ça marche chez toi !

EDIT : et version 2003

 

[alias_2003]

Re : Recherche de fichier...

Re-,
Merci beaucoup !
Ton fichier semble répondre parfaitement à mon problème ! Je te remercie beaucoup !
Bonne journée,
Amicalement