personnalisation de MsgBox

[Evelynetfrancois]

bonjour
pour rendre mes programmes plus perso ( à l'utilisateur)
j'aimarais si possible que le nom de l'utilisateur soit repris dans les MSGBOX

probablement :une boite au DEMARRAGE (inputbox) puis un username qui serait repris dans chaque texte de tous mes msgbox

style 🙁pour faire simple !!)
bonjour & user name

mais je tourne autour sans vraiment trouvr
auriez vous un exemple qui traine loll
que je pourrais adapter ???

merci d'avance et bonne journée a tous.............
c'est juste pour le Fun
donc pas d'urgence !!
EetF

 

[Baside]

Bonjour Evelynetfrancois, le Forum

A voir, tirer de lecture.

Hervé. [file name=PERSONNALISATION.zip size=9691]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PERSONNALISATION.zip[/file]

 

[Eric C]

Bonjour le forum
Bonjour E & F, bonjour Baside

Et en plus si tu désires le nom de l'utilisateur (enfin le nom donné à l'enregistrement) à la place de Microsoft Excel, tu places ceci dans le code fourni par Baside :

Else
MsgBox 'Je suis un devin ! Non je rigole, c'était l'info que j'avais remarqué dans la barre au dessus à gauche,si si regardez !!', vbInformation, Application.UserName

 

[evelynetfrancois]

merci eric
merci baside

ce n'est pas tout a fait ca que je recherche
en fait je desirerais avoir une inputbox au demarrage du programme
qui prendrait le nom saisi de l'utilisateur en cour
et que ce nom puisse etre repris dans toutes les msgbox de ce meme programme
j'espere bien etre plus clair
merci beaucoup pour toutes vos idees
E et F

 

[PascalXLD]

Bonjour

voici un petit code (recolté sur ce forum il me semble bien) qui te recolte le nom de ton username

En lançant la macro à l'ouverture de ton classeur tu peux l'utiliser dans tes macros puisque déclaré public

Public UserName As String

Declare Function GetUserName Lib 'advapi32.dll' Alias 'GetUserNameA' _
(ByVal lpBuffer As String, nSize As Long) As Long

Sub Get_User_Name()

Dim lpBuff As String * 25
Dim ret As Long
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

End Sub