Discussion :

[Mytå_Qc]

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å

[fred65200]

bonsoir Mytå_Qc,

La fonction FileDateTime renvoie la date du dernier enregistrement d'un fichier.

Code :

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

1
2
3
4
 Do While nextfile <> ""
    Debug.Print nextfile & vbLf & FileDateTime(nextfile)
    nextfile = Dir()
  Loop

cordialement

[Mytå_Qc]

Salut le forum

Merci Fred, d'avoir comblé mon blanc de mémoire

Mytå_QC