Retirer la virgule dans Application.UserName

Bonjour, j 'ai une petite macro qui renvoie le nom et prénom de l'utilisateur, pour l'instant je récupère "Dupont, Jean /FR", est-il possible de faire en sorte que j'obtienne "Dupont Jean" ?

Merci d'avance !

Re,
Une piste !?
Cdlt.

With ActiveCell
        .Value = Replace(Split(Application.usename, "/")(0), ",", "")
        .Offset(, 1) = Format(Date, "dd mmmm yyyy")
    End With

Bonjour,

avec l'instruction REPLACE(Texte source, "Ce qu'il faut changer", "Ce qu'il faut mettre à la place")

ActiveCell.Value = Replace(Replace(Application.UserName,",","")," /FR","")

@ bientôt

LouReeD

Toujours aussi prompte Jean-Eric ! , bonjour.

@ bientôt

LouReeD

Bonjour à tous,

Une autre solution :

Sub Nom_Date()

Dim I As Integer
Dim MonUserSansCaracteresSpeciaux
Dim MonNomPrenom As Variant

    MonUserSansCaracteresSpeciaux = ""

    With ActiveCell

        For I = 1 To Len(Application.UserName)
            Select Case Mid(Application.UserName, I, 1)
                   Case ",", "/"  ' Ajouter les caractères à écarter

                   Case Else
                        MonUserSansCaracteresSpeciaux = MonUserSansCaracteresSpeciaux & Mid(Application.UserName, I, 1)
            End Select
        Next I
        MonNomPrenom = Split(MonUserSansCaracteresSpeciaux, " ")

       .Value = MonNomPrenom(0) & " " & MonNomPrenom(1)
       .Offset(0, 1) = Format(Date, "dd mm yyyy")

  End With

End Sub

Merci à tous pour votre aide j'ai opté pour la première solution ^^

Bonne journée

J'ai enfin compris l'imbrication du Split dans le Replace !

@ bientôt

LouReeD