Autres Quelques fois ça bug feuilles cachées

[un internaute]

Bonjour le forum
Dans la macro ci-dessous ça bug mais pas toujours sur cette ligne

 Sheets(1).Select                     'Mettre Sheets(1).Select à cet endroit sinon il passe en revue toutes les feuilles

Je suis obligé d'aller dans format afficher feuille et les faire afficher
Auriez-vous svp une astuce?
Merci à vous

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sh As Worksheet
Application.ScreenUpdating = False
  For Each Sh In ThisWorkbook.Worksheets
    Range("A1").Select
  Next Sh
Sheets(1).Select                     'Mettre Sheets(1).Select à cet endroit sinon il passe en revue toutes les feuilles
  On Error Resume Next
For i = 1 To Sheets.Count
If Sheets(i).Name <> "EXAMENS_CARDIOLOGIQUE_DIVERS" Then Sheets(i).Visible = False
Next i
    Application.ScreenUpdating = True
  Range("A1").Select
End Sub

Ps: encore Excel 2003

 

[un internaute]

Toutes mes excuses
Confondu Nom de répertoire et de fichier
Bonne journée

 

[cathodique]

Bonjour le forum
Dans la macro ci-dessous ça bug mais pas toujours sur cette ligne

 Sheets(1).Select                     'Mettre Sheets(1).Select à cet endroit sinon il passe en revue toutes les feuilles

Je suis obligé d'aller dans format afficher feuille et les faire afficher
Auriez-vous svp une astuce?
Merci à vous

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sh As Worksheet
Application.ScreenUpdating = False
  For Each Sh In ThisWorkbook.Worksheets
    Range("A1").Select
  Next Sh
Sheets(1).Select                     'Mettre Sheets(1).Select à cet endroit sinon il passe en revue toutes les feuilles
  On Error Resume Next
For i = 1 To Sheets.Count
If Sheets(i).Name <> "EXAMENS_CARDIOLOGIQUE_DIVERS" Then Sheets(i).Visible = False
Next i
    Application.ScreenUpdating = True
  Range("A1").Select
End Sub

Ps: encore Excel 2003

Bonjour,

d'après ce que j'ai compris (remonter les feuilles en A1 avant de les masquer)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Sh As Worksheet
    
    Application.ScreenUpdating = False
    
    For Each Sh In ThisWorkbook.Worksheets
        ' Repositionner sur A1
        Sh.Range("A1").Activate
        
        ' Masquer si ce n'est pas la feuille principale
        If Sh.Name <> "EXAMENS_CARDIOLOGIQUE_DIVERS" Then
            Sh.Visible = xlSheetHidden
        End If
    Next Sh
    
    Application.ScreenUpdating = True
End Sub