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

[ThieBEN]

Moi j'ai testé ça mais je ne sais pas si le code est bien écrit:

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
26
27
28
29
30
31
Function InfosDorsale()
 
    On Error Resume Next
 
    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("tblEPI").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
 
    'Répertoire d'installation des photos
    strRepertoirePhotos = strRepertoireDorsale & "Photos\"
 
    'Répertoire d'installation du Classeur
    strRepertoireExcel = strRepertoireDorsale & "Excel\"
 
End Function

Le bouton clic :

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

strRepertoireExcel ne plait pas à access quand je clic dessus
ThieBEN

[Domi2]

Re,

en partant de l'idée que strRepertoireExcel est bien déclaré comme variable publique, essaie comme ceci :

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
Dim strMonFichierExcel As String
 
strMonFichierExcel = strRepertoireExcel & "Fiche Suivi Essai Terrain.xls"
 
MsgBox strMonFichierExcel 'Uniquement pour vérifier si le chemin est correct
 
Dim appExcel As Object
 
Set appExcel = CreateObject("Excel.Application")
 
appExcel.Visible = True
 
With appExcel
 
    .Workbooks.Open strMonFichierExcel
 
    .Run ("Macro1") 'Petite correction ici par rapport à mon 1er code
 
End With
 
appExcel.Quit
 
Set appExcel = Nothing

Domi2

[ThieBEN]

Bon ça marche nickel sauf qu'il faut enlever dans le code ce petit bout car excel s'ouvre et se referme aussitôt.

Code :

Code :

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

appExcel.Quit

Merci Domi2
ThieBEN