MsgBox "admin : " & RegKeyValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "TEMP") & vbNewLine & _ "user : " & RegKeyValue(HKEY_CURRENT_USER, "Environment", "TEMP"), vbInformation
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
202 internautes nous ont dit merci ce mois-ci
i = 1 toto = "blabla" Do Until toto = "" toto = Environ(i) i = i + 1 MsgBox toto Loop
msgbox Environ("username")
Dim toto, mon_utilisateur As String, titi As String mon_utilisateur = "Philippe" toto = Split(Environ("TEMP"), "") toto(2) = mon_utilisateur titi = Join(toto, "") & "" MsgBox titi