Lancer une macro Excel depuis Access

**pascal913** · 31/07/2006, 13h31

Bonjour tout le monde !!

Je suis sous access 97 (en anglais) et de excel 2000 (en anglais). J'ai un formulaire qui me sert à entrer les nouveaux enregistements dans ma base de données. Sous access j'utilise une macro qui appelle une requete pour filtrer ma bdd, résultat que j'envoie vers excel.
J'ai crée sous excel une macro qui me fait la mise en page de mes colonnes, couleur, forme etc... Macro qui fonctionne parfaitement.
Mon seul souci est que je voudrais que la macro s'exécute toute seule.
En copiant le contenu de la macro faite sur excel (VB) et coller dans un module d'access, module que j'intégrerai dans ma macro access avec un OpenModule. C'est ce que j'essaye de faire depuis plus de deux semaines. Le truc c'est que lorsque je lance ma macro access, le compilateur me dit que toutes mes lignes de code sont fausses, pas aussi directement mais il le dit.
Pourtant j'ai suivi les instructions que j'ai vu dans la FAQ en integrant les librairies adéquates. Ca me paraît bizarre. Est-ce normal ? Est-ce une incompatibilité entre Access97 et excel2000 ? Rappellez moi quand même les librairies a rajouter dans mon cas juste pour vérifier si ce sont les bonnes que j'ai mise.

Merci d'avance.

**jm_force** · 31/07/2006, 13h45

montre ton code deja!
et di de maniere plus courte ce que tu veux réelemet faire! Tu as dis 10 trucs en même temps!

**pascal913** · 31/07/2006, 13h53

merci jm force de t'interesser à mon problème.

pas besoin de prendre un grand code, meme celui-la y marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 26/07/2006 by All Users
'
 
'
    Columns("A:B").Select
    Selection.ClearContents
End Sub

Ce que je veux réellement c'est de lancer la macro que j'ai fabriqué sous excel (qui fait la mise en page) à partir de ma macro sous access (en faisant OpenModule) pour que la mise en page se fasse toute seule. Il ne faut pas que je la lance manuellement.
Voila, j'espère que c'est plus clair pour vous, c'est vrai que j'ai raconté un roman toute à l'heure.

Merci d'avance

**jm_force** · 31/07/2006, 14h10

ha oki!

je pense pas que ça soit possible de le lancer depuis Access, mais ce que tu peux faire c'est de le lancer à l'ouverture de excel et la macro demarre toute seule.
pour ceci, tu doi appeler ta macro :

Private Sub Workbook_Open()
Ton code ici
End Sub

voila, donc dans excel tu change juste le nom de ta macro et el demarre toute seule quand excel s'ouvre!

**pascal913** · 31/07/2006, 14h30

as-tu testé pour vérifier si ce que tu dis est vrai. si oui dis moi quelles librairies il y a dans tes références parce que je crois que c'est à cause de ça que rien ne marche.

Merci

**jm_force** · 31/07/2006, 14h41

même dans excel ta macro ne marche pas?

je croyais que ta macro marchait déja?

si elle marche tu fais juste ce que je t'ai dis!

en tout cas le code que tu m'a donné là ne fonctionnera pas dans access avec ou sans bibliotheque adéquate!

**pascal913** · 31/07/2006, 14h46

si bien sur que quand je lance ma macro dans excel elle marche nickel ça c'est bon.

J'ai fais ce que tu m'as dis en mettant ton code dans un module, j'ai fais OpenModule après la ligne OutputTo (mon fichier excel) où j'ouvre mon module, et il me sort toujours des erreurs.
C'est pour ça que je t'ai demandé que tu me dises précisement les librairies que tu as utilisé pour que ça fonctionne chez toi, parce que le problème vient de là, j'en suis certain.

Merci

**jm_force** · 31/07/2006, 14h52

je n'ai pas fait de programme identique, je te donnais juste une solution pour que ta macro démarre tte seule quand tu lances excel.
et pas besoin de changer quoique ce soi dans ta macro ou ton programme qui marchait avant.

mais à parament ce n'est pas ça ton principal probleme!

**cafeine** · 31/07/2006, 14h59

Hello,

ce que tu veux faire ça s'appelle de l'automation Excel.

Il faut ajouter une référence Excel
http://cafeine.developpez.com/access...el/excel/#LV-A

Et ensuite pour un code du genre

Code :

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

1
2
    Columns("A:B").Select
    Selection.ClearContents

l'adapter en :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim appexcel as Excel.Application 
Dim wbexcel as Excel.Workbook
Set appexcel = CreateObject("Excel.Application") 
appexcel.Visible = True 
Set wbexcel = appexcel.Workbooks.Open("Chemin du fichier Excel")
&#160;&#160;&#160;&#160;wbexcel.Columns("A:B").Select
&#160;&#160;&#160;&#160;wbexcel.Selection.ClearContents
wbexcel.Save
appexcel.Quit
Set wbexcel = Nothing
Set appexcel = Nothing

**Tofalu** · 31/07/2006, 14h59

Avec une macro, c'est impossible. il va falloir utiliser VBA.

Un exemple qui lance une macro Word :

oApp.Application.Run MacroName:="nom macro"

où oApp est déclaré plus haut.

Dim oApp As New Word.Application

Ce sera le même principe pour Excel.

Dans la FAQ tu trouveras de quoi :

1. Lancer Excel
2. Ouvrir ton classeur
3. Exécuter la macros avec le code que je t'ai donné
4. Enregistrer et fermer.

Bon courage

**jm_force** · 31/07/2006, 15h11

merci de rejoindre la discution, c'est ce que j'aime sur ce forum!
les aides viennent de partout!

j'espere que tu trouveras ton bonheur avec tout ça!

bon courage!

**pascal913** · 31/07/2006, 15h23

merci a vous deux Caféine et Tofalu pour vos renseignements.

J'ai d'abord tenter ta solution Caféine, mais faut-il obligatoirement (comme tu me montres dans la FAQ) que les versions soient les memes pour access, office, excel et pour DAO? parce que si c'est le cas je pourrais pas vu que j'ai excel et office en 9.0 et access en 8.0.Si ce n'est pas ce qui faut dis moi lesquelles mettre (access97 excel2000 et office en 9.0). Quand je lance ma macro access il me dis " Control can't be edited;it's bound to unknown field 'ENCOURS' ".

Pour Tofalu, je pense que tu me connais maintenant et que je n'ai rien compris.

Pour ce qui est de jm Force, ta rien compris a ce que je t'ai dis, je t'ai jamais dis qu'il fallait que je change de code, ta pas saisi mais ca pas grave je t'excuse.

Merci a tous