Discussion :

[e040098k]

Bonjour,

Pour, transferer des données de l'eSeries vers excel il faut installé un fichier que j'installe comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    AddIns.Add Filename:="C:\Program Files\IBM\Client Access\Shared\cwbtfxla.xll"
    AddIns("Transfert de données iSeries Access").Installed = True

Je voudrais pouvoir piloter cette macro complémentaire avec vba.

Quelqu'un à une idée?
Merci

[SilkyRoad]

bonsoir

Tu peux utiliser Application.Run pour appeler les procédures de ton complément:
un exemple qui crée un graphique en utilisant l'utilitaire d'analyse VBA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
  'Source :http://support.microsoft.com/default.aspx?scid=kb;en-us;270844&Product=vbb#top
  'Les données sont dans la Feuil1 en A1:A10 et B1:B4
  Dim Ws As Worksheet
  Set Ws = ThisWorkbook.Worksheets("Feuil1")
  'L'utilitaire d'analyse-VBA doit etre prélablement activé
  'Menu Outils
  'Macros complémentaires
  'Cochez la ligne "Utilitaire d'analyse-VBA
  Application.Run "ATPVBAEN.XLA!Histogram", Ws.Range("$A$1:$A$10"), _
  "", Ws.Range("$B$1:$B$4"), False, False, True, False

bonne soirée
michel

[e040098k]

Bonjour,

Ta solution fonctionne avec les .xla, seulement dans mon cas il s'agit d'un fichier .xll

[e040098k]

Je me permet de faire un petit up de ce message!!

Je sais que ce n'est pas bien mais au cas ou car je n' ai toujours pas résolu mon problème.

Merci d'avance!

[debethune]

bonjour,

j'ai exactement le meme probleme que le tien : je ne sais pas comment lancer la macro "cwbtfxla.xll" depuis une autre macro en VBA
PS : je suis debutant

merci d'avance pour ta reponse si tu as deja reglé ton probleme...
a+
Bertrand

[debethune]

voilà ! j'ai trouvé le code suivant !!! ca marche (pour le moment) !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ouvrir_QUERY()
 
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")
 
End Sub

à+

[e040098k]

Je reviens sur le pilotage de mon fichier xll

J'en demande peut être trop mais je n'arrive pas à lui passée une commande clavier. J'utilise sendkey :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
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")
SendKeys "{ENTER}"

[debethune]

bonjour,

j'ai la même problématique : j'aimerai lancer automatiquement le data transfer de mon query AS400 !
tu as réglé ton problème?

merci d'avance !
je poste un réponse si je trouve !

bertrand

[aalex_38]

Bonjour,

Peut être est-il possible d'utiliser CreateObject, par exemple pour ma session Extra :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Set Sess0 = System.ActiveSession
 
With Sess0
    .Connected = True
    .Screen.Sendkeys ("<Enter>")
End With

[borceval]

Ca ne répond pas à ta question mais peut-être à ton problème :
utilisation de QUERY au lieu du transfert Iseries :
http://www.developpez.net/forums/d78...o/#post4538823