Variable left & mid

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:

---

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

---

D'avance merci

Bonjour
Une proposition pour étude

Code:

---

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:

---

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:

---

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

---

Salut Mercatog,

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

Code:

---

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

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

Code:

---

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

---