Récupérer le nom d'une feuille...

Le
Josh
Bonjour,

Une de mes macros insère une feuille. Je souhaite récupérer le nom de la
feuille créée.

Comment faire ???

Merci d'avance.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
tissot.emmanuel
Le #4904321
Bonjour,

Dim NomFeuille As String
NomFeuille = Sheets.Add(after:=Sheets(Sheets.Count)).Name
MsgBox NomFeuille

Cordialement,

Manu/

"Josh"
Bonjour,

Une de mes macros insère une feuille. Je souhaite récupérer le nom de la
feuille créée.

Comment faire ???

Merci d'avance.


isabelle
Le #4904311
bonjour Josh,

nom = ActiveSheet.Name

isabelle


Bonjour,

Une de mes macros insère une feuille. Je souhaite récupérer le nom de la
feuille créée.

Comment faire ???

Merci d'avance.


Youky
Le #4904301
Salut Jossh,
Worksheets.Add
'une fois ajouté la feuille , elle se selectionne d'elle même alors.......
MsgBox ActiveSheet.Name
bye bye
Youky

"Josh"
Bonjour,

Une de mes macros insère une feuille. Je souhaite récupérer le nom de la
feuille créée.

Comment faire ???

Merci d'avance.


Josh
Le #4904261
Merci Youki,

Sais-tu à présent comment faire pour positionner la nouvelle feuille à tel
ou tel endroit ???

En fait, je veux quelle se place entre la feuille "Truc" et la feuille
"Machin".

Merci d'avance,


Salut Jossh,
Worksheets.Add
'une fois ajouté la feuille , elle se selectionne d'elle même alors.......
MsgBox ActiveSheet.Name
bye bye
Youky

"Josh"
Bonjour,

Une de mes macros insère une feuille. Je souhaite récupérer le nom de la
feuille créée.

Comment faire ???

Merci d'avance.







Youky
Le #4904251
Worksheets.Add
Sheets(ActiveSheet.Name).Move After:=Sheets("Truc")
Ben voilà
Youky
avec un y à la fin Merci
"Josh"
Merci Youki,

Sais-tu à présent comment faire pour positionner la nouvelle feuille à tel
ou tel endroit ???

En fait, je veux quelle se place entre la feuille "Truc" et la feuille
"Machin".

Merci d'avance,


Salut Jossh,
Worksheets.Add
'une fois ajouté la feuille , elle se selectionne d'elle même
alors.......
MsgBox ActiveSheet.Name
bye bye
Youky

"Josh"
Bonjour,

Une de mes macros insère une feuille. Je souhaite récupérer le nom de
la
feuille créée.

Comment faire ???

Merci d'avance.









anonymousA
Le #4903921
Bonjour,

juste pour le fun

With Worksheets
.Item(.Add.Name).Move After:=.Item("Truc")
End With

A+


Worksheets.Add
Sheets(ActiveSheet.Name).Move After:=Sheets("Truc")
Ben voilà
Youky
avec un y à la fin Merci
"Josh"
Merci Youki,

Sais-tu à présent comment faire pour positionner la nouvelle feuille à tel
ou tel endroit ???

En fait, je veux quelle se place entre la feuille "Truc" et la feuille
"Machin".

Merci d'avance,


Salut Jossh,
Worksheets.Add
'une fois ajouté la feuille , elle se selectionne d'elle même
alors.......
MsgBox ActiveSheet.Name
bye bye
Youky

"Josh"
Bonjour,

Une de mes macros insère une feuille. Je souhaite récupérer le nom de
la
feuille créée.

Comment faire ???

Merci d'avance.












MichDenis
Le #4903871
Et juste pour le fun, il y a aussi ceci que je la trouve
plus simple, plus facile à lire et à comprendre pour un néophyte ....! ;-))

Pour seulement ajouter une feuille après la feuille "Truc"
------------------------------
Worksheets.Add After:=Sheets("Truc")
------------------------------

