Execution de requete Excel via Access

Version imprimable

08/08/2008, 16h20
MuadDib_II

Execution de requete Excel via Access

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
11/08/2008, 14h37
scons

Salut

la requete sql a laquelle tu fais refere,ce est co,tenue dans une macro excel?
11/08/2008, 14h40
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)

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

Code:

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.

essaye avec la syntaxe suivante:

Code:

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

voici un exemple

Code:

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

11/08/2008, 15h01
MuadDib_II

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

Code:

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.
11/08/2008, 15h10
scons
Ok as tu laissé cette ligne dans ton programme avant celle que je t'ai donné?
Code:

1 2 oApp.workbooks.Open "L:\Organisa\Marcelo\Credit_ENTR\data\Copie de saldos.xls"
car avant de pouvoir executer une macro il faut d'abord que tu ouvres le classeur qui contient la macro.

Apres je ne sais pas trop comment ca fonctionne avec les boutons.
11/08/2008, 15h18
MuadDib_II

OK, il a bien marché.
J'ai mis le code sur Click dans un module et il a trouvé la macro.

Merci beaucoup de ton aide.
11/08/2008, 15h27
scons

Ok c'est cool

Yas pas de quoi

N'oublie de marquer ton post a resolu

Amicalement Scons