Discussion :

[Pynuch]

Bonjour,

j'ai un souci avec l'utlisation des DDE sous VB.

Je dois récupérer des valeurs via une application distantes et les inserer dans excel.

Je fais comme suis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Chan = DDEInitialise("vegadde", "VEGA")
 
val = DDERequest(Chan, "mon item")

le probléme c'est qu val contient Erreur 2023, est ce que quelqu'un aurait une idée d'oü cela peut provenir ? et c'est quoi cette Erreur 2023 ?


Merci d'avance.

[ucfoutu]

Bonjour,

ce code est-il écrit sous VB6 ou sous VBA d'Excel ?
Tu es ici dans la section VB6

[DarkVader]

C'est un code VBA

[Pynuch]

non c'est ecrit en VB6 ...

via un objet excel bien entendu

[Pynuch]

A savoir quand meme que Chan contient la valeur 0 ( il arrive bien a ouvrir l'applicaion distante apparement)

Merci

[DarkVader]

Que tu codes sous VB6 est une chose, qu'il s'agisse de code VBA en est une autre.
Quand on initie une instance d'Excel depuis VB pour gérer Excel c'est bien VBA qu'on utilise (depuis vb).

Ce serait bien d'être plus explicite :
1°) tu fais allusion à Excel
2°) tu indiques utiliser dderequest (vba)
3)° et ddeinitialize (=> fonction de l'api user32 avec fonction de retour) !!!

=> ddeinitiate serait plus cohérent (vba)

A savoir quand meme que Chan contient la valeur 0 ( il arrive bien a ouvrir l'applicaion distante apparement)

J'imagine plutôt que si chan vaut 0 c'est justement qu'il ne peut initialiser la communication :
ddeinitiate ou ddeinitialize ne servent pas à ouvrir une application mais à inititier une conversation avec une application déjà active.

A mon sens le code devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Chan = DDEInitialise("vegadde", "VEGA")
if chan<>0 then val = DDERequest(Chan, "mon item")

D'autre part, commence par vérifier:
1°) que l'application serveur "vegadde" soit active
2°) et que le serveur soit activée pour délivrer les données dde (certains serveurs multifonctions nécessitent qu'une option soit activée.

Après tout ça, on en reparle ... éventuellement si le problème n'est pas résolu