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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : tout au long de 2024, nous allons éliminer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d'informations, consultez :Envoyer et afficher des commentaires pour