ouverture classeur via un autre classeur

[dessimoz]

bonjour,

j'ai une question !

voilà, à l'ouverture d'un classeur j'ai mis le code pour ouvrir à chaque démarrage la 1ere feuille

dans Thisworkbook

Private Sub Workbook_Open() <==== c'est le code
Sheets('accueil').Activate
End Sub

ça fonctionne bien quand j'ouvre le classeur depuis l'explorateur windows mais quand je l'ouvre depuis un autre classeur excel via une fenêtre ça ne fonctionne pas !

avez vous une idée ?



Function Chargerdécl() <========== code de la fenêtre
Application.ScreenUpdating = False
Dim DirVar As String
ChDir (Sheets('lien client').Range('h1'))
DirVar = Dir((Sheets('lien client').Range('h1')) & '\\*.xls')
'DirVar = Dir((ActiveSheet.Range('B1')) & '\\*.wks')
'DirVar = Dir(Application.DefaultFilePath & '\\*.wks')
Do While DirVar <> ''
UserForm1.ComboBox1.AddItem DirVar
DirVar = Dir()
Loop
UserForm1.Show

 

[Malabar]

Je crois que le pb est que les macros Auto_open ne s'active pas lorsque le classeur est ouvert par macro. Essayes de rajouter l'instruction RunAutoMacros juste apres l'ouverture du classeur.
Par Exemple comme ceci :

Workbooks.Open 'MonClasseur.xls'
ActiveWorkbook.RunAutoMacros xlAutoOpen

Cordialement

Malabar