date de fichier

[serval]

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!]

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,

 

[serval]

salut,

merci de ta réponse!!!
on est obligé de passer par le VB???

FAb

 

[myDearFriend!]

Re

on est obligé de passer par le VB???

Moi, oui (mais je suis preneur d'une autre solution...)

Bonne soirée.