Date de mise à jour des liaisons d'un classeur

J'ai des classeurs liés et je voudrais savoir la date de mise à jour des sources à la mise à jour des liaisons j'afficherai un petit msg "Dernière maj le 31/8/2001"

sub RechercheLiaisons()
   Liaisons = ActiveWorkbook.LinkSources(xlExcelLinks)
   If Not IsEmpty(Liaisons) Then
     For n = 1 To UBound(Liaisons)
        msg = msg & " La liaison " & Liaisons(n) & " à été mise à jour le : " &
 FileDateTime(Liaisons(n)) & vbCr
     Next n
     MsgBox msg, vbOKOnly, "Etat des liaisons du classeur"
   End If
 end sub

Auteur :

Mots clefs associés à cette page : , , , ,