Microsoft 365 Ajouter une commande dans une macro

Nathan027 · 9 Février 2024

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

Nathan027 · 12 Février 2024

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

sylvanu · 9 Février 2024

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

VB:

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 · 9 Février 2024

Bonjour Nathan027, sylvanu,

Nathan027 à dit:
une commande qui me permet d'ajouter le nom de l'utilisateur

Alors pourquoi pas :

VB:

Nom = Environ("UserName")

A+

Nathan027 · 12 Février 2024

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

VB:

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 · 12 Février 2024

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

Microsoft 365 Ajouter une commande dans une macro

Nathan027

XLDnaute Junior

Nathan027

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Nathan027

XLDnaute Junior

Nathan027

XLDnaute Junior

Discussions similaires