Discussion :

[Djromé]

Salut les Kracks,

Je souhaiterai récupérer les initiales de l'uitlisateur de l'application dans ma variable varInitial mais je reste confronté au problème entre une formule excel et VBA:

Code :

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

1
2
varInitial2 = Application.UserName
varInitial = Left(" + CStr(varInitial2) + ") & Mid(" + CStr(varInitial2) + ", Find(" ", " + CStr(varInitial2) + ") + 1, 1)

D'avance merci

[mercatog]

Bonjour
Une proposition pour étude

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function USERN() As String
Dim Tb
Dim i As Byte
Dim Res As String
 
Tb = Split(Environ("Username"))
For i = LBound(Tb) To UBound(Tb)
    Res = Res & Left(Tb(i), 1)
Next i
USERN = Res
End Function

A tester par (par exemple)

Code :

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

1
2
3
4
5
6
Sub Test()
Dim VarIni As String
 
VarIni = USERN
MsgBox VarIni
End Sub

EDIT:
Oh là là, le code avait une coquille lamentable

Il fallait

Code :

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

For i = LBound(Tb) To UBound(Tb)

[Djromé]

Salut Mercatog,

Merci pour ta proposition, je l'ai un peu modifier pour avoir les initiales du prénom et nom:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Function USERN() As String
Dim Tb
Dim i As Byte
Dim Res, strPrenom, strNom As String
 
Tb = Split(Application.UserName)
 
For i = LBound(Tb) To LBound(Tb)
    strPrenom = Left(Tb(i), 1) 
Next i
 
For i = UBound(Tb) To UBound(Tb)
    strNom = Left(Tb(i), 1) 
Next i
 
Res = strPrenom & strNom
USERN = Res
 
End Function
 
Sub Test()
Dim VarIni As String
VarIni = USERN
MsgBox VarIni
End Sub

Bonne journée

[mercatog]

Bonjour
Suite à une coquille stupide dans mon code initial que j'avais corrigé, essaies simplement comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function USERN() As String
Dim Tb
Dim i As Byte
Dim Res As String
 
Tb = Split(Application.UserName)
For i = LBound(Tb) To UBound(Tb)
    Res = Res & Left(Tb(i), 1)
Next i
USERN = Res
End Function