Discussion :

[cjean]

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

[omen999]

salut,
4 ans après, je vois que les expressions régulières sont toujours aussi difficiles à digérer...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
RawPhoneNumber="0125885544"
Set oReg = New RegExp
oReg.Pattern = "(\d{1})(\d{1})(\d{2})(\d{2})(\d{2})(\d{2})"
MsgBox oReg.Replace(RawPhoneNumber, "+33 ($1)$2 $3 $4 $5 $6")

[cjean]

Hé bien un grand merci pour l'aide à la digestion