Méthode Workbook.OpenLinks (Excel)

Cette méthode ouvre les documents source d'une ou plusieurs liaisons.

Syntaxe

expression. OpenLinks (Name, ReadOnly, Type)

Expression Variable qui représente un objet Workbook .

Parameters

Nom Requis/Facultatif Type de données Description
Name Obligatoire String Nom du lien Microsoft Excel ou DDE/OLE, tel que retourné par la méthode LinkSources .
ReadOnly Facultatif Variant Affectez à cet argument la valeur True pour ouvrir des documents en lecture seule. La valeur par défaut est False.
Type Facultatif Variant Une des constantes de XlLink qui spécifie le type de lien.

Exemple

Cet exemple montre comment ouvrir la liaison OLE 1 du classeur actif.

linkArray = ActiveWorkbook.LinkSources(xlOLELinks) 
ActiveWorkbook.OpenLinks linkArray(1)

Cet exemple montre comment ouvrir tous les documents source Microsoft Excel du classeur actif.

Sub OpenAllLinks() 
 Dim arLinks As Variant 
 Dim intIndex As Integer 
 arLinks = ActiveWorkbook.LinkSources(xlExcelLinks) 
 
 If Not IsEmpty(arLinks) Then 
 For intIndex = LBound(arLinks) To UBound(arLinks) 
 ActiveWorkbook.OpenLinks arLinks(intIndex) 
 Next intIndex 
 Else 
 MsgBox "The active workbook contains no external links." 
 End If 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.