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

cathodique

XLDnaute Barbatruc
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
 

Pièces jointes

Dernière édition:

cathodique

XLDnaute Barbatruc
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.
 

Discussions similaires

Réponses
0
Affichages
426
  • Question Question
Microsoft 365 Excel VBA
Réponses
5
Affichages
331
Réponses
29
Affichages
2 K
Réponses
10
Affichages
777
Réponses
2
Affichages
508

Statistiques des forums

Discussions
315 283
Messages
2 118 012
Membres
113 408
dernier inscrit
lausablk