Bonjour,
Après quelques heures à chercher sur internet je fait appel à vos connaissances.
Je cherche à renomer des onglets d’un fichier "Reporting" qui comporte un onglet par semaine pour le mois (W36 pour la semaine 36, W37 ....)
Et cela se fait à partir un autre fichier "macro"
Comme les onglets à renommer doivent changer de nom tous les mois, donc j'ai trouvé qu'il faut que je les appelent pas leur Sheet Name (j’ai excel en anglais) et non le nom affiché sur l'onglet : W36, W37 ...
Le nom des onglets à définir se trouvent dans un onglet "Stats" (cette information est présente dans le fichier "reporting") et je veux donc me servir de cette information des cellules que j'ai nommé en "semaine1" / "semaine2" / ...
Le seule morceau de code qui n'a pas planté est le suivant mais il me renomme l'onglet de la macro et non celui du fichier "reporting"
J'ai essayé de définir le Sheet4 par cela mais ça me met w1="" lorsque je survole l'erreur
Merci de vos lumières.
Après quelques heures à chercher sur internet je fait appel à vos connaissances.
Je cherche à renomer des onglets d’un fichier "Reporting" qui comporte un onglet par semaine pour le mois (W36 pour la semaine 36, W37 ....)
Et cela se fait à partir un autre fichier "macro"
Comme les onglets à renommer doivent changer de nom tous les mois, donc j'ai trouvé qu'il faut que je les appelent pas leur Sheet Name (j’ai excel en anglais) et non le nom affiché sur l'onglet : W36, W37 ...
Le nom des onglets à définir se trouvent dans un onglet "Stats" (cette information est présente dans le fichier "reporting") et je veux donc me servir de cette information des cellules que j'ai nommé en "semaine1" / "semaine2" / ...
Le seule morceau de code qui n'a pas planté est le suivant mais il me renomme l'onglet de la macro et non celui du fichier "reporting"
Code:
Sub test()
Fichier_stats = ThisWorkbook.Sheets("Macro").Range("Fich_stats").Value
nom_fich_stats = Right(Fichier_stats, InStr(StrReverse(Fichier_stats), "\"))
nom_fich_stats = Right(nom_fich_stats, Len(nom_fich_stats) - 1)
Nom_Macro = ActiveWorkbook.Name
Workbooks.Open Filename:=Fichier_stats, Local:=True
Sheet4.Name = Sheets("Stats").Range("semaine1").Value 'pour info Sheet4 = Sheet4 (W36) et ici il prend bien le nom voulu pour le test : W40
J'ai essayé de définir le Sheet4 par cela mais ça me met w1="" lorsque je survole l'erreur
Code:
Dim w1 As String
w1 = nom_fich_stats.Sheet4
Merci de vos lumières.