modification du nom de l'onglet

[Hugues]

Bonsoir Le Forum,

Par le biais d'une macro, je souhaiterais dupliquer une feuille type nommée "1-matrice" .
Puis je souhaiterais modifier le nom de la copie et appliquer comme nom la valeur contenue dans la cellule B2 de cette feuille copie.

La copie se passe bien mais c'est la modification du nom qui pose souci.

Ci joint le code :

' Duplicage de la feuille matrice
Sheets("1-matrice").Select
Sheets("1-matrice").Copy After:=Sheets(Sheets.Count)

' Insertion des données dans la feuille à partir des données contenues dans le userform
Range("B2") = nom.Value
Range("C4") = adresse.Value
Range("C5") = compl_adress.Value
Range("C6") = code_post.Value
Range("C7") = ville.Value
Range("C8") = tel1.Value
Range("C9") = tel2.Value
Range("C10") = portable.Value
Range("C11") = email.Value
Range("C12") = ref.Value
Range("C13") = org.Value

' Modification de l'onglet
ws3 = ActiveWorkbook.Sheets
ws3.Name = Range("B2").Value
creation.Hide

Pouvez vous m'aider ?

Merci par avance,

Hugues

 

[Robert]

Re : modification du nom de l'onglet

Bonsoir Hugues, bonsoir le forum,

Essaie comme ça :

' Duplicage de la feuille matrice
Sheets("1-matrice").Select
Sheets("1-matrice").Copy After:=Sheets(Sheets.Count)
' Modification de l'onglet
ActiveSheet.Name= nom.Value
 
' Insertion des données dans la feuille à partir des données contenues dans le userform 
Range("B2") = nom.Value
Range("C4") = adresse.Value
Range("C5") = compl_adress.Value
Range("C6") = code_post.Value
Range("C7") = ville.Value
Range("C8") = tel1.Value
Range("C9") = tel2.Value
Range("C10") = portable.Value
Range("C11") = email.Value
Range("C12") = ref.Value
Range("C13") = org.Value
 
creation.Hide

 

[Hugues]

Re : modification du nom de l'onglet

Merci Robert pour ton aide ; ca fonctionne trés bien
Bonne soirée