Pour ajouter une feuille de calcul après la feuille Truc et la nommer "toto"
sur une seule ligne de code
------------------------------
Worksheets.Add(After:=Sheets("Truc")).Name = "toto"
------------------------------

Il faut s'assurer que la feuille "Truc" existe réellement dans le classeur.




"anonymousA" 468f658f$0$5077$
Bonjour,

juste pour le fun

With Worksheets
.Item(.Add.Name).Move After:=.Item("Truc")
End With

A+


Worksheets.Add
Sheets(ActiveSheet.Name).Move After:=Sheets("Truc")
Ben voilà
Youky
avec un y à la fin Merci
"Josh"
Merci Youki,

Sais-tu à présent comment faire pour positionner la nouvelle feuille à tel
ou tel endroit ???

En fait, je veux quelle se place entre la feuille "Truc" et la feuille
"Machin".

Merci d'avance,


Salut Jossh,
Worksheets.Add
'une fois ajouté la feuille , elle se selectionne d'elle même
alors.......
MsgBox ActiveSheet.Name
bye bye
Youky

"Josh"
Bonjour,

Une de mes macros insère une feuille. Je souhaite récupérer le nom de
la
feuille créée.

Comment faire ???

Merci d'avance.












anonymousA
Le #4903641
Au delà de la syntaxe approximative , je te cite: "il y a aussi ceci que
je la trouve plus simple " , je vois que depuis hier soir (heure
Française ) et jusqu'à ce moment où je tape ces quelques phrases , le
seul auquel tu as trouvé le temps de répondre est votre serviteur. C'est
bien trop d'honneur.

La présentation de différentes manières amusantes de faire dans une
même instruction plusieurs choses est un bon éclairage des multiples
possibilités et il est louable que tu aies aussi apporté ton écot.
Il ne s'agissait ici pour moi que de mettre en lumière Item ainsi que la
non obligation d'utiliser une première ligne pour créer une nouvelle
feuille.Quant à qualifier Youky de néophyte , je te laisse la paternité
de tes propos.
Je reste cependant bien persuadé que la taille de ta tête n'ayant guère
diminué , pas trop mal en ce moment ? , ce que je t'écris te laissera
totalement froid. Ah , insouciance insondable de la fatuité !

Je sens confusément que nous ne pouvons songer tous deux à nos
épousailles , n'ayant définitivement aucuns atomes crochus.



Et juste pour le fun, il y a aussi ceci que je la trouve
plus simple, plus facile à lire et à comprendre pour un néophyte ....! ;-))

Pour seulement ajouter une feuille après la feuille "Truc"
------------------------------
Worksheets.Add After:=Sheets("Truc")
------------------------------

Pour ajouter une feuille de calcul après la feuille Truc et la nommer "toto"
sur une seule ligne de code
------------------------------
Worksheets.Add(After:=Sheets("Truc")).Name = "toto"
------------------------------

Il faut s'assurer que la feuille "Truc" existe réellement dans le classeur.




"anonymousA" 468f658f$0$5077$
Bonjour,

juste pour le fun

With Worksheets
.Item(.Add.Name).Move After:=.Item("Truc")
End With

A+


Worksheets.Add
Sheets(ActiveSheet.Name).Move After:=Sheets("Truc")
Ben voilà
Youky
avec un y à la fin Merci
"Josh"
Merci Youki,

Sais-tu à présent comment faire pour positionner la nouvelle feuille à tel
ou tel endroit ???

En fait, je veux quelle se place entre la feuille "Truc" et la feuille
"Machin".

Merci d'avance,


Salut Jossh,
Worksheets.Add
'une fois ajouté la feuille , elle se selectionne d'elle même
alors.......
MsgBox ActiveSheet.Name
bye bye
Youky

"Josh"
Bonjour,

Une de mes macros insère une feuille. Je souhaite récupérer le nom de
la
feuille créée.

Comment faire ???

Merci d'avance.














Publicité
Poster une réponse
Anonyme