Discussion :

[mj314]

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

[OhMonBato]

Juste un petit détail, tu es dans le forum VB, pas VBA et dans le sous forum "Contributions" au lieu du forum où on expose ses problèmes, à part ça, c'est bon.

Il faudrait quand meme epxliquer comment est déclarée ta variable MyData, de quelle type est la valeur contenue dans la cellule et quel est le format numérique de la cellule...

[AlainTech]

J'ai déplacé la discussion et ajouté les balises [code].

Merci d'y être attentif une prochaine fois.

[dadavyvy]

Quelles solutions as-tu essayées? As-tu essayé de forcer MyData en CInt? As-tu vérifié si MyData IsNumeric?
Comment est initialisée MyData? Où est déclarée cette variable?