Dresser la liste des links dans les fichiers d'un répertoire

Question

Ce message est d&#233;j&#224; post&#233; dans la cat&#233;gorie [FICHIER/DISQUE], mais j'ai besoin d'une aide urgente. Pouvez-vous m'aide au probl&#232;me &#233;nonc&#233; ci-dessous ou au moin me donner une piste pour investiguer moi-m&#234;me. Si quelqu'un peut me dire comment traiter les Links via VB et quelle biblioth&#232;que de r&#233;f&#233;rence utiliser. Je crois avoir d&#233;couvert une piste mais seulement en VBA sur Excel :
    
    Dim ListeLinks As Variant


    ListeLinks = ActiveWorkbook.LinkSources(xlOLELinks)


    If Not IsEmpty(ListeLinks) Then
        For i = 1 To UBound(ListeLinks)
            MsgBox "Link " & i & ":" & Chr(13) & ListeLinks(i)
        Next i
    End If

-------------------------------------------------------------------
Bonjour,

Voici mon probl&#232;me:


En partant d'un r&#233;pertoire de d&#233;part, j'&#233;tablis la liste de tous les documents (y compris dans les sous-r&#233;pertoires) afin d'en dresser une liste. Mon but est, &#224; partir de cette liste, de d&#233;tecter les liens inclus dans les documents et d'en dresser &#233;galement une liste.
J'y parviens avec les fichiers DOC en cherchant le string...
[INCLUDETEXT "[file://SERVEUR01/Folder01/File01.doc \SERVEUR01\Folder01\File01.doc]"
   LINK : "[file://SERVEUR02/Folder02/File02.pdf \SERVEUR02\Folder02\File02.pdf]"
   LINK : "[file://SERVEUR02/Folder03/File03.xls \SERVEUR02\Folder03\File03.xls]"
FILE : "[file://SERVEUR01/Folder04/File04.xls \SERVEUR01\Folder04\File04.xls]"
   LINK : "[file://SERVEUR02/Folder05/File05.doc \SERVEUR02\Folder05\File05.doc]"


Et mon but ultime est de modifier ces liens en cas de changement de nom du serveur via un code en VB. Exemple: SERVEUR02 >> SERVEURxx

R&#233;sumons : J'ai le code qui me dresse la liste de tous les fichiers existant dans un r&#233;pertoire (et sous-r&#233;pertoire donn&#233;). Il me reste &#224; cr&#233;er le code me permettant de dresser la liste des links de ces fichiers. Et &#233;ventuellement de les modifier.

Merci de votre aide,

DPhBxl

cs_DPhBxl · Answer

J'ai m&#234;me trouv&#233; (mais toujours en VBA Excel) le moyen d'inserer, de modifier et de mettre &#224; jour un link... Reste &#224; l'adapter pour doc, ppt, mdb, ect et le tout en VB...

Sub Macro1()


    Range("A1").Select


    'Insertion d'un Link
    ActiveSheet.OLEObjects.Add(FileName:="D:\folder\file.doc", _
        Link:=True, DisplayAsIcon:=False).Select


    'Modification de la source du Link
    ActiveWorkbook.ChangeLink Name:="Excel.Sheet.8|D:folder\file.xls!'", _
        NewName:="Excel.Sheet.8|D:\folder2\file.xls!'", Type:=xlOLELinks


    'Mise &#224; jour d'un Link
    ActiveWorkbook.UpdateLink Name:="Excel.Sheet.8|D:\folder2\file.xls!'", Type:=xlOLELinks


End Sub

DPhBxl

Dresser la liste des links dans les fichiers d'un répertoire

1 réponse

Discussions similaires