Afficher Nom Utilisateur dans Label1 de UserForm1

[Joe[PT]]

Bonsoir à tous,

J'ai, grâce à certains d'entre-vous, réussi à créer le MsgBox suivant :

Private Sub Workbook_Open()
' vbTab permet de centre le texte dans la MsgBox

MsgBox _
vbTab & vbTab & "Bonjour " & Environ("USERNAME") & vbTab & vbTab & vbNewLine _
& vbTab & "Bienvenue sur AppliBidule" & vbTab _
& vbNewLine & vbTab & vbTab & "Version : " & Cells(7, 16) & vbTab & vbTab   ' Cells permet d'afficher une cellule

End Sub

Malheureusement, après avoir parcouru différents forum, je m'aperçois qu'il est impossible d'insérer une image dans un MsgBox alors je "migre" vers un UserForm, quelque chose que je n'ai jamais fait
J'arrive à créer l'UserForm, à ajouter "Bonjour" dans caption de label1 mais comment lui associer Environ("USERNAME"), le centrer et ajouter un retour à la ligne... Je n'arrive pas à trouver la syntaxe...

Bonne soirée.

Joe

 

[Pierrot93]

Re : Afficher Nom Utilisateur dans Label1 de UserForm1

Bonjour,

essaye ceci à placer dans le module de l'userfirm...

Option Explicit
Private Sub UserForm_Initialize()
With Label1
    .Caption = "Bonjour " & vbLf & Environ("USERNAME") & vbLf _
    & "Bienvenue sur AppliBidule"
    .TextAlign = fmTextAlignCenter
End With
End Sub

bonne journée
@+

 

[Joe[PT]]

Re : Afficher Nom Utilisateur dans Label1 de UserForm1

Bonjour Pierrot,

ça fonctionne nickel merci.

Bonne journée à toi aussi

Joe