Renommer une feuille en VBA Résolu

Question

Bonjour, 
Au cours d'une macro je me trouve sur une feuille dont le titre en A2 "Edition du 12/05/2017". Pour d'autres besoins, j'en ai extrait dans la cellule H1 la date avec la formule "droite" et j'obtiens "12/05/2017. Je voudrais renommer cette feuille dont le nom générique est"Feuil1" en la date sous la forme "12-05-17". J'ai fait un copier/coller vers la cellule H2, collage spécial "valeur". Et j'obtiens "12/05/2017"; Comme il n'est pas possible d'avoir un "/" dans le nom de la feuille, j'ai pu mettre le formar Date "jj-mm-yy" qui s'affiche parfaitement. Mais la structure est toujours "12/05/17" toujours incompatible. Comment , en VBA, renommer la feuille pour avoir cette présentation? le code:
'renomme la feuille de la date du téléchargement
    With Range("A2")
     .Parent.Name = Format(Split(.Value, "Edition du")(1), "dd-mm-yy")
    End With
ne fonctionne pas; et non plus:
 
"activeSheet.Name(H2).Value" 
par exemple, refusé.  
Merci de m'aider

     
Configuration: Windows / Chrome 58.0.3029.110

franck · Answer

Formule sur la feuille : =TEXTE(H1;"jj-mm-aa") => 12-05-17
mais pour renommer une feuille, il faut passer par VBA :

Pour renommer la 1ère feuille directement à partir de A2 :
Worksheets(1).Name = Format(Right$([A2], 10), "dd-mm-yy")

Pour renommer la 1ère feuille à partir de H1 :
Worksheets(1).Name = Format([H1], "dd-mm-yy")

elicha · Answer

Bonjour FRanck,
Merci de répondre si vite. La dernière formule marche presque. Tu as marqué "WorkSheets(1) et je ne trouvais pas de résultat bien qu'aucune erreur n'était signalée. Mais je me suis aperçu que c'était la 1ere feuille qui avait été renommée. Pour moi ce sera la dernière d'une série toujours plus longue. Comment activer la dernière feuille: LAstSheet? Ou puisque je suis déjà sur cette feuille?
Je récapitule:
-En A2: "Edition du 04/06/2017"
-en H1: "=droite(A2;10) qui me donne ""04/06/2017"
-en H2: Copie H1 et collage spécial valeur qui me donne toujours "04/06/2017
-Même si je modifie le format en "04-06-17",avec format personnalisé, en réalité dans la cellule il y a toujours les slashs; et la copie vers le nom de la feuille est refusé à cause des / .

elicha · Answer

Voilà, j'ai adapté ta formule de cette manière:
En H1, toujours extraire la date de A2
et directement sans tenir compte de la formule de Hi (droite...) j'applique ta formule légèrement modifiée:
"Range("H1").Select
  ActiveSheet.Name = Format([H1], "dd-mm-yy")

Et dire que cela fait une semaine que je me torture la tête.
Merci beaucoup de m'enlever le seul souci qui me restait pour cette macro de 200 lignes.

franck · Answer

Sur la feuille :

Ta formule en H1 donne une date avec des slashs : c'est normal ;
pour avoir en H2 cette date avec des tirets, mets en H2 :
=TEXTE(H1;"jj-mm-aa")

En VBA, pour renommer la dernière feuille (sans avoir besoin de l'activer) :

Selon A2 de la feuille active :
Worksheets(Worksheets.Count).Name = Format(Right$([A2], 10), "dd-mm-yy")

Selon H1 de la feuille active :
Worksheets(Worksheets.Count).Name = Format([H1], "dd-mm-yy")

Selon A2 de la 3ème feuille :
Worksheets(Worksheets.Count).Name = Format(Right$(Worksheets(3).[A2], 10), "dd-mm-yy")

Selon H1 de la 3ème feuille :
Worksheets(Worksheets.Count).Name = Format(Worksheets(3).[H1], "dd-mm-yy")

Si vraiment tu veux activer la dernière feuille :
Worksheets(Worksheets.Count).Select

franck · Answer

1) Dans mes messages précédents, la formule en H2 est juste pour
montrer comment une date avec " / " devient une date avec " - " ;
cette cellule H2 n'est pas utilisée ensuite par le code VBA, puisque
ce code VBA est pour utiliser A2 ou H1 (à ton choix).

