Fonction VBA pour modifier une liaison externe

Le
Jacques
Bonjour,

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

Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #5237451
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



isabelle
Le #5237441
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



Jacques
Le #5237341
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



Publicité
Poster une réponse
Anonyme