Formater un numéro de téléphone
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:
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:
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 ;)
