D
dessimoz
Guest
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
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