figer le nom de l'onglet vba

[itombof]

Bonjour à tous

voila mon code pour changer le nom de l'onglet sport en judi2:
Sheets("sport").Name = "judi2"


par contre le souci c'est qu'en général je ne connais pas le nom de l'onglet original (je veux l'automatiser bien entendu)

j'ai essayé
Sheets("*").Name = "judi2"

mais ça ne donne vraiment pas ce que je veux


quelqu'un peut il m'aider?

merci d'avance

 

[pierrejean]

Re : figer le nom de l'onglet vba

bonjour itombof

si ton fichier a plusieurs onglets ce n'est pas gagné ( a moins de connaitre sa place )
s'il n'y a qu'une feuille ceci devrait convenir

 sheets(Sheets.count).name="judi2"

valable egalement pour le dernier onglet

pour le premier

 sheets(1).name="judi2"

 

[itombof]

Re : figer le nom de l'onglet vba

excellent!!

Cette syntaxe m'aide énormément.

merci encore

 

[Pierrot93]

Re : figer le nom de l'onglet vba

Bonsoir itombof, PierreJean🙂

peut être une autre solution en utilisant le "codename" de la feuille, dans l'éditeur vba nom figurant dans la fenêtre "project vbaproject", généralement ce dernier n'a pas vocation a être souvent modifié :

Feuil1.Name = "toto"

bonne soirée
@+

 

[itombof]

Re : figer le nom de l'onglet vba

Bonjour merci encore
je me suis confronté ce matin à un autre type de problème.
ce qu'il y a c'est que mon classeur initiale est updaté quotidiennement par un organisme externe et quand je fais un un workbook_open du fichier original : "" ne sert à rien.
en gros voila mon nouveau code pour essayer de résoudre mon souci:



Sub workbook_open()
MsgBox ("Mise à part le fichier Classement.xls, fermer tous les fichiers excel ouverts!")
Workbooks.Open Filename:="H:\s2i\funds\Global_NAV_Clones.XLS"
Windows(Global_NAV_Clones.XLS).Activate
Dim CLASSEUR As Variant
Dim NOM_FEUILLE As Variant
CLASSEUR = ActiveWorkbook.Name
Windows("Global_NAV_Clones.XLS").Activate

Sheets(1).Name = "judi"

End Sub



problème: Object required (Error 424)

 

[pierrejean]

Re : figer le nom de l'onglet vba

Re

En 1ere analyse je reduirais a:

Sub workbook_open()
MsgBox ("Mise à part le fichier Classement.xls, fermer tous les fichiers excel ouverts!")
Workbooks.Open Filename:="H:\s2i\funds\Global_NAV_Clones.XLS" 
ActiveWorkbook.Sheets(1).Name = "judi"
End sub

 

[itombof]

Re : figer le nom de l'onglet vba

Sub workbook_open() 'd'un fichier "clLASSEMENT"

fige_nom_onglet

End sub


merci encore Pierrejean et pierrot

Voila mon code final qui fonctionne :

Sub fige_nom_onglet()

MsgBox ("Mise à part le fichier Classement.xls, fermer tous les fichiers excel ouverts!")
Workbooks.Open Filename:="H:\s2i\funds\Global_NAV_Clones.XLS"
ActiveWorkbook.Sheets(1).Name = "judi"

End Sub




par contre je voudrais savoir au niveau de 10H57, je pense que c'est un problème d'activation de la nouvelle sheet qui doit nécessité une redimension de la plage, mais je dois avouer que je ne vois pas pourquoi j'ai besoin de redimmensionner dans ce cas ci?