Méthode Application.DDERequest (Word)

  • Article

Utilise un canal d'échange dynamique de données exchange (DDE) pour requérir des informations provenant de l'application destinataire et renvoie ces informations sous forme de chaîne.

Syntaxe

expression. DDERequest( _Channel_ , _Item_ )

expression Variable qui représente un objet « Application ». Facultatif.

Paramètres

Nom Requis/Facultatif Type de données Description
Canal Obligatoire Entier long Numéro de canal renvoyé par la méthode DDEInitiate.
Item Obligatoire String Élément à requérir.

Remarques

Lorsque vous demandez des informations provenant d'une rubrique de l'application serveur, vous devez spécifier l'élément de cette rubrique dont vous demandez le contenu. Dans Microsoft Office Excel, par exemple, les cellules sont des éléments valides et vous pouvez y faire référence soit en utilisant le format « R1C1 », soit au moyen de plages nommées.

Microsoft Excel et les autres applications qui prennent en charge DDE reconnaissent une rubrique nommée « Système ». Trois éléments standard de la rubrique Système sont décrits dans le tableau suivant. Vous pouvez obtenir une liste des autres éléments de la rubrique Système à l'aide de l'élément SysItems.

Élément de la rubrique Système Effet
SysItems Renvoie la liste de tous les éléments de la rubrique Système.
Topics Renvoie la liste de toutes les rubriques disponibles.
Formats Renvoie la liste de tous les formats Presse-papiers gérés par Word.

Exemple

Cet exemple montre comment ouvrir le classeur Microsoft Excel Book1.xls et extraire le contenu de la cellule R1C1.

Dim lngChannel As Long 
 
lngChannel = DDEInitiate(App:="Excel", Topic:="System") 
DDEExecute Channel:=lngChannel, Command:="[OPEN(" & Chr(34) _ 
 & "C:\Documents\Book1.xls" & Chr(34) & ")]" 
DDETerminate Channel:=lngChannel 
lngChannel = DDEInitiate(App:="Excel", Topic:="Book1.xls") 
MsgBox DDERequest(Channel:=lngChannel, Item:="R1C1") 
DDETerminateAll

Cet exemple montre comment ouvrir un canal vers la rubrique System d'Excel et utiliser l'élément Topics pour renvoyer la liste des rubriques disponibles. La liste de rubriques, qui comprend tous les classeurs ouverts, est ensuite insérée après la sélection.

Dim lngChannel As Long 
Dim strTopicList As String 
 
lngChannel = DDEInitiate(App:="Excel", Topic:="System") 
strTopicList = DDERequest(Channel:=lngChannel, Item:="Topics") 
Selection.InsertAfter strTopicList 
DDETerminate Channel:=lngChannel

Voir aussi

Objet Application

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.