date de fichier

serval · 31 Octobre 2005

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! · 31 Octobre 2005

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 · 31 Octobre 2005

salut,

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

FAb

myDearFriend! · 31 Octobre 2005

Re

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

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

Bonne soirée.

date de fichier

serval

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

serval

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

Discussions similaires