2) Pour ton message de 16 h 54
Avant ta ligne ActiveSheet.Name = Format([H1], "dd-mm-yy")
tu n'as pas besoin de mettre Range("H1").Select (le guillemet
devant Range est en trop ; peut-être une faute de frappe)

3) Pour ton message de 18 h 11
Attention : la notation abrégée d'une cellule est délimitée par des
crochets, pas par des parenthèses ! donc voici la correction :
ActiveSheet.Name = [H2]
L'erreur 124 est à cause des parenthèses ; le .Value est facultatif.
Tu devrais plutôt utiliser une de mes précédentes instructions,
à partir de A2 ou H1 (à ton choix).

4) Pour tes 2 messages de 17 h 26 et 18 h 20 :
L'erreur 1004 se produit car tu essayes de nommer une feuille avec
un nom de feuille déjà utilisé ; or 2 feuilles différentes (ou plus)
ne peuvent pas avoir le même nom ; donc pour une date donnée,
il ne doit y avoir qu'une seule feuille ! aussi, pour éviter cette erreur
1004, tu dois d'abord vérifier si la feuille d'une date donnée existe :
si la feuille existe déjà, afficher le message "Feuille 04-06-17 déjà
existante" et ne pas renommer la dernière feuille ; et si la feuille
n'existe pas déjà, ne pas afficher de message et renommer la
dernière feuille en "04-06-17" (comme c'était indiqué).

5) Tu as clairement indiqué quelle feuille doit être renommée :
c'est la dernière du classeur ; par contre, la feuille à partir de
laquelle tu lis la date n'est pas très claire !

Est-ce toujours une même feuille précise, par exemple toujours
la 3ème feuille ? si oui, utiliser : Worksheets(3).[A2] ou
Worksheets(3).[H1] (comme je l'avais déjà indiqué)

Est-ce toujours la feuille active (qui n'est pas forcément toujours
la même feuille) ? si oui, utiliser ActiveSheet.Name = ...

6) Bien sûr, on suppose que la date de A2 est valide ; car si tu as
par exemple "Edition du 31/02/2017", ça n'ira pas !

7) Si le classeur est protégé, renommer la feuille fera planter
ton code VBA !

franck · Answer

J'avais supprimé mon message car j'en ai mis un autre plus complet ;
mais j'ai oublié une dernière recommandation (qui est évidente) :
ne pas utiliser la macro depuis la dernière feuille, puisque c'est cette
feuille qui doit être renommée ; lis bien le point 5) pour déterminer
sur quelle feuille il faut lire la date !

Pour ton message de 19 h 18, tu as encore mis un guillemet en trop
devant une ligne d'instruction ! d'où cette autre correction :
ActiveSheet.Name = Format([H1], "dd-mm-yy")

franck · Answer

J'ai fait une erreur au dernier paragraphe du point 5) ; je le corrige :

Est-ce toujours la feuille active (qui n'est pas forcément toujours 
la même feuille) ? si oui, utiliser :

Worksheets(Worksheets.Count).Name = Format([H1], "dd-mm-yy")

dans cette instruction, la cellule [H1] est celle de la feuille active ;
c'est possible de la préciser comme indiqué ci-dessous, mais c'est
en fait inutile puisque sans référence explicite d'une feuille, ça lit
une référence de cellule sur la feuille active.

Worksheets(Worksheets.Count).Name = Format(ActiveSheet.[H1], "dd-mm-yy")

Je conseille donc la première formule, qui est à la fois plus courte
et plus simple à lire.

Renommer une feuille en VBA

7 réponses

Votre réponse

Discussions similaires

Newsletters