Bonjour,
En faite j’ai un problème encore jamais rencontré.
Je m’explique j’utilise l’interface DDE pour modifier des données dans un automate programable.
J’ai un exemple qui marche bien avec Excell
Sub Setvalue()
Dim Chan As Long
Chan = DDEInitiate(“OPCToDDE”, “Parameter”)
Set rangeToPoke = Worksheets(“Feuil1”).Range(“A3:A4”)
DDEPoke Chan, “registre1”, rangeToPoke
DDETerminate Chan
End Sub
Or je ne veux pas aller inscrire des données provenant d’excell et quand j’utilise simplment le meme code en remplacant
Sub Setvalue2()
Dim Chan As Long
Chan = DDEInitiate(“OPCToDDE”, “Parameter”)
Set rangeToPoke = Worksheets(“Feuil1”).Range(“A3”)
rangeToPoke = 25
DDEPoke Chan, “registre1”, rangeToPoke
DDETerminate Chan
End Sub
Ca ne fonctionne pas. Comme la documentation ne précise pas le type de donnée attendu par DDEPoke, je ne sais pas comment déclarer rangeToPoke, j’ai essayer int,string et float.
Si qqn à une idée je suis preneur.