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

Daniel200666 · 25 Mai 2023

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 · 25 Mai 2023

Bonjour Daniel200666,

Créez une macro Workbook_BeforeClose dans ThisWorkbook.

A+

cp4 · 25 Mai 2023

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.

VB:

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

Bonne journée.

Daniel200666 · 25 Mai 2023

job75 à dit:
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 · 25 Mai 2023

Donc dans ThisWorkbook :

VB:

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 :

Code:

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 · 25 Mai 2023

cp4 à dit:
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.

VB:

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 · 25 Mai 2023

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 · 25 Mai 2023

Daniel200666 à dit:
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 · 25 Mai 2023

Daniel200666 à dit:
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

VB:

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

Daniel200666 · 22 Janvier 2024

Bonjour à tous
je reviens vers vous sur cet ancien post car je ne comprends pas sur mon fichier la raison pour laquelle, en application de cette macro, les filtres sont effacés à la fermeture
je souhaiterais pouvoir conserver à minima, pour les multi-utilisateurs, la possibilité de trier les colonnes
Pourriez vous m'aider svp à conserver la possibilité de filtrer ?
Merci et bonne soirée

cp4 · 23 Janvier 2024

Daniel200666 à dit:
Bonjour à tous
je reviens vers vous sur cet ancien post car je ne comprends pas sur mon fichier la raison pour laquelle, en application de cette macro, les filtres sont effacés à la fermeture
je souhaiterais pouvoir conserver à minima, pour les multi-utilisateurs, la possibilité de trier les colonnes
Pourriez vous m'aider svp à conserver la possibilité de filtrer ?
Merci et bonne soirée

Bonjour,

Je te réponds rapidement en prenant mon café matinal.
Ouvre une autre discussion, tu auras plus de chance pour avoir des propositions de solution.

cp4 à dit:
If Ws.AutoFilterMode = True Then Ws.AutoFilterMode = False

signifie un filtre est appliqué, le désactiver
nb: voir réponse de @job75 plus haut
Bonne journée.

Daniel200666 · 23 Janvier 2024

Bonjour à tous et bonjour @cp4
Je vais ouvrir un nouveau poste merci en tout cas pour ce petit coup de main très matinal comme tu dis bonne journée

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

Daniel200666

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Daniel200666

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Daniel200666

XLDnaute Occasionnel

Daniel200666

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Daniel200666

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

Daniel200666

XLDnaute Occasionnel

Discussions similaires