Discussion :

[ThieBEN]

Bonjour à tous,
Quelqu'un aurait-il une idée pour exécuter une Macro Excel depuis un bouton access.

Le code access du bouton :

Code :

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

1
2
3
Private Sub Commande63_Click()
Excel.Application.Run MacroName:="Macro1"
End Sub

Le code de la macro dans excel :

Code :

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

1
2
3
4
5
Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 10/12/2007 
Application.CommandBars("Web").Visible = False
End Sub

Code :

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

1
2
3
Private Sub Workbook_Open()
Macro1
End Sub

La macro fonctionne automatiquement quand je lance le classeur depuis excel mais pas quand je la lance depuis le bouton access.
Merci d'un coup de main.

[Domi2]

Bonjour,

Malheureusement pas Access sous la main, donc pas de possibilité de tester, mais je ferais comme ça :

Ne pas oublier de référencer Excel :

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
Private Sub cmdMacroExcel_Click()
 
    Dim appExcel As Object
 
    Set appExcel = CreateObject("Excel.Application")
 
    appExcel.Visible = True
 
    With appExcel
 
        .Workbooks.Open ("TonClasseur.xls")
 
        .Run ("TonClasseur.xls!macro1")
 
    End With
 
    appExcel.Quit
 
    Set appExcel = Nothing
 
End Sub

Dans Excel

Code :

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

1
2
3
4
5
Sub Macro1()
 
    Application.CommandBars("Web").Visible = False
 
End Sub

Qu'est-ce que ça dit ?

Domi2

[ThieBEN]

Il ouvre bien le classeur la macro s'exécute mais quand je ferme excel, access m'affiche un message comme quoi il ne trouve pas la macro1
cette ligne:

Code :

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

.Run ("U:\Essai EPI\Excel\Fiche Suivi Essai Terrain.xls!macro1")

Le problème également, contrairement à un lien hypertexte c'est que je dois lui indiquer le chemin complet où se trouve le classeur c'est embêtant pour déplacer la base.

En revanche avec le lien hypertexte la macro ne s'exécute pas à l'ouverture d'excel.

[Domi2]

Bonjour,

Ma suite Office à toujours triste mine

Donc pour faire des tests...

Si tu mets cette ligne en remarque, que se passe-t-il ?

Code :

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

.Run ("U:\Essai EPI\Excel\Fiche Suivi Essai Terrain.xls!macro1")

Pour le chemin... Le fichier Excel est-il propre à chaque utilisateur, ou bien n'en existe-t-il qu'un exemplaire pour l'application ?

Domi2

[ThieBEN]

Si tu mets cette ligne en remarque, que se passe-t-il ? RIEN
Pour le chemin... Le fichier Excel est-il propre à chaque utilisateur, ou bien n'en existe-t-il qu'un exemplaire pour l'application ? 1 Exemplaire
Domi2

L'automation c'est pas si bien que ça!
Merci

[Domi2]

Re,

L'automation c'est pas si bien que ça!

Ben, suis pas sûr que celui qui a écrit le code ne soit pas "coupable".

Mais impossible de faire des tests pour l'instant...

Pour le chemin du fichier, ce que je ferais, pour autant que tu utilises un système dorsale/frontale, c'est l'enregistrer dans le même répertoire que les données (ou un sous-répertoire).

On peut facilement retrouver le chemin :

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
Dim strCheminDorsale As String
 
 
    'Recherche le nom du répertoire dans lequel est installée la base de données dorsale, ainsi que le nom du fichier
    strCheminDorsale = CurrentDb.TableDefs("UneTableDeLaDorsale").Connect
    strCheminDorsale = Right(strCheminDorsale, Len(strCheminDorsale) - InStr(1, strCheminDorsale, "DATABASE=") - 8)
 
    'Recherche le nom du répertoire et des sous-répertoires
    If Right(strCheminDorsale, 1) = "\" Then
 
        strRepertoireDorsale = strCheminDorsale
 
    Else
 
        strRepertoireDorsale = Left(strCheminDorsale, InStrRev(strCheminDorsale, "\"))
 
    End If
 
    'Répertoire d'installation de la dorsale
    strRepertoireDorsale = strRepertoireDorsale

Domi2