XL 2010 Comment importer un module d'un .bas et lancer une des Macros

[seb555]

Bonjour,

Je souhaite à l'ouverture de mon fichier charger un ensemble de macros qui sont enregistrées dans un .BAS localisé sur le réseau et en éxecuter automatiquementune des macros après chargement. Pour ce faire je demande à l'ouverture de lancer une macro du .BAS (macro initialisation), mais erreur de compilation, ce qui se comprend car macro pas encore chargé. Avez-vous une solution ?

Private Sub Workbook_Open()
Set CibleWB = ThisWorkbook
Chemin = "c:\fic1.bas"
CibleWB.VBProject.VBComponents.Import Chemin
Call initialisation
End Sub

Merci.

 

[kingfadhel]

Bonjour à tous,
Tu peux appeler la macro par cette commande:

Application.Run ("Nom_du_Classeur.xlsm!Nom_du_Module.Nom_de_la_Macro")

exemple:

Sub macro_autre_fichier()
Application.Run ("Project_Manager.xlsm!My_Macs.Ma_Macro_test")
End sub

 

[seb555]

Merci, en effet maintenant cela fonctionne:

Private Sub Workbook_Open()
   Set CibleWB = ThisWorkbook
   Chemin = "c:\fic1.bas"
   CibleWB.VBProject.VBComponents.Import Chemin
   Application.Run ("Macro1.Initialisation")
End Sub

Bonne soirée.

Seb555