Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Ajouter une commande dans une macro

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

Nathan027

XLDnaute Junior
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 🙂
 
Solution
N
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 🙂
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Pour commencer, merci pour ta réponse

Et non, en fait je voudrais que ce soit le nom de l'utilisateur.
 
Vote positif 0 Vote négatif
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 🙂
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Résolu(e)
Microsoft 365 Ajouter dans TS en fonction valeur de cellule
Réponses
8
Affichages
358
vgendron
  • Résolu(e)
Microsoft 365 Ajout d'onglet par VBA et entête de colonnes
2
Réponses
17
Affichages
991
Roseline
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
179
Phil69970
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
594
NONO14
N
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
557
Phil69970
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
474
Faroyo
F
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
99
fanch55
P
  • Résolu(e)
Microsoft 365 Exporte format d'impression à d'autres onglet
Réponses
3
Affichages
347
PatrickNyon
P
A
  • Question Question
XL 2019 Ajouter ou supprimer une ligne selon un mot trouvé dans une autre feuille
Réponses
1
Affichages
404
Oneida
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
94
sylvanu
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
386
Nadou69
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
2 K
onobyone
O
N
  • Résolu(e)
Microsoft 365 Bouton Insertion
Réponses
4
Affichages
302
Nathan027
N
C
  • Résolu(e)
XL 2021 Duplication d'onglets dans un nouveau fichier et enregistrement selon une cellule donnée
Réponses
7
Affichages
452
wDog66
L
  • Question Question
XL 2021 Si le nom de la feuille est égale alors .... HELP !
Réponses
4
Affichages
361
Lune999
L
A
  • Question Question
Autres VBA Dupliquer un Onglet dans un autre Onglet en Valeur (Sans formule et avec un nom d'onglet specifique)...
Réponses
6
Affichages
757
patricktoulon
C
  • Question Question
XL 2016 Création d'un tableau récapitulatif pour bon de commande
Réponses
7
Affichages
714
chris
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
819
Thomi
T
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
1 K
GClaire
G
D
  • Résolu(e)
XL 2019 Ajouter une commande au menu contextuel
Réponses
7
Affichages
707
patricktoulon
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…