ouverture de fichier

Pour le boulot, je dois effectuer une macro.

Lors du lancement de celle-ci, la macro doit verifier le nom d'un fichier sauvé a un endroit specifique du disque C:.

Le probleme est que ce fichier se presente sous un nom "IR1_2009-04-23_78964.xls".
Sachant que ce fichier est tous les jours ecrasé (donc la date ainsi que la derniere reference sont tjs volatiles).
Comment faire pour indiquer a la macro de regarder pour le fichier dont le nom commence par "IR1_" la date du jour (ici c'est 2009-04-23) et de mettre cette date d'un texte box d'une userform?

Merci

essaye

Code:

---

1 2 3 4

dim reference as string reference="78964" msgbox "IR1_" & Format(Date, "yyyy-dd-mm") & "_" & reference & ".xls"

---

pour mettre la date dans un texte box

Code:

---

1 2	textbox1=Format(Date, "yyyy-dd-mm")

---

Personnellement si la date ne doit pas être modifier par l'utilisateur je préfère faire un intitulé et utiliser

Code:

---

Label1.Caption =Format(Date, "yyyy-dd-mm")

---

le prob est que ce que tu as defini comme reference est une reference volatile.

le fichier comporte tjs une reference differente d'un jour a l'autre sans aucune logique.

Je me posais la question de savoir si je pouvais "dire" la macro de regarder la date du fichier dont le nom commence par "IR1_"

Bonjour,

J'allais te coder un truc quand je me suis rappeler que Ouskel'n'or avait déjà fait une réponse à ce type de demande.
Alors rendons à César ce qui appartient à César.;)
Tu trouveras la discussion ici
et plus spécifiquement la réponse de ousekl'n'or ici.

À adapter pour ta demande, mais je pense que ça résolvera ton problème.

Je viens de donner cette réponse à une autre question sur le forum et je pense que ça pourrait t'aider !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub recherche() With Application.FileSearch .NewSearch .RefreshScopes .LookIn = "C:\data" 'Tu mets le nom du répertoire où se situe ton fichier .Filename = "IR1_*.*" .SearchSubFolders = True 'Si besoin, tu gardes cette ligne pour chercher aussi dans les sous-répertoires .Execute For Ctr = 1 To .FoundFiles.Count WorkSheets("Hello").Cells(Ctr,1) = .FoundFiles(Ctr) 'Place dans la cellule A1 de la feuille Hello le nom du fichier trouvé puis dans B1, C1... les autres fichiers commençant par IR1_ (Si tu n'en as qu'un seul, ben seule la cellule A1 sera remplie) Next End With End Sub

---

Et voilà ! Une fois que tu as dans A1 le nom de ton fichier, tu peux traiter cette chaîne de caractères pour récupérer la date et la référence dans deux autres cellules ou autres textbox.

EDIT : je viens de regarder ce qu'avait proposé Ouskel'n'or à "l'époque". C'est le même état d'esprit et, surtout, c'est la version déjà adaptée que je te propose :king:

J'avoue, j'ai été un peu fainéant sur ce coup 8-)