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

cs_DPhBxl
Messages postés
19
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
21 juin 2011
- 31 mai 2005 à 10:12
cs_DPhBxl
Messages postés
19
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
21 juin 2011
- 31 mai 2005 à 11:53
Ce message est déjà posté dans la catégorie [FICHIER/DISQUE], mais j'ai besoin d'une aide urgente. Pouvez-vous m'aide au problème énoncé ci-dessous ou au moin me donner une piste pour investiguer moi-même. Si quelqu'un peut me dire comment traiter les Links via VB et quelle bibliothèque de référence utiliser. Je crois avoir dé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ème:


En partant d'un répertoire de départ, j'établis la liste de tous les documents (y compris dans les sous-répertoires) afin d'en dresser une liste. Mon but est, à partir de cette liste, de détecter les liens inclus dans les documents et d'en dresser é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ésumons : J'ai le code qui me dresse la liste de tous les fichiers existant dans un répertoire (et sous-répertoire donné). Il me reste à créer le code me permettant de dresser la liste des links de ces fichiers. Et éventuellement de les modifier.

Merci de votre aide,

DPhBxl

1 réponse

cs_DPhBxl
Messages postés
19
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
21 juin 2011

31 mai 2005 à 11:53
J'ai même trouvé (mais toujours en VBA Excel) le moyen d'inserer, de modifier et de mettre à jour un link... Reste à 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 à jour d'un Link
ActiveWorkbook.UpdateLink Name:="Excel.Sheet.8|D:\folder2\file.xls!'", Type:=xlOLELinks


End Sub

DPhBxl
0