Discussion :

[Didpa]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour

Quelque chose comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Oups grillé

Philippe

[Didpa]

Merci