Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3382 connectés 

 


Dernière réponse
Sujet : vba et dde
vincenb Je galere sur une connerie de VB applications.
Je veux lier un document Excel a word donc j'utilise le DDE avec une macro word.
Mon probleme viens de la récuperation de données voici mon code:
chan = DDEInitiate(App:="Excel", Topic:="System" )
DDEExecute Channel:=chan, Command:="[OPEN(" & Chr(34) _
   & "C:\Documents and Settings\vincent\Mes documents\CodeMET_unicode.xls" & Chr(34) & " )]"
DDETerminate Channel:=chan
chan = DDEInitiate(App:="Excel", Topic:="donnees_unicode" )
recup = DDERequest(Channel:=chan, Item:="R1C1" )
DDETerminateAll
Le probleme:
En laissant item (de DDERequest) vide ("" ) je récupère toutes les données mais avec R1C1 j'ai l'erreur d'execution 4599 (Le processus a échoué dans l'autre application).
J'ai recupere la syntaxe dans l'aide donc ca m'étonne. J'ai quand même essayé de regarder sous une macro excel mais j'en ai essayé beaucoup sans solution. Ensuite j'ai regarder s'il fallait une ddl spéciale j'en ai rajouté mais peut être pas la bonne car ca ne fonctionne toujours pas.
(Pour echanger des données il faut Microsoft Query mais il est installé peut etre est il mal configurer ????)
 
Je galère totalement et toute aide serait génial  
MERCI

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
vincenb Je galere sur une connerie de VB applications.
Je veux lier un document Excel a word donc j'utilise le DDE avec une macro word.
Mon probleme viens de la récuperation de données voici mon code:
chan = DDEInitiate(App:="Excel", Topic:="System" )
DDEExecute Channel:=chan, Command:="[OPEN(" & Chr(34) _
   & "C:\Documents and Settings\vincent\Mes documents\CodeMET_unicode.xls" & Chr(34) & " )]"
DDETerminate Channel:=chan
chan = DDEInitiate(App:="Excel", Topic:="donnees_unicode" )
recup = DDERequest(Channel:=chan, Item:="R1C1" )
DDETerminateAll
Le probleme:
En laissant item (de DDERequest) vide ("" ) je récupère toutes les données mais avec R1C1 j'ai l'erreur d'execution 4599 (Le processus a échoué dans l'autre application).
J'ai recupere la syntaxe dans l'aide donc ca m'étonne. J'ai quand même essayé de regarder sous une macro excel mais j'en ai essayé beaucoup sans solution. Ensuite j'ai regarder s'il fallait une ddl spéciale j'en ai rajouté mais peut être pas la bonne car ca ne fonctionne toujours pas.
(Pour echanger des données il faut Microsoft Query mais il est installé peut etre est il mal configurer ????)
 
Je galère totalement et toute aide serait génial  
MERCI

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)