Modifier titre feuille excel avec contenu cellule...

Fermé
margaux1991 Messages postés 9 Date d'inscription lundi 10 mars 2014 Statut Membre Dernière intervention 22 juillet 2014 - 10 mars 2014 à 16:58
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 11 mars 2014 à 09:06
Bonjour,

Voilà mon soucis.
J'ai créé une feuille dans mon classeur Excel qui est la copie d'une autre. Son nom est directement établi comme : Feuille 1 (2).
Je souhaiterai modifier ce nom et le remplacer par le contenu de la cellule A5 (de cette meme feuille ou de la copie initiale).

Si je fais :

ActiveSheets.Name = Range("A5")

Ça ne marche pas...

J'ai essayé avec .text, .Value, rien à faire...

Auriez-vous une idée ?

Merci d'avance !
A voir également:

4 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
10 mars 2014 à 21:14
Bonjour,

Essaies :
ActiveSheet.Name = Range("A5").Value
(Sans le s )
0
margaux1991 Messages postés 9 Date d'inscription lundi 10 mars 2014 Statut Membre Dernière intervention 22 juillet 2014
10 mars 2014 à 21:21
Merci Patrice pour cette réponse très rapide.
Cependant, cela ne fonctionne pas...

Quand je fais ça, Excel m'annonce "erreur 1004".

Voici le début de mon code...

Sheets("Manifestation Terminée").Select
Sheets("Manifestation Terminée").Copy After:=Sheets(10)
ActiveWindow.SmallScroll Down:=1
Worksheets("Manifestation Terminée (2)").Activate
ActiveSheet.Name = Range("A5").Value
Sheets("Manifestation Terminée").Select

Cela ne fonctionne pas.
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
10 mars 2014 à 21:49
Re,

Il faut préciser dans quelle feuille se situe le Range, le code suivant fonctionne parfaitement (à condition que la cellule A5 de la feuille "Feuil1" contienne un nom autorisé) :
Sub test()
  Worksheets("Manifestation Terminée").Copy After:=Sheets(10)
  Worksheets(10).Name = Worksheets("Feuil1").Range("A5").Value
End Sub
0
margaux1991 Messages postés 9 Date d'inscription lundi 10 mars 2014 Statut Membre Dernière intervention 22 juillet 2014
11 mars 2014 à 08:32
Merci Patrice !

En fait, il y a avait un / dans ma cellule A5 !

Trop top, ça fonctionne. Merci mille fois.
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
11 mars 2014 à 09:06
De rien, au plaisir de te relire sur le Forum

Patrice
0