XL 2010 [RESOLU-Merci Dranreb]CodeName feuille via fonction

cathodique

XLDnaute Accro
Bonjour,:)

Ce matin je me suis mis sur un tuto pour approfondir mes connaissances.
La macro doit renvoyer le code name des feuilles du classeur.

Dommage, le code plante.
Erreur 91 - "Variable objet ou variable de bloc with non définie"

Pas vraiment compris pourquoi. Merci de me venir en aide.
VB:
Option Explicit

Public Sub UseSheet()
    Dim sh As Worksheet
    Set sh = SheetFormCodeName("CodeName", ThisWorkbook)
    Debug.Print sh.Name  '**** plante ici
End Sub
Public Function SheetFormCodeName(Name As String, bk As Workbook) As Worksheet
    Dim sh As Worksheet
    For Each sh In bk.Worksheets
        If sh.CodeName = Name Then
            Set SheetFormCodeName = sh
            Exit For
        End If
    Next sh
End Function
Avec mes remerciements anticipés.

:confused:oublié le fichier
 

Fichiers joints

Dernière édition:

cathodique

XLDnaute Accro
Merci beaucoup Dranreb:), tu viens à mon secours encore une fois.

Depuis le temps, j'aurai dû faire un effort pour améliorer mon anglais. Enfin au moins pour le vba.
C'est un tuto en anglais donc pas trop compris la littérature. Quand même, le nul que je suis.

Encore merci.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas