Discussion :

[Renato75]

Bonjour à tous,

Comme dit dans le titre je souhaite ouvrir le dernier fichier .csv modifié d'un dossier.
Malheureusement, le code que j'utilise ci-dessous fonctionne mais n'ouvre pas le dernier fichier modifié et je dois avouer que je ne sais pas où se trouve mon erreur.

Un avis extérieur pourrait-il m'aider sur ce point svp ?

Je vous remercie d'avance !

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
30
31
Option Explicit
 
Sub LastFile()
 
Dim LinkCMTO As String
Dim AdresseCMTO As String
Dim Wbk1 As Workbook
Dim fso As Object
Dim f As Object
Dim file As Object
 
Set fso = CreateObject("Scripting.FileSystemObject")
LinkCMTO = "C:\Mesdocs\"
 
For Each f In fso.GetFolder(LinkCMTO).Files
    If LCase(Right(f.Name, 4)) = ".csv" 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
    AdresseCMTO = file.Path
  End If
Set Wbk1 = Workbooks.Open(AdresseCMTO)
Set fso = nothing
Set file = nothing
 
End sub

[parmi]

Bonjour,

Je n'utilise jamais le FileSystemObject... mais je pense que ce bout de code retourne le chemin, mais pas le nom du fichier

Code :

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

1
2
3
  If Not file Is Nothing Then
    AdresseCMTO = file.Path
  End If

Est-ce possible ?

[Renato75]

C'est possible, ça retourne le chemin et le nom du fichier.

[parmi]

Essaie comme ceci pour voir

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
Sub DernierFichier()
    Dim Chemin As String, Fichier As String, FichierTemp As String
 
    Chemin = "C:\Mesdocs\"
 
    Fichier = Dir(Chemin, vbArchive)
    Do While Left(Fichier, 1) <> "." And Fichier <> ""
 
        If Right(LCase(Fichier), 3) = "csv" Then
            If FichierTemp <> "" Then
                If FileDateTime(Chemin & Fichier) > FileDateTime(Chemin & FichierTemp) Then
                    FichierTemp = Fichier
                End If
            Else
                FichierTemp = Fichier
            End If
        End If
        Fichier = Dir
    Loop
 
    MsgBox FichierTemp
 
End Sub

[clementmarcotte]

Bonjour,

Je n'ai pas la documentation de fso sous la main; mais au lieu d'utiliser datecreated, regarde, s'il n'y aurait pas datelastmodified ou datelastsaved. En principe, ce sont des indicateurs plus fiables que datecreated, dès que le fichier a été moindrement utilisé après la date de création.

[Renato75]

Datelastmodified semble fonctionner à merveille !

En revanche parmi, la macro que tu m'as donné ne s'arrête jamais...

Merci à vous deux !

[parmi]

Ça fonctionne pourtant très bien ici...
L'as-tu copiée telle quelle ?

[Renato75]

Je l'ai copié/collé telle quelle en adaptant à ma macro... C'est bizarre !