Discussion :

[Tleconte]

Bonjour

Je galère pour importer des données dans mon appli qui sont disponible sur un serveur DDE et également dans une feuille excel active, puisque cette feuille excel utilise déja une liaison dde vers le serveur en //

J'ai 24 infos à récupérer lorsque j'utilise 24 TddeclientItem avec un ClientConv en mode auto le rafraichissement est instable.
J'ai essayé de laisser le ClientConv en manu mais je ne peut compiller mon appli avec la fonction RequestDde (Identificateur non déclaré)!!

Y à t'il possibilité de récupérer ces données à partie de la feuille excel

Si quelqu'un à une idée je le remercie

[Nono40]

Qu'entend-tu par instable ?
Je ne me souvient pas avoir eut de soucis avec DDE, mais ça fait belle-lurette que je ne m'en sert plus.

[Tleconte]

Merci de ta réponse.

En fait le rafraîchissement des données n'est pas régulier voir absent pour certaine et même jusqu'à l'arrêt de la liaison.
Si je ne garde qu'un seul client il fonctionne très bien mais mon soucis c'est que j'en ais 24!!
Sinon j'explore le moyen de récupérer les données en dynamique sur la feuille Excel, j'ai trouvé une solution en utilisant mon fichier Excel comme base de données dans Delphi, ça marche mais un peut 'bourin' en vitesse d'acquisition.
Si tu as une idée avec ces précision elle est la bien venue
Merci

[Pierre Castelain]

Il te faut laisser tomber DDE et utiliser les interfaces publiées par excel : http://lfe.developpez.com/PasExcel/

[Tleconte]

Je teste la liaison OLE vers excel mais je bloque sur l'affectation du non de classeur à vXLWorkbook car contrairement au exemple mon classeur est déja ouvert.

A tu une idée sur la mèthode à utiliser
Merci

Ci dessous mon code.

// Affecte la liaison excel
vMSExcel := GetActiveOleObject('Excel.Application');

// Affecte le nom du classeur
aFileName := 'c:\Piscine\Piscine.xls';
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Open(aFileName);

!! c'est sur la ligne précedente que je sèche, quelle mèthode doit on utiliser à la place de Open

//Affecte l'onglet
aSheetName := 'reg';
vWorksheet := vXLWorkbooks.WorkSheets[aSheetName];

// Affecte la cellule
aRange := 'AC33';
vCell := vWorksheet.Range[aRange];
aValue := vCell.Value;

[Modération]
Merci d'utiliser les balises code ou quote, Laurent Dardenne
[/Modération]

[Laurent Dardenne]

Utilise la collection Items pour récupéer un classeur existant. N'hésite pas à regarder dans la FAQ.

Un exemple pour Word dans un contexte différent mais la démarche peut t'aider :
http://delphi.developpez.com/faq/?page=worddoc