Private Sub Workbook_Open()
Sheets("Feuil9").Select
End Sub
Bonsoir Papycaen
regarde le code ci dessous, à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :
Code:Private Sub Workbook_Open() Sheets("Feuil9").Select End Sub
ou Feuil9 est le nom de la feuille en question...
bonne soirée
@+
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(Sheets.Count).Activate
ThisWorkbook.Close SaveChanges:=True
End Sub
Private Sub Workbook_Open()
Sheets(Sheets.Count).Activate
End Sub