exécuter une macro excel sous access

Version imprimable

29/01/2009, 11h47
smix13

exécuter une macro excel sous access

bonjour,
j'aimerai savoir si on peut ouvrir ( ou appeler, executer ) une macro excel avec une macro access ? si oui comment ?

i-e deux macro en une

Merci
29/01/2009, 11h53
Jean-Philippe André

salut,
je t'encourage à regarder l'exemple donné dans l'aide en ligne :f1: de la fonction Run
:mrgreen:
29/01/2009, 11h57
Godzestla

Bonjour,

quand tu as une demande, jette aussi un coup d'oeil dans les autres posts.

la réponse à ton problème, où très similaire est 5 post plus bas, ici

Bonne journée.
29/01/2009, 12h53
smix13

Bonjour,
ça ne repond pas à ma question, j'ai rien trouver dans l'aide en ligne sur la fonction Run

Merci
29/01/2009, 13h31
Godzestla

Regarde ma réponse.. ;)
29/01/2009, 13h39
Jean-Philippe André

Citation:

Envoyé par smix13

bonjour,
j'aimerai savoir si on peut ouvrir ( ou appeler, executer ) une macro excel avec une macro access ? si oui comment ?

Merci

je t'ai donné les 2 réponses :
- oui
- avec la fonction Run, applicable à l'objet application...

après, si tu ne trouves pas la solution avec ce que je t'ai donné, tu peux reformuler ta remarque, mais ne me dis pas de bêtises ;)
va voir l'exemple donné sous word, donc faisable pour Excel :mouarf:
http://access.developpez.com/faq/?pa...MacrWordAccess
02/02/2009, 16h11
smix13

Bonjour,
merci pour votre reponses,
mais je suis perdu, je ne sais pas comment appeler ou executer une macro excel dans access :cry:.

j'ai essayé la fct Run , et tjrs le meme pb.

Merci
02/02/2009, 16h16
Jean-Philippe André

salut,
quelles sont les lignes de code que tu as testé avec la fonction Run ?
quelles sont les erreurs qui ont été relevées ?
le résultat obtenu n'est pas celui que tu attendais ?

donne nous quelques pistes d'investigation ;)

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
26
Private Sub Bascule32_Click()
On Error GoTo Err_Bascule32_Click
 
    Dim oApp As Object
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
 
 
 
    oApp.Workbooks.Open("D:\Documents and Settings\Mes documents\BD de test\macroauto.xls")
 
    DoCmd.RunMacro "ImportData"
 
 
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
 
Exit_Bascule32_Click:
    Exit Sub
 
Err_Bascule32_Click:
    MsgBox Err.description
    Resume Exit_Bascule32_Click
 
End Sub

la macro est enregestrée dans le fichier excel macroauto.
le message d'erreur dit qu'il ne trouve pas la macro

02/02/2009, 17h06
EddiGordo
Citation:

Envoyé par jpcheck

je t'ai donné les 2 réponses :
- oui
- avec la fonction Run, applicable à l'objet application...

jpcheck ta donné la réponse mais tu te trompes d'objet...:D

Avec DoCmd tu essaies de jouer ta macro du côté Access...
Code:

1 2 oApp.Run "ImportData"
03/02/2009, 08h51
smix13

Merci beaucoup;
ça marche.