format automatique

[jeromeN95]

Bonjour le forum,
jutilise la fonction :


Range("G31") = GetLoginName

Il me permet d'obtenir le nom de l'utilisateur en cours.
Sauf que dans G31 j'ai un format du type :
Nom.prenom

Comment enlevé automatiquement le "." entre les 2 SVP dans la cellule G31?

 

[Compte Supprimé 979]

Re : format automatique

Salut JeromeN95

Directement dans ta fonction personnalisée "GetLoginName"

En utilisant la fonction REPLACE()

GetLoginName = Replace(strName, ".", " ")

Le code en entier 😉

Option Explicit
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
                 (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetLoginName()
  'Chris Amess, mpep
  Dim strName As String
  Dim lngReturn As Long
  Application.Volatile
  'Gets users Name using API call
  strName = Space$(25)
  lngReturn = GetUserName(strName, 25)
  If lngReturn = 1 Then
    GetLoginName = Replace(strName, ".", " ")
  Else
    GetLoginName = "inconnu"
  End If
End Function

A+

 

[jeromeN95]

Re : format automatique

Salut,
j'ai mis ce bout de code dans un modul :

" " & GetLoginName 'signature
GetLoginName = Replace(strName, ".", " ")

Mais j'ai une erreur de compilation:
Un appel de fonction dans la partie gauche de l'affectation doit renvoyer Variant ou Objet.

Que cela signifie t'il SVP?