Re : Historique Fichiers Ouverts
Re foufoudora, Bonsoir Didier
mon viel ami Didier, pourrais tu me passer tes codes: je fais un vieux blocage avec les xla (hé oui!)
foufoudora: au lieu de msgbox tu mets des noms de cellules genre cells(cptr,1)
cptr=1
For Each objfile In colFiles
Set fichier = objFSO.getfile(objfile.Name)
modif = fichier.DateLastModified
modif = CDate(Format(modif, "dd/mm/yy"))
If modif = Date Then
' sorties à adapter
cells(cptr,1)= objfile.Name
cptr=cptr+1
End If
Next