Microsoft 365 Macro pour revenir automatiquement au premier onglet à la fermeture ( fichier à plusieurs onglets)

[Daniel200666]

bonjour à tous
j'espère que vous allez bien à l'approche d'un WE de trois jours !
j'ai un classeur de production de plusieurs onglets et je voudrais pouvoir, au moment où les commerciaux ferment le classeur, qu'il puisse s'ouvrir automatiquement sur l'onglet 1 qui est l'onglet principal de renseignements ( les autres sont des bases ou des TCD)
Quelqu'un a-t-il déjà créé cette macro svp ?
Merci beaucoup et bonne journée
Daniel

 

[job75]

Bonjour Daniel200666,

Créez une macro Workbook_BeforeClose dans ThisWorkbook.

A+

 

[cp4]

Bonjour,

Tu fais Alt+F11, ouvre le VBE (image)

Double-clic sur ThisWorkbook et coller code ci-dessous dans la fenêtre de droite.
Enregistrer le fichier, le fermer et l'ouvrir pour s'en rendre compte.

Private Sub Workbook_Open()
Sheets(1).Activate
End Sub

Bonne journée.

 

[Daniel200666]

Bonjour Daniel200666,

Créez une macro Workbook_BeforeClose dans ThisWorkbook.

A+

Merci beaucoup @job75 je vois a peu près .... serait il possible que vous me donniez la macro ??? ce serait
Sub

Workbook_BeforeClose

End sub ?

Désolé mais je suis néophyte sur Excel et encore plus sur ce site ....

 

[job75]

Donc dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets(1)
    .Visible = xlSheetVisible 'si la feuille est masquée
    .Activate
End With
Me.Save 'enregistre le classeur
End Sub

Avec une Workbook_Open :

Private Sub Workbook_Open()
With Sheets(1)
    .Visible = xlSheetVisible 'si la feuille est masquée
    .Activate
End With
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

 

[Daniel200666]

Bonjour,

Tu fais Alt+F11, ouvre le VBE (image)
Regarde la pièce jointe 1170865
Double-clic sur ThisWorkbook et coller code ci-dessous dans la fenêtre de droite.
Enregistrer le fichier, le fermer et l'ouvrir pour s'en rendre compte.

Private Sub Workbook_Open()
Sheets(1).Activate
End Sub

Bonne journée.

@cp4 , merci beaucoup pour cette macro
je regarde et je vous reviens vers all the members pour vous dire !!!

 

[Daniel200666]

j'ai pensé écrire cette macro que j'ai issu d'une macro pour enlever tous les filtres à la fermeture
Pourriez vous me donner votre avis, svp ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Dim Ws As Worksheet
On Error Resume Next


For Each Ws In Worksheets
Sheets(1) .Activate
Next
Application.ScreenUpdating = True
End Sub

 

[job75]

j'ai pensé écrire cette macro que j'ai issu d'une macro pour enlever tous les filtres à la fermeture
Pourriez vous me donner votre avis, svp ?

On Error Resume Next ne sert à rien et la boucle non plus...

 

[cp4]

j'ai pensé écrire cette macro que j'ai issu d'une macro pour enlever tous les filtres à la fermeture
Pourriez vous me donner votre avis, svp ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Dim Ws As Worksheet
On Error Resume Next


For Each Ws In Worksheets
Sheets(1) .Activate
Next
Application.ScreenUpdating = True
End Sub

Si j'ai bien compris, à tester.
Bonjour @job75

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      If Ws.AutoFilterMode = True Then Ws.AutoFilterMode = False
   Next
   Sheets(1).Activate
End Sub