macro ouvrir feuille cachée

[bobaskis]

bjr à tous,

j'ai 50 fichiers à traiter, ils contiennent des feuilles cachées (janvier ou février).
Dans chaque fichier il y a soit une feuille janvier soit une feuille fevrier.
Je sais comment faire pour ouvrir une feuille cachée :
Sheets("NomDeLafeuille").Visible = true

Mon pb : comment faire pour ouvrir la feuille février si la feuille janvier n'existe pas ?
J'ai essayé avec des If, des On error goto mais rien n'y fait.
d'avance merci.
a+
bob

 

[Compte Supprimé 979]

Re : macro ouvrir feuille cachée

Bonjour Bobaskis et bienvenue sur ce forum

Tu essayer avec

Sub Test()
  Dim Sht As Worksheet
  For Each Sht In ThisWorkbook.Sheets
    If Sht.Visible = xlSheetHidden Then Sht.Visible = xlSheetVisible
  Next Sht
End Sub

A+

 

[bobaskis]

Re : macro ouvrir feuille cachée

ok ta macro ouvre toutes les feuilles cachées mais maintenant comment faire pour savoir s'il y a une feuille janvier ou fevrier et la sélectionner ?

 

[bobaskis]

Re : macro ouvrir feuille cachée

slt, je pense avoir trouvé (les feuilles cherchées dans cet exemple sont "budget" et "index"


Sub Test1()
Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Sheets
If Sht.Visible = xlSheetHidden Then Sht.Visible = xlSheetVisible
Next Sht

Dim n As Integer, m As Integer

For n = 1 To Sheets.Count
If Sheets(n).Name = "Budget" Then
Sheets("Budget").Select
Exit For
End If
For m = 1 To Sheets.Count
If Sheets(m).Name = "Index" Then
Sheets("Index").Select

End If
Next m
Next n
End Sub

je pense qu'il doit y avoir plus simple.
a+

 

[Compte Supprimé 979]

Re : macro ouvrir feuille cachée

Ok ton titre du fil est "macro ouvrir feuille cachée" ... c'est fait

Soit plus explicite dans tes questions et tes titres et tu auras les bonnes réponses

A tchao