Discussion :

[sonia599]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[arosec]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sonia599]

Bonjour arosec,

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

Merci pour ton aide

[arosec]

Bonsoir,

Tu peux remplacer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[sonia599]

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

[arosec]

Bonsoir,
Peux tu me joindre ton fichier?
Cdlt,