Macro copier un onglet et le nommer ,dans même classeur...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin d'écrire une macro. Cette macro devra copier un onglet nommé "Formulaire", le copier (tout) et le nommer avec le contenu de la cellule i19, le tout dans le même classeur et en dernier.

Merci pour votre aide si précieuse.

Bien à vous et Bonnes Fêtes à tous.

Christian

 

[MJ13]

Re : Macro copier un onglet et le nommer ,dans même classeur...

Bonjour Christian

Voici déjà un code pour t'aider que j'ai retrouvé dans mes affaires 🙂:

nf = ThisWorkbook.Sheets.Count
Sheets(NOMFeuilleAgarder(1)).Move After:=Sheets(nf)

 

[Robert]

Re : Macro copier un onglet et le nommer ,dans même classeur...

Bonjour Christian, Michel, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Sheets("Formulaire").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ActiveSheet.Range("I19")
End Sub

 

[Christian0258]

Re : Macro copier un onglet et le nommer ,dans même classeur...

Re, le forum, MJ13, Robert,

Merci , MJ13 et Robert, pour votre travail, c'est impeccable.

Bien à vous.
JOYEUSES FÊTES à tous

Christian