retrouver un nom de fichier

Bonjour à tous,

J'actualise tous les mois un rapport que je récuppére dans un fichier excel nommé "nom_de_mon_fichier- date d'actualisation du fichier(qui est sous le format "yyyy-mm-dd-hh-nn-ss").

Comme je veux copier des cellules du fichier que j'automatise tous les mois et dont son nom change tous les mois dans un second fichier.

Je voudrais savoir si qqun à une solution car je connais le jour de l'actualisation donc je n'ai pas de problème pour("yyyy-mm-dd") mais je ne connais pas l'heure exact ou il s'actualise. Et donc quand j'appelle mon fichier il ne le trouve pas.

Voici le code du fichier que j'appel tous les mois :

Code:

---

Set structure_clients_ = Application.Workbooks.Open(Filename:="C:\Users\SJH5594\Desktop\test\structure_clients_." & Format(Now, "yyyy-mm-dd") & ".xls")

---

Si qqun à une idée je suis preneuse.

Merci d'avance.

Bonsoir,

Voici une fonction qui peut retourner le nom du fichier:
(un seul fichier par jour bien sur)

Code:

---

1 2 3 4

Sub test() Debug.Print getPathAndFileName("c:\Users\SJH5594\Desktop\test\", "structure_clients_." & Format(Now, "yyyy-mm-dd"), "xls") End Sub

---

Code:

---

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 27 28 29

Function getPathAndFileName(strDirectory As String, strTemplateName As String, strExtension As String) As String Dim fso Dim fil   Set fso = CreateObject("Scripting.FileSystemObject")   'Parcourir les fichiers du dossier For Each fil In fso.GetFolder(strDirectory).Files 'Si c'est un fichier Excel xls alors...   If fso.GetExtensionName(fil.Name) = strExtension Then   'Si le fichier correspond au mpdèle alors... If InStr(fil.Name, strTemplateName) > 0 Then 'Retourner le nom du fichier et sortir de la fonction getPathAndFileName = fil.Path Exit Function End If   End If   Next fil   Set fso = Nothing   getPathAndFileName = ""   End Function

---

Cdlt

Bonjour arosec,

Je n'ai pas très bien comprit ton code le function je dois le mettre à quel niveau.

Merci pour ton aide

Bonsoir,

Tu peux remplacer:

Code:

---

Set structure_clients_ = Application.Workbooks.Open(Filename:="C:\Users\SJH5594\Desktop\test\structure_clients_." & Format(Now, "yyyy-mm-dd") & ".xls")

---

Par:

Code:

---

Set structure_clients_ = Application.Workbooks.Open(Filename:=getPathAndFileName("c:\Users\SJH5594\Desktop\test\", "structure_clients_." & Format(Now, "yyyy-mm-dd"), "xls"))

---

Tu peux copier la fonction dans un module:

Code:

---

1 2 3 4

public Function getPathAndFileName(strDirectory As String, strTemplateName As String, strExtension As String) As String ... end function

---

(ajoute le mot public devant la function pour qu'elle puisse être appelée depuis n'importe ou)

Cdlt,

Bonjour arosec,

J'ai bien fait ce que tu m'as dit j'ai mit ma fonction dans un module en y ajoutant public pour qu'elle puisse être appeller n'importe ou.

J'ai bien remplacer le code comme tu me l'as dit mais quand j'éxecute mon code il me met argument non facultatif.:(

Je ne comprend pourquoi il me met cela.

As tu une idée ?

Merci d'avance

Bonsoir,
Peux tu me joindre ton fichier?
Cdlt,

quand tu parle de l'heure exacte tu veux dire que le fichier porte également la date et l'heure ou qu'il n'a pas encore été généré?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'on regarde si il a été généré! if dir("C:\Users\SJH5594\Desktop\test\structure_clients_." & Format(Now, "yyyy-mm-dd") & ".xls") )<>"" then Set structure_clients_ = Application.Workbooks.Open(Filename:="C:\Users\SJH5594\Desktop\test\structure_clients_." & Format(Now, "yyyy-mm-dd") & ".xls") end if   'ou si il contient également l'heure! 'on cherche le fichier. fichier =dir("C:\Users\SJH5594\Desktop\test\structure_clients_." & Format(Now, "yyyy-mm-dd") & "*.xls") if fichier<>"" then 'on regarde si il a été généré! Set structure_clients_ = Application.Workbooks.Open(Filename:="C:\Users\SJH5594\Desktop\test\" & fichier ) end if

---

Merci bcp rdurupt ça fonctionne très bien.:P
Par contre fichier je l'ai déclarer en string c'était bien ça.

Et merci à toi aussi arosec.

Oui string