Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Fonction VBA pour modifier une liaison externe

3 réponses
Avatar
Jacques
Bonjour,

Existe-t-il une fonction permettant de modifier une liaison externe (entre
deux classeurs excel 2003)?

Merci

3 réponses

Avatar
isabelle
bonjour Jacque,

voici un extrait de l'aide sur la méthode ChangeLink et un exemple :


Modifie une liaison entre deux documents.

expression.ChangeLink(Name, NewName, Type)

expression Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.
Name Argument de type String obligatoire.
Nom du lien Microsoft Excel ou DDE/OLE à modifier, tel qu'il a été renvoyé à partir de la méthode LinkSources.
NewName Argument de type String obligatoire. Nouveau nom du lien.
Type Argument XlLinkType facultatif. Type de lien.
XlLinkType peut être l'une de ces constantes XlLinkType.
xlLinkTypeExcelLinks par défaut
xlLinkTypeOLELinks. Utilisez cette constante pour les liens DDE et OLE.

Exemple
Cet exemple montre comment modifier une liaison Microsoft Excel.

ActiveWorkbook.ChangeLink "c:excelbook1.xls", _
"c:excelbook2.xls", xlExcelLinks


isabelle

Bonjour,

Existe-t-il une fonction permettant de modifier une liaison externe (entre
deux classeurs excel 2003)?

Merci



Avatar
isabelle
ps/ pour obtenir la liste des lien de ton fichier :

Sub MesLinks()
'XlLink peut être l'une de ces constantes XlLink.
'xlExcelLinks
'xlOLELinks (gère également des liaisons DDE)
'xlPublishers
'xlSubscribers
aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
Range("A" & i) = aLinks(i)
Next i
End If
End Sub

isabelle

Bonjour,

Existe-t-il une fonction permettant de modifier une liaison externe (entre
deux classeurs excel 2003)?

Merci



Avatar
Jacques
Merci !


"isabelle" a écrit dans le message de groupe de discussion :

ps/ pour obtenir la liste des lien de ton fichier :

Sub MesLinks()
'XlLink peut être l'une de ces constantes XlLink.
'xlExcelLinks
'xlOLELinks (gère également des liaisons DDE)
'xlPublishers
'xlSubscribers
aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
Range("A" & i) = aLinks(i)
Next i
End If
End Sub

isabelle

Bonjour,

Existe-t-il une fonction permettant de modifier une liaison externe (entre
deux classeurs excel 2003)?

Merci