Bonsoir à tous, j'aimerai savoir comment je peux me servir de cette fonction la dans mon programme, ou est-ce que je dois l'insérer pour que quand je double clic sur mon fichier excel, il me lance le dernier fichier créer dans mon dossier

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
Function LastFileNameOfDirectory(directory As String, extension As String) As String
Dim objFso As Object
Dim file As Object
  Set objFso = CreateObject("Scripting.FileSystemObject")
 
  For Each f In objFso.GetFolder(directory).Files
    If LCase(Right(f.Name, Len(extension) + 1)) = "." & extension Then
      If file Is Nothing Then
        Set file = f
      Else
        If f.DateCreated > file.DateCreated Then Set file = f
      End If
    End If
  Next
 
  If Not file Is Nothing Then
    LastFileNameOfDirectory = file.Path
  Else
    LastFileNameOfDirectory = ""
  End If
 
  Set objFso = Nothing
 
End Function
j'allais oublier ceci :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set objTxt = objFso.OpenTextFile(LastFileNameOfDirectory("c:\sesame\resultats\", "txt"), 1)