recuperer la date de modification d'un fichier excel

[david]

Bonjour à tous,
voila j'ai un fichier contenant un annuaire(annuaire.xls), un deuxieme fichier (base.xls)qui importe cette annuaire dans une feuille afin de faire divers traitements !

ma question est la suivante :
j'aimerais avant d'importé, verifier la date de modification du fihier annuaire.xls, et pour cela il faut que j'arrive a recuperer la date de modif du fichier annuaire. j'ai bien essayé cela :

Dim datemodif As String

datemodif = Format (annuaire.BuiltinDocumentProperties(12), "dd/mm/yyyy")

datemodif = annuaire.BuiltinDocumentProperties(12)

Dim datemodif As String

 

[sousou]

Bonjour à tous

L'utilisation du VBS peut s'avérer pratique.

Dans l'exemple ci-dessous, le fichier annuaire est dans le répertoire courant.

Sub test()
Set obj = CreateObject("Scripting.FileSystemObject")
Set fichier = obj.GetFile("annuaires.xls")
MsgBox fichier.DateLastModified
End Sub


Bonne chance
http://www.bellamyjc.net
Une adresse très utile pour ceux que le VBS interesse

 

[david]

merci cela fonctionne a merveille...