Renommer feuille via un TextBox

Salut salut !

Je suis actuellement en conception d'un UserForm qu'on pourrait appeler facile d'utilisation pour les futurs utilisateurs.

Je me retrouve donc avec un UserForm appelé (lancement2) qui est composé d'une fenêtre et d'un TextBox appelé (Textbox1). J'aimerais pouvoir en gros utiliser ce qui vient d’être écrit a l'intérieur du Textbox pour renommer la feuille active, après avoir appuyé sur le bouton suivant (CommandButton1).

Voici mon code actuelle :

Private Sub CommandButton1_Click()
'lancement de la fenetre 3 (suivant)
Unload lancement2
lancement3.Show
End Sub

Private Sub CommandButton2_Click()
'Quitter la fenetre
Unload Me
End Sub

Private Sub CommandButton3_Click()
'Retourner a la fenetre 1 (précédent)
Unload lancement2
lancement1.Show
End Sub

Private Sub userForm_Initialize()
'Message dans le textbox
    Me.TextBox1 = "Saisir votre nom"

'Selection et focus TextBox
    With TextBox1
    .SetFocus
    .SelStart = 0
    .SelLength = Len(TextBox1.Text)
End With

End Sub

J'étais parti éventuellement sur un :

Private Sub rename_feuille()
'Renommer feuille
If CommandButton1 = True Then
TextBox1 = ActiveSheet.Name
    End Sub

Mais bon c'est pas terrible

J'ai finalement réussi, j'avais juste simplement oublié de rafraîchir ma page...

Je laisse mon topic ouvert pour d'autres questions

Bonjour

padawan95 a écrit :

utiliser ce qui vient d’être écrit a l'intérieur du Textbox pour renommer la feuille active, après avoir appuyé sur le bouton suivant (CommandButton1).

dans le code de ton bouton "CommandButton1"

Private Sub CommandButton1_Click()
'lancement de la fenetre 3 (suivant)
ActiveSheet.Name =  Me.TextBox1
Unload lancement2
lancement3.Show
End Sub

Attention : Aucune vérification sur le contenu de TextBox1 en tant que nom valide

EDIT: A la vue de ta réponse, j'ai du raté une marche

En gros j'ai exactement ce que tu viens de me donner (et je te remercie pour ton aide, même si j'ai réussi a trouver a force d'essayer) et lorsque j'ai terminé mes étapes (c'est plusieurs useform qui s’enchaînes, comme une installation) j'ai fait un refresh et c'est bon.

Du coup j'en profite tant que tu es la

J'aimerais lorsque je fais ouvrir, que le chemin d'accès du textbox soit modifier donc par le fichier que j'ouvre. Et par la suite lance un programme du nom de "MAJprepasiepr" et cliquant sur suivant (et en utilisant évidemment le fichier que je viens d'ouvrir).

Private Sub CommandButton1_Click()
Unload lancement3
lancement4.Show
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
Unload lancement3
lancement2.Show
End Sub

Private Sub CommandButton4_Click()
  nomfich = Application.GetOpenFilename
If nomfich = "" Then Exit Sub
MsgBox "vous avez sélectionné le fichier " & nomfich & _
    " qui pèse " & FileLen(nomfich) & " octets"
End Sub

Private Sub OptionButton1_Click()
TextBox1.Visible = True
Label3.Visible = True
CommandButton4.Visible = True
End Sub

Private Sub OptionButton2_Click()
TextBox1.Visible = False
Label3.Visible = False
CommandButton4.Visible = False
End Sub

Private Sub userForm_Initialize()
'Message dans le textbox
    Me.TextBox1 = "C:\export mapping.xls "
    End Sub

Bon c'est bon aussi

Je dois pas être si mauvais que ça finalement

Bonjour

Sans fichier pas évident

Je ne connais pas le numéro du bouton suivant

Mais ton code pourrait ressembler à ceci

Private Sub CommandButton1_Click()
  nomfich = Application.GetOpenFilename
  If nomfich = "" Then Exit Sub
  MsgBox "vous avez sélectionné le fichier " & nomfich & _
          " qui pèse " & FileLen(nomfich) & " octets"
    Me.TextBox1 = nomfich
End Sub

Private Sub CmBSuivant_Click()
' Bouton suivant
  If Trim(Me.TextBox1) <> "" Then
    MAJprepasiepr
  End If
End Sub

EDIT: (Note à l'attention de Banzai64 ) Attendre avant de répondre

bonjour Banzai64, j'ai le même souci,

je souhaiterais dupliquer ma page à partir d'un bouton clik et ensuite la renommer suivant la valeur de mon textbox 13

voila ce que j'ai écris mais cela renomme ma page comme textbox13.value

Private Sub Image3_Click() 
Sheets("Bon accepté").Select
    Sheets("Bon accepté").Copy Before:=Sheets(1)
    Sheets("Bon accepté (2)").Select
    Sheets("Bon accepté (2)").Name = "TextBox13.value"

end sub

je ne sais pas si on a le droit de poster sur le même sujet ...?

Bonjour

louix44 a écrit :

je ne sais pas si on a le droit de poster sur le même sujet ...?

Ce n'est pas conseillé

Modifie la ligne correspondante (enlève les guillemets)

 Sheets("Bon accepté (2)").Name = TextBox13.value

Je retiendrais pour la prochaine fois.

c'est super ça marche, merci beaucoup !