Bonjour,

Je travaille actuellement sur le déploiement de signature sur Outlook 2010.
Pour cela je récupère les infos user coté AD, dont notamment le numéro de téléphone :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Set objSysInfo = CreateObject("ADSystemInfo" ) 
objSysInfo.RefreshSchemaCache 
qQuery = "LDAP://" & objSysInfo.Username 
Set objuser = GetObject(qQuery) 
PhoneNumber = objuser.telephoneNumber
Ainsi j'obtiens une chaîne de caractère sous la forme "0122334455" et mon but c'est de l'afficher sous la forme "+33 (0)1 22 33 44 55"

J'ai donc tenté d'adapter un bout de code trouvé ici : http://www.developpez.net/forums/d78...telephone-vbs/

Voici le code proposé sur le lien :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
RawPhoneNumber="0125885544"
Set oReg = New RegExp
oReg.Pattern = "(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})"
MsgBox oReg.Replace(RawPhoneNumber, "$1 $2 $3 $4 $5")
Je voudrais en faire une fonction pour formater mes numéros de téléphone (et fax) mais malgré plusieurs tests/modifications je n'y arrive toujours pas

Si vous avez une solution je suis preneur