(VBA) Activer un classeur en fonction du nom d'une feuille

[Matt51100]

Bonjour à tous,

LA question est dans le titre. J'ai plusieurs classeurs ouverts. J'aimerais par macro activer un des classeur contenant une feuille dont le nom est "TOTO".

J'ai pas vraiment l'idée d'une piste.

Merci d'avance.

Matthieu.

 

[Guest]

Re : (VBA) Activer un classeur en fonction du nom d'une feuille

Bonjour,

A tester:

Sub ActiverFeuilleXclasseur(strNomFeuille As String)
    Dim wk As Workbook
    Dim sh As Worksheet
    For Each wk In Workbooks
        For Each sh In wk.Worksheets
            If UCase(sh.Name) = UCase(strNomFeuille) Then
                wk.Activate
                sh.Activate
                Exit Sub
            End If
        Next
    Next
End Sub

A+

 

[TempusFugit]

Re : (VBA) Activer un classeur en fonction du nom d'une feuille

Bonjour

Essaie la macro ci-dessous

Sub MACRO()
Dim  i, j
For i = 1 To Workbooks.Count
For j = 1 To Workbooks(i).Worksheets.Count
Select Case Workbooks(i).Sheets(j).Name
Case "TOTO"
Workbooks(i).Sheets(j).Activate
End Select
Next j
Next i
End Sub

Désolé, je n'avais pas vu la solution de Hasco.
Excusez-moi.

 

[Matt51100]

Re : (VBA) Activer un classeur en fonction du nom d'une feuille

Bonjour à tous,

Merci bien pour le coup de main. J'ai pris la solution de Tempus.

A+, Matthieu.