Bonjour a tous

Actuellement en Memoire de fin d'etude a Bristol au Royaume Uni, je rencontre quelques difficultes avec un code en visual basic.Ce code consiste a recuperer en temps reel dans Excel des informations d'un chaine d'aquisition de soufflerie. (DDE: Dynamic, Data Exchange)

Le probleme est lorsque je veux soustraire une valeur deja existante dans une cellule Excel a la valeur quiu est aquise en tps reel, l'erreur suivante apparait. RUN-TIME ERROR 13: Type Mismatch.

je n'arrive pas a comprendre comment resoudre ce probleme..

j'ai pu identifier la ligne qui ne fonctionne pas, voici le debut du programme

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub DDEread()
 
ddeChan = Excel.DDEInitiate("Windmill", "data")
 
Dim A As Integer
For A = 1 To cells(1, 20) Step 1' Requests data from a channel called 00000.myData = Excel.DDERequest(ddeChan, "00000")
Sheets("Aquisition_Data").Select
cells(A + 3, 2).Value = myData - cells(3, 2)
le probleme se situe au niveau de la dernier ligne lorsque j'essaye de soustraire cells(3,2) a my data (qui est la variable qui permet de faire l'aquisition de data en temps reel)

Je pense que c'est un probleme de variable, mais j'ai essayer plusieurs solutions en vain.

j'espere ke qq un pourras m'aider, merci d'avance.

Jean Michel