Signature dans un mail selon l'utilisateur

Re-bonjour les amis.

J'ai ce code qui me permet de récupèrer la signature OutLook pour mettre dans un mail.

On remarque que le chemin est propre à mon PC, y aurait-il une solution pour que le code fonctionne sur tous les PCs des collègues ? (ou du moins sur la majeur partie)

Merci par avance pour votre aide les coupains.

  sPath = "C:\Users\gpetit\AppData\Roaming\Microsoft\Signatures\"
  SigString = Dir(sPath & "*.htm")
  If SigString <> "" Then
      Signature = GetBoiler(sPath & SigString)
  Else
      Signature = ""
  End If

(Je n'ai pas retrouvé la source mais c'est un code du net)

A+

Bonjour,

Je dirais quelque chose comme ça :

NOM = VBA.Interaction.Environ$("UserName")
sPath = "C:\Users\" & NOM & "\AppData\Roaming\Microsoft\Signatures\"
SigString = Dir(sPath & "*.htm")
If SigString <> "" Then
    Signature = GetBoiler(sPath & SigString)
    Else
    Signature = ""
End If

Il y a aussi Application.UserName mais cette propriété renvoie le nom inscrit dans la session EXCEL qui ne correspond pas forcément à la session Windows ouverte car modifiable (Fichier > Options > Générales > Nom d'utilisateur).

Cdlt,

Bonjour Ergotamine, désolé pour la réponse tardive je croule sous le travail cette semaine ^^

J'ai testé sur un autre PC ça à l'air de fonctionner parfaitement merci !

Bonne journée