toujours pb sur rendre classeur actif à partir de la valeur d'un textbox

[ben]

bonjour le forum

J'ai encore un souci :
j'ai le code suivant

Private Sub ComboBox1_Enter()

Dim Classeur As Workbook
Dim Tableau(10) As Variant


For Each Classeur In Workbooks
If Classeur.path & "\" & Classeur.Name = TextBox3 Then
Exit Sub
End If
Next Classeur

For i = 1 To Classeur.Activate.Sheets.Count
Tableau(i) = Sheets(i).Name
Next i
ComboBox1.ColumnCount = 1
ComboBox1.List() = Tableau

End Sub


le pb c'est qu'il me prends pas le bon classeur pour le combobox j'ai les onglet du classeur de mon userform actif

Comment puis je régler le pb ??
Au secours je galère depuis hier avec ca lol

 

[lupin]

Je pense qu'il reconnait pas le classeur

Peut-être qu'en incluant la seconde boucle dans la première cela résoudrais le problème :

For Each Classeur In Workbooks
If Classeur.path & "\" & Classeur.Name = TextBox3 Then
For i = 1 To Classeur.Activate.Sheets.Count
Tableau(i) = Sheets(i).Name
Next i
Exit Sub
End If
Next Classeur

ComboBox1.ColumnCount = 1
ComboBox1.List() = Tableau


A+
Lupin