date de fichier

serval

XLDnaute Occasionnel
bonsoir,

est-il possible d'afficher la date d'un fichier (dans ce cas un fichier Word) dans une cellule XL en fonction d'un lien?

je m'explique:

g dans une cellule un lien qui me permet d'ouvrir un fichier Word. Je cherche le moyen d'afficer dans une autre celulle d'XL la date de création de ce fichier.

est ce que quelqu'un a deja fait ca ou c faire?

merci de votre aide,
FAb
 

myDearFriend!

XLDnaute Barbatruc
Bonsoir serval,

Soit une liste de liens hypertextes pointant sur des fichiers en colonne A, la procédure suivante listera en colonne B les dates de création de chacun de ces fichiers :
Sub Traitement()
Dim oFso As Object
Dim
H As Hyperlink
      Set oFso = CreateObject('Scripting.FileSystemObject')
      For Each H In Columns(1).Hyperlinks
            H.Range.Offset(0, 1).Value = oFso.GetFile(H.Address).DateCreated
      Next H
      Set oFso = Nothing
End Sub
Cordialement,
 

Discussions similaires

Statistiques des forums

Discussions
312 923
Messages
2 093 663
Membres
105 779
dernier inscrit
le routier