Remplir une textbox ou label

Bonjour

je voulais savoir si il etait possible, au moment que l'USF initialize, que le Text , d'une Textbox ou caption d'un label, prenne pour valeur le nom du classeur ??

Cordialement

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() Me.TextBox1.Value = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) Me.Label1.Caption = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) End Sub

---

Bonjour

Quelque chose comme cela :

Code:

---

1 2 3

Private Sub UserForm_Initialize() Me.txtNomClasseur.Text = ActiveWorkbook.Name End Sub

---

Oups grillé

Philippe

Merci