donnée un nom à l'onglet

[Amaury11100]

Bonjour à toutes et tous,
Je vous ai joint un fichier dans lequel je voudrai, à l'aide d'une macro, donner le nom à l'onglet en fonction de ce qui est tapé dans la cellule B2 par exemple que cela prenne comme nom : "Fiche 1" à la place de "feuil1".
Merci d'avance pour votre aide.
Amaury

 

[KurDtE]

Re : donnée un nom à l'onglet

ActiveSheet.name = ActiveSheet.Cells(2,2)

 

[fifi]

Re : donnée un nom à l'onglet

bonjour,
il n'y a pas de classeur joint :s

les régles pour mettre une pièce jointes sont :

- format ZIP
- moins de 50Ko
- pas d'espace ou d'accentuation dans le nom du fichier .


sinon tu peux faire une macro comme ceci pour changer le nom de la feuille.



Sub changer_nom_feuille()
On Error Resume Next
Dim NomFeuille As String
NomFeuille = ActiveSheet.Name
Sheets(NomFeuille).Name = Range("B2")
End Sub

 

[Amaury11100]

Re : donnée un nom à l'onglet

Oh pardon, je suis navré !!!
Comme à mon habitude, j'ai oublié de joindre mais je vous remercie quand meme car vous m'avez compris et répondu donc merci à vous.
Cordialement
Amaury.