Discussion :

[MuadDib_II]

Bonjour,

Je un petit problème, peut-être quelqu'un peut m'aider.

J'ai un Classeur Excel (2 feuilles: SQL et Resultat), avec un code SQL (que effectue une requete AS400 lorsqu'on touche le button cmdGO). Les resultats de cette requete apparaissent dans la feuille Resultat.

Cette même feuille Resultat est liée à l'Access dans mon application.

Je voudrais savoir si c'est possible d'executer cette requete par biais d'Access, au touche d'un button de commande, par exemple.

Merci d'avance

[scons]

Salut

la requete sql a laquelle tu fais refere,ce est co,tenue dans une macro excel?

[MuadDib_II]

Bonjour, merci de ton aide...

Pour le moment, elle est dans le code du button CmdGO (button sur la feuille Excel), dans une feuille que s'appele FrmSql (SQL)

[MuadDib_II]

Maintenant, je essaye de le faire par biais d'un button sur un form Access, avec le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Commande0_Click()
On Error GoTo Err_Commande0_Click
 
    Dim oApp As Object
 
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
 
    oApp.workbooks.Open "L:\Organisa\Marcelo\Credit_ENTR\data\Copie de saldos.xls"
 
    oApp.Run MacroName:="CmdGO_Click"
 
 
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
 
Exit_Commande0_Click:
    Exit Sub
 
Err_Commande0_Click:
    MsgBox Err.Description
    Resume Exit_Commande0_Click
 
End Sub

il marche bien jusqu'à l'execution de la macro. J'arrive à ouvrir le classeur.

[scons]

essaye avec la syntaxe suivante:

Code :

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

1
2
 
excel.Application.Run ("'chemin vers ton fichier excel'!nom de ta macro")

voici un exemple

Code :

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

1
2
 
excel.Application.Run ("'Facture vierge AGNEAUXP.xls'!extractagneaux")

[MuadDib_II]

Avec excel.application il disait Objet Requis. J'ai essayé de changer pour

Code :

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

oApp.Application.Run ("'L:\Organisa\Marcelo\Credit_ENTR\data\Copie de saldos.xls'!CmdGO_Click")

et il m'a dit Impossible de trouver la Macro.

Je pense que ça c'est du au fait de que le code soit écris sur l'événement sur Click du button CmdGO, et pas sur un module.