Discussion :

[LegendPC]

Bonjour,

J'ai besoin d'ouvrir un fichier Excel et d'y exécuter une macro depuis Access, cependant mon fichier Excel se referme avant de finir l’exécution de sa macro, j'ai donc du rajouter un Sleep mais cela ne me convient pas car j'en aurai besoin pour exécuter des macro plus longue dont je ne connais pas le temps d’exécution.
Y'a t'il une erreur dans mon code ou une meilleur façon de faire ?
Merci d'avance

Voici mon code:

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
Sub Macro1()
 
Dim Xl As Excel.Application
    Dim Classeur As Excel.Workbook
    Dim Feuille As Excel.Worksheet
 
    'Ouvre Excel
    Set Xl = New Excel.Application
    Xl.Visible = True
    Set Classeur = Xl.Workbooks.Open("monfichier.xlsm")
    Sleep 1000
    'Set Feuille = Classeur.Worksheets("Feuil1")
    'Debug.Print Feuille.Range("C1")
 
    Classeur.Close True
    Xl.Quit
 
End Sub

[brice45]

Bonjour,

Je ne vois pas l'appel de ta macro dans ton code. Est-ce que tu fais bien l'appel de ta macro à ce niveau ?

[LegendPC]

Ah oui pardon, j'avais essayé autre chose entre temps : de mettre le nom de la macro dans la fonction open du workbook du fichier Excel directement mais enfaite ça faisait le même problème...donc j'avais enlever la ligne
Voici le code avec l'appel de la macro qui s'appelle "ConnexionServeur":

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
Sub Macro1()
 
Dim Xl As Excel.Application
    Dim Classeur As Excel.Workbook
    Dim Feuille As Excel.Worksheet
 
    'Ouvre Excel
    Set Xl = New Excel.Application
    Xl.Visible = True
    Set Classeur = Xl.Workbooks.Open("monfichier.xlsm")
    Xl.Run ("ConnexionServeur")
    Sleep 1000
    Classeur.Close True
    Xl.Quit
 
End Sub

[brice45]

Tu peux tester ce code :

Code :

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

1
2
3
4
5
6
7
8
Sub test ()
Dim MonObjet as Object
Set MonObjet = GetObject("", "Excel.Sheet")
MonObjet.Application.Visible = True
MonObjet.Application.Workbooks.Open "c:\temp\classeur.xls"
MonObjet.Application.Run "MaMacro"
Set MonObjet = Nothing
End Sub

[LegendPC]

Merci de ta réponse

Ce code exécute bien la macro mais ne quitte pas le fichier Excel,
Peut etre devrais je mettre le code pour quitter Excel dans la macro Excel et non dans le module Access ?.

[LegendPC]

Enfaite c'est plus compliqué que je le croyais:

J'ai ma macro qui s’exécute correctement : elle me permet de me connecter à un serveur ODBC.
Enfaite c'est la requête qui est censé s’exécuter sur ouverture du fichier Excel qui n'a pas le temps de se finir avant que l'application ne quitte ! (c'est une requête connexion de données) je vois pas encore comment y arriver mais si vous avez des idées je suis preneur

Voici le code de la macro:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub ConnexionServeur()
 
'Ici j'execute la requête connexion aux données
    ActiveWorkbook.RefreshAll
 
'Excel se quitte alors que la requête n'est pas fini
    ActiveWorkbook.Save
    Application.Quit
End Sub