Bonjour,

Si tu n'as pas modifié la copie, il me semble qu'il te faut créer un objet FSO et utiliser la propriété "dateLastModified"
Cordialement, Michel

Re,

voici un exemple à adapter a ta config: sheets, colonne num (???) etc

La macro listerdate "dossier désiré"appelle la sous macro reporterdate photo
le dossier est parcouru à la recherche des .jpg et on reporte la date de leur dernière modif ( voir mon observation + haut)

Sub listerdate()
 reporterdatephoto "D:\images\viti\" 'a adapter ton  chemin du dossier
End Sub


Sub reporterdatephoto(dossier As String)
Dim photojpg As Object
Dim fich As String
Dim lig As Long

Set photojpg = CreateObject("Scripting.fileSystemObject")
lig = 1
Application.ScreenUpdating = False

ChDir dossier
fich = Dir("*.jpg")
While fich <> ""
    Set datephoto = photojpg.GetFile(fich)
    Cells(lig, 2) = datephoto.dateLastModified
    lig = lig + 1
    Set datephoto = Nothing
 fich = Dir
Wend

Set photojpg = Nothing
End Sub

Bon...
Application;screenupdating=false fige le défilement de l'écran, ainsi gagne un temps fou et evite les flash de l'écran peu agréable quand par exemple on change de feuille

FSO fileSystemObject est une biobiothèque qui permet de manipuler les fichiers lire et écrire les propriétés: son avantage est qu'on travailler sur n'importe quelle extension (.jpg, .xls...) et surtout de le faire sans avoir à ouvrir les fichiers. Dans Office, tu as "documentproperties" qui peut lire des propriétés mais il faut que le document Office soit ouvert.

La variable Dossier est déclarée dans le paramêtre de la macro
Sub reporterdatephoto(dossier As String)

Quant à datephoto... J'aurais dû le déclarer!!! ca m'apprendra à n'avoir utilisé option explicit
donc
Dim datephoto as object
(c'est un sous-objet fso)

Bon WE (avé le soleil, milladiou!) Cordialement, Michel