Microsoft 365 Ajouter une commande dans une macro

[Nathan027]

Bonjour à toutes et à tous.

Je sollicite votre aide.
J'aimerai dans un module qui me sert a dupliquer une feuille dans un dossier, y ajouter une commande qui me permet d'ajouter le nom de l'utilisateur qui créé la feuille dans la cellule "I5"

Sub DupliquerOnglet()
Dim Onglet As Worksheet
Set Onglet = ActiveWorkbook.Sheets("Vierge")
Onglet.Copy After:=Onglet
ActiveSheet.Name = Application.InputBox("Nom de l'onglet", Type:=2)
End Sub

Je vous remercie davance de votre aide 🙂

 

[sylvanu]

Bonjour Nathan,
Vous voulez que ce nom soit à la fois le nom de la feuille et en I5 ?
Si c'est ça, essayez :

Sub DupliquerOnglet()
Dim Onglet As Worksheet, Nom$
Set Onglet = ActiveWorkbook.Sheets("Vierge")
Onglet.Copy After:=Onglet
Nom = Application.InputBox("Nom de l'onglet", Type:=2)
ActiveSheet.Name = Nom
[I5] = Nom
End Sub

 

[job75]

Bonjour Nathan027, sylvanu,

une commande qui me permet d'ajouter le nom de l'utilisateur

Alors pourquoi pas :

Nom = Environ("UserName")

A+

 

[Nathan027]

Bonjour Nathan,
Vous voulez que ce nom soit à la fois le nom de la feuille et en I5 ?
Si c'est ça, essayez :

Sub DupliquerOnglet()
Dim Onglet As Worksheet, Nom$
Set Onglet = ActiveWorkbook.Sheets("Vierge")
Onglet.Copy After:=Onglet
Nom = Application.InputBox("Nom de l'onglet", Type:=2)
ActiveSheet.Name = Nom
[I5] = Nom
End Sub

Pour commencer, merci pour ta réponse

Et non, en fait je voudrais que ce soit le nom de l'utilisateur.

 

[Nathan027]

Grace à vos deux réponses combinées

Sub DupliquerOnglet()
Dim Onglet As Worksheet, Nom$
Set Onglet = ActiveWorkbook.Sheets("Vierge")
Onglet.Copy After:=Onglet
Nom = Application.InputBox("Nom de l'onglet", Type:=2)
ActiveSheet.Name = Nom
[B6] = Environ("UserName")
End Sub

ET ca fontionne. Merci à vous deux 🙂