VBA: Problème avec Nom d'une feuille sur son codename

[MJ13]

Bonjour à tous

Je cherche à trouver le codename d'une feuille, mais cela ne fonctionne pas si on clique sur le bouton de la macro (voir le fichier). Par contre si on va en mode pas à pas une deuxème fois, il trouve bien le code name. Pourquoi 😕.

Alors, la je sèche 😱.

Merci d'avance pour toute solution qui pourrait empêcher d'aller en mode Pas à Pas 🙂.

 

[laetitia90]

Re : VBA: Problème avec Nom d'une feuille sur son codename

salut Michel🙂

essai comme cela

 Sheets.Add
ActiveSheet.Name = "Sommaire"
 MsgBox ActiveSheet.CodeName

ou encore

Sub es()
 MsgBox Sheets("Sommaire").CodeName
End Sub

 

[JCGL]

Re : VBA: Problème avec Nom d'une feuille sur son codename

Bonjour à tous,
Salut Michel,

Peux-tu essyaer :

Sub test()
Application.DisplayAlerts = 0
Sheets("Sommaire").Delete
Application.DisplayAlerts = 0
Sheets.Add
ActiveSheet.Name = "Sommaire"
temp = ActiveSheet.CodeName
'MsgBox ActiveWorkbook.Name
NomFACt1 = temp 'Workbooks(ActiveWorkbook.Name).Sheets("Sommaire").CodeName
MsgBox NomFACt1
End Sub

A++
A + à tous

Edition : Salut Laetitia et Bises. Grand beau sur Chamrousse...

 

[laetitia90]

Re : VBA: Problème avec Nom d'une feuille sur son codename

re,salut Jean claude beau mais trés froid 😀
bises a toi egalement

 

[MJ13]

Re : VBA: Problème avec Nom d'une feuille sur son codename

Bonjour Laetitia, Jean-Claude

J'ai bien testé vos codes sur Xl2010, c'est pareil, cela ne marche qu'en mode pas à pas 😕.

Serait-ce un effet de mémoire car je peux dans le même classeur ajouter la feuille Sommaire puis la supprimer, avant de la rajouter.

Si quelqu'un peut tester et me dire si il a le bug de mon fichier chez lui en précisant sa version d'Excel 🙂.

 

[camarchepas]

Re : VBA: Problème avec Nom d'une feuille sur son codename

Bonjour MJ13 et à tous ,

Hihi, bon découvert il y a longtemps par hasard. (Non ce n'est pas un membre du forum)

Sub test()
Sheets.Add
ActiveSheet.Name = "Sommaire"
'MsgBox ActiveWorkbook.Name

DoEvents

NomFACt1 = Workbooks(ActiveWorkbook.Name).Sheets("Sommaire").CodeName
MsgBox NomFACt1
End Sub

 

[MJ13]

Re : VBA: Problème avec Nom d'une feuille sur son codename

Bonjour Camarchepas

Tu as raison, mais, ça marche pas 😱.

D'autres solutions 🙂.

 

[Papou-net]

Re : VBA: Problème avec Nom d'une feuille sur son codename

Bonjour Michel,
Bonjour Laetitia, JC, Nono,

Pas sûr d'avoir bien compris tous vos écueils, mais en modifiant le code initial comme suit, ça me semble fonctionner :

Sub test()
Sheets.Add
ActiveSheet.Name = "Sommaire"
NomFACt1 = ActiveSheet.CodeName
MsgBox NomFACt1
End Sub

Bonne journée à tous.

Cordialement.

 

[Papou-net]

Re : VBA: Problème avec Nom d'une feuille sur son codename

RE:

Ou plus simplement encore :

Sub test()
Sheets.Add
ActiveSheet.Name = "Sommaire"
MsgBox ActiveSheet.CodeName
 End Sub

Cordialement.

Edit : je viens de me rendre compte que Laetitia et JC ont déjà développé une solution similaire dans leurs réponses et je ne comprends pas pourquoi ça ne fonctionne pas chez Michel ? Chez moi, sur Excel2010, ça marche sans soucis.

 

[Si...]

Re : VBA: Problème avec Nom d'une feuille sur son codename

salut

mauvaise réponse donc code supprimé

 

[JCGL]

Re : VBA: Problème avec Nom d'une feuille sur son codename

Bonjour à tous,
Salut les amis,

Vite fait avant de profiter de cette belle journée et des belles pistes de Chamrousse.

Aucune de nos propositions ne fonctionne chez moi en appel de macro...
Elles fonctionnent en Pas à pas.

A++
A + à tous

 

[laetitia90]

Re : VBA: Problème avec Nom d'une feuille sur son codename

re, tous🙂🙂
essai comme cela pour voir ??

Dim sh As Worksheet
 Set sh = Worksheets("Sommaire")
 MsgBox sh.[_CodeName]

ps chez moi marcher sous excel2007

 

[JCGL]

Re : VBA: Problème avec Nom d'une feuille sur son codename

Bonjour à tous,

OK chez moi et sous XL 2010 en appel de macro avec la proposition de Laetitia...

Bravo...

A + à tous

 

[MJ13]

Re : VBA: Problème avec Nom d'une feuille sur son codename

Bonjour à tous

Merci à tous pour vos solutions qui me posent un problème. Le code de Laetitia 🙂 semble fonctionner, bravo. Mais en appel de fonction dans une autre macro me posait toujours le souci.

J'ai contourné le problème j'ai du mettre en place ce code:

On Error GoTo suite
suite:
    Dim sh As Worksheet
    Dim vdsv As String
Sheets("Sommaire_").Activate
    Set sh = Worksheets("Sommaire_")
    vdsv = sh.[_CodeName]

Sinon, j'ai pu adapter dans le fichier joint 🙂. Il reste encore quelques imperfections mais les grandes lignes sont dans le fichier.

 

[JCGL]

Re : VBA: Problème avec Nom d'une feuille sur son codename

Bonjour à tous,
Salut Michel,

Juste pour perfectionner...
Si dans les Options du VBE, la case "Déclaration des Variables Obligatoires" est cochée, un Option Explicit se retrouve en fin de code de la feuille 'Sommaire_'.

Pas d'incidence sur le code mais une alerte au débogage.

A++
A + à tous

Edition :

Sub Ecrit_Code_VBA_Dans_Feuille_Sommaire()
    On Error GoTo suite
suite:
    Dim sh As Worksheet
    Dim vdsv As String
    Sheets("Sommaire_").Activate
    Set sh = Worksheets("Sommaire_")
    vdsv = sh.[_CodeName]
    With ActiveWorkbook.VBProject.VBComponents(vdsv).CodeModule
        .InsertLines 1, "Option Explicit"
        .InsertLines 2, " "
        .InsertLines 3, "Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)"
        .InsertLines 4, "On Error Resume Next"
        .InsertLines 5, "If Sheets(ActiveCell.Text).Visible = False Then Sheets(ActiveCell.Text).Visible = True"
        .InsertLines 6, "Sheets(ActiveCell.Text).Select"
        .InsertLines 7, "End Sub"
        .DeleteLines 8
    End With
End Sub