Lancement automatique d'une macro

[SylvainJ]

Bonjour,

Je suis nouveau sur le forum et novice pour tout ce qui concerne Excel.

Dans le cadre de mon stage, je génère chaque semaine des fichiers Excel à partir d'une base Access.
J'aimerais savoir s'il est possible de lancer automatiquement une macro sur ces fichiers (et uniquement ceux-ci) soit à la première ouverture soit avant (la macro modifie les données du fichier, donc il faut qu'elle ne s'exécute qu'une seule fois).
La macro est faite, mais mon responsable veut que tout se passe sans rien faire, même cliquer sur un bouton lançant la macro l'ennuie profondément (soupirs... 😱 ).

J'espère avoir été clair dans mes explications.
Merci de vos conseils,
Sylvain

 

[Robert]

Re : Lancement automatique d'une macro

Bonjour Sylvain, bonjour le forum,

Tu peux utiliser l'événement Open du classeur qui exécutera la macro à l'ouvertuire de celui-ci. Soit tu recopies le code soit tu l'appelles. Par exemple si elle se trouve dans le Module1 et s'appelle Macro1, ça donnerait :

Private Sub Workbook_Open()
Module1.Macro1
End Sub

Ce code est à placer dans l'élément ThisWorkbook par VBE.

 

[SylvainJ]

Re : Lancement automatique d'une macro

Je suis finalement parvenu au bout de mes peines:

Function MacroExcel(ByVal strClasseurFichier As String, ByVal strClasseurMacro As String)
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook

Set xlApp = CreateObject("Excel.Application")

xlApp.Workbooks.Open (strClasseurMacro)
Set wbk = xlApp.Workbooks.Open(strClasseurFichier)

On Error Resume Next
xlApp.Run "ClasseurMacro.xls!maMacro"
If Err.Number > 0 Then
    ' Fermer le classeur sans enregistrer les changements
    wbk.Close False
Else
    ' Fermer le classeur en enregistrant les changements
    wbk.Close True
End If

Set wbk = Nothing

' Quitter Excel
xlApp.Quit
Set xlApp = Nothing
End Function

Si ca peut servir à qq1.

Ciao,
Sylvain