Recherche nom d'un onglet

Bonjour

J'ai écrit ce code :

Dim sh As Worksheet

For Each sh In Worksheets

If sh.Name <> Lib_Mois Then

MsgBox "L'onglet " & Lib_Mois & " des clés de ventilation n'existe pas." '

ActiveWindow.Close

Sheets("DEBUT").Select

Exit Sub

End If

Next sh

Pour rechercher si le nom de l'onglet "Lib_Mois" défini auparavant existe ou non avant de continuer la macro.

Et bien ce code ne fonctionne pas.

Que l'onglet existe ou non ça "plante" ...

Une idée quelqu"un ?

Bonjour,

Le plus simple ... une fonction que tu peux utiliser partout ...

Public Function OngletExiste(snom) As Boolean
   Dim x As Object
   On Error Resume Next
   Set x = ActiveWorkbook.Sheets(snom)
   If Err = 0 Then OngletExiste = True Else OngletExiste = False
End Function

Bonjour,

la simple fonction de feuille de calculs ESTREF permet aussi de vérifier si un onglet existe :

Function ExistWorkSheet(FEUILLE$) As Boolean
         ExistWorkSheet = Evaluate("ISREF('" & FEUILLE & "'!A1)")
End Function

Si c'est pour un usage unique, pas besoin d'une fonction, utiliser directement l'instruction Evaluate …

Désolé les gars mais ça marche pas....

Désolé, cela fonctionne ainsi depuis des années de mon côté quelle que soit la version d'Excel ‼

Bref sans effort de ton côté tant au niveau de l'explication comme de la compréhension, j'en reste là …