ComboBox tout de suite qu'on ouvre ce fichier

Bonjour,

j'ai envie qu 'une fois qu'on ouvre le fichier, une ComboBox sur Feuil1 apparait les valeurs qui provienne d'une liste

mais souvant cette ComboBox affiche rien, s'il faut que je clique sur l'autre onglet et revient sur Feuil1, là il apparait

dans mon code j'ai dit :

dans ThisWorkbook:

Private Sub Workbook_Open()
Sheets("Feuil1").Activate
End Sub

Ensuite, dans Feuil1,

Private Sub Worksheet_Activate()
Dim c As String
Dim obj As Worksheet
              Me.ComboBox1.AddItem ...........
Next
   End Sub

Comment faire apparaitre les valeurs dans ce ComboBox tout de suite qu'on ouvre ce fichier?

Merci

Bonjour

Une cause(probable)

Quand tu enregistres ton fichier, la page 1 est activée donc à l'ouverture l'évènement n'a pas lieu d'être

Solution 1

Enregistres ton fichier quand tu n'es pas dans la page 1 soit en manuel soit en passant par l'évènement Workbook_BeforeSave

Solution 2

Bascules entre les feuilles à l'ouverture du fichier

Private Sub Workbook_Open()
  Application.ScreenUpdating = False
  Sheets("Feuil2").Activate
  Sheets("Feuil1").Activate
End Sub

Merci Banzai, je prefere 1ere solution!!