nom de l'onglet actuel dans vba

[zumye]

bonsoir
dans le programme vba comment appelle t on l'onglet actuelle d'une feuille sur laquelle on travaille?

exemple: au lieu de "original" je voudrai l'onglet sur la feuille dont je travaille

Private Sub CommandButton1_Click()
Dim NomOngl As String
NomOngl = Sheets("COULEUR").Range("B65000").End(xlUp).Value
Sheets("Original").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = NomOngl
Sheets("COULEUR").Range("B65000").End(xlUp).Delete
End Sub

et j'aimerai savoir si également sur ce meme cas s'il est possible qu' au lieu de "original" on me pose la question "quel onglet voulez vous copier? et je rentrai moi meme le nom
merci

 

[skoobi]

Re : nom de l'onglet actuel dans vba

Bonsoir,

au lieu de "original" je voudrai l'onglet sur la feuille dont je travaille

voici:

[COLOR=Blue][B]ActiveSheet[/B][/COLOR].Copy After:=Sheets(Sheets.Count)

et j'aimerai savoir si également sur ce meme cas s'il est possible qu' au lieu de "original" on me pose la question "quel onglet voulez vous copier? et je rentrai moi meme le nom

 Private Sub CommandButton1_Click()
Dim NomOngl As String
NomOngl = Sheets("COULEUR").Range("B65000").End(xlUp).Value
[COLOR=Blue][B] Nom = InputBox ("Quelle feuille à copier?")[/B][/COLOR]
Sheets([COLOR=Blue][B]Nom[/B][/COLOR]).Copy After:=Sheets(Sheets.Count)
[COLOR=Black]ActiveSheet[B].[/B][/COLOR]Name = NomOngl
Sheets("COULEUR").Range("B65000").End(xlUp).Delete
End Sub

 

[zumye]

Re : nom de l'onglet actuel dans vba

Super Ca Marche
Merci Beaucoup