Macro extraction As400

[djainsone]

Bonjour,

J'ai un petit soucis.
Je voudrais lancer directement ma requête As400 sans avoir à passer par le menu extraction de données depuis l'As\400.
J'ai utilisé le code

   'Lancement de la requete
    
    Shell ("C:\Program Files\IBM\Client Access\cwbtf.exe_ 
C:\Documents and Settings\user\Bureau\COCNMC.dtf")

Mais ça ne correspond pas à ma demande car il me lance mon fichier dtf et non l'extraction du dtf via la macro complémentaire "cwbtfxla.xll"

Quelqu'un peut m'aider?

Merci d'avance. 😉
Fred

 

[djainsone]

Re : Macro extraction As400

[Resolu]

avec l'utilisation de ce code :

Set oAddIn = Application.AddIns.Add(Filename:="C:\Program Files\IBM\Client Access\Shared\cwbtfxla.xll")
 
oAddIn.Installed = True
Application.RegisterXLL "cwbtfxla.xll"
Application.Run ("fShowTTODialog")

Il ne reste plus qu'à sélectionner le fichier *.dtf et le tour est joué