Bonjour les Zamis !!!!
Nan nan nan, moi à mon inztar ze n'ai zamais écrit za !!!! lol
C'est ça que je conseille :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Select
End Sub
ou encore
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets('Feuil1').Select
End Sub
ou encore
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.Select
End Sub
Mais zamais !!!
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Select
End Sub
car za, za ne le fait pas lol
Bon Samedi
@+Thierry