VBA Excel. Utilisation du codename.

bonjour

activesheet.name="azerty"

Bonjour,

trouve sur

https://www.developpez.net/forums/d859285/logiciels/microsoft-office/excel/macros-vba-excel/modifier-codename/

Sub test()
    i = 0
    For Each ws In ActiveWorkbook.Worksheets
     i = i + 1
        On Error Resume Next
        ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = "XXX" & i
        On Error GoTo 0
    Next ws
End Sub

Re,

marche tres bien:



a condition de bien ouvrir les yeux:
ActiveSheet.Parent.VBComponents(ActiveSheet.CodeName).Properties("_CodeName") = "Toto"
ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).Properties("_CodeName") = "Toto"

Bonjour,

Voici une solution

2 commandbutton:

voici le code:

Option Explicit
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
   Feuil2.Delete
Application.DisplayAlerts = True

Sheets.Add After:=Feuil1
ActiveSheet.Name = "Feuil2"

End Sub
Sub RenommerCodeName()
    Dim Ws As Worksheet
 
    'Spécifie la 1ere feuille dans le classeur contenant cette macro.
    Set Ws = ThisWorkbook.Sheets(2)
 
    'Attention: le nouveau nom ne doit pas contenir d'espace.
    ThisWorkbook.VBProject.VBComponents(Ws.CodeName).Name = "Feuil2"
End Sub
Private Sub CommandButton2_Click()
RenommerCodeName
End Sub

cliquer sur le bouton 1 et fermer l'UserForm
Ensuite ouvrir et cliquer sur le bouton 2

Si on le fait en même temps ça debug!

Re,

Re,

Option excel a parametrer

Chez moi, c'est comme cela, mais comme je l'ai expliqué cela bug si on fait les 2 opérations en même temps.
Certainement qu'Excel a besoin de reprendre la main

A lire, il y a une référence à cocher:

https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LII-B-6

Arghhh ...
Re-bonjour ...
C'est compliqué.
En faite j'ai des conflits avec mes noms de graphiques.

Donc, premières infos :
Quand on supprime le contenu d'une page avec

Feuil2.Select
Cells.Select
Selection.Delete Shift:=xlUp

( ce qui correspond à un "Ctrl+A" + "Suppr" )

ET que l'on fait aussi :

   Feuil2.Delete

Ben !! On ne supprime pas les differents objets Graph présent sur la page !!

Du coup, lorsque la page est recréer, les objets graphes reprenne net leur place :-/

Ensuite, si je veux supprimer mes différents graphiques et que j'utilise l'éditeur de code d'excel pour les identifier,
L'éditeur de code me donne indifféremment comme nom de graphique :

    ActiveSheet.ChartObjects("Graphique 1").Activate

    ActiveSheet.ChartObjects("Graphique 1").Activate

    ActiveSheet.ChartObjects("Graphique 1").Activate

    ActiveSheet.ChartObjects("Graphique 1").Activate

Y aurait-il une façon différente de nommer les graphique afin de pouvoir les identifier individuellement ... (un peu comme les "name" et "codename" des feuilles excel )

???
Merci

Erreur d'exécution '1004'
Impossible de renommer une feuille comme une autre feuille, une bibliothèque d'objets référencée ou un classeur référencé par Visual Basic.

Application.DisplayAlerts = False
   Feuil2.Delete
Application.DisplayAlerts = True

Sheets.Add After:=Feuil1
ActiveSheet.Name = "Feuil2"

Je précise quand même que moi, je souhaite modifier le "codename" et non pas le "name".
Name renvoie au nom de "l'onglet visible" classique de Excel, le codename est le nom de la feuille indépendamment du nom de l'onglet

(Dans propriétée Feuil, il y a le (name) et le name :-/ désolé pour ceux qui ne comprendraient pas ... en gros, (name) c'est le nom, et name c'est le caption ... :-/ )