Salut le forum

Une nouvelle question, comment récupérer les dates des fichiers
dans le code les dates de NextFile
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
Sub Lire_Fichier()
Set FSource = Application.FileDialog(msoFileDialogFolderPicker)
      With FSource
      .InitialFileName = "C:\"
      .Show
      If .SelectedItems.Count > 0 Then
        ChoixDossier = .SelectedItems(1)
      Else
        ChoixDossier = ""
        Exit Sub
      End If
    End With
  ChDir ChoixDossier
  Répertoire = CurDir()
  Masque = Répertoire + "\*.xls"
  Nextfile = Dir(Masque)
'******************************************
'* Je désire récupérer la date du fichier *
'******************************************
  Do While Nextfile <> ""
    MsgBox Nextfile & vbCrLf & "Date = ????????"
    Nextfile = Dir()
  Loop
End Sub
Merci à l'avance
Mytå