[..] Fonction StringRegexp

[killgones]

bon bas je vais chercher un peux .

merci de votre aide en tout cas .

[killgones]

Problème résolue .

merci beaucoup pour votre aide.

[killgones]

Mon responsable me pause une autre colle,

il veux que j'affiche un message comme quoi le numéro est pas correct s'il manque par exemple 1 ou plusieurs chiffres

[jbnh]

StringLen du numéro épuré de caractère, voir si le nombre de chiffre y est.

N'hésitez pas à jeter un oeil aux fonctions String...

[killgones]

StringLen me donne juste le nombre de caractère.

moi je cherche la fonction qui permet de pas valider tant qu'il n'y a pas les 10 chiffres du numéro

[jbnh]

Un chiffre n'est il pas un caractère ?

[killgones]

si absolument .

je me suis mal exprimé, enfaite il faudrait que je puisse mettre en place un message qui indiquerait à l'utilisateur qu'il à pas rentrer assez de chiffres

par exemple : "02.32.23.23" au lieu de "02.32.23.23.25"

[jbnh]

La on retombe dans les basiques de la programmation, il va falloir que vous lisiez la doc sinon vous aurez uen question toutes les 5 minutes.

Code : Tout sélectionner

If (stringlen... <> 10 )
     - Afficher message d'erreur

[mikell]

Non mais sérieusement, c'est vraiment s'emmerder la vie pour pas grand'chose

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

GUICreate(" My GUI input", 320, 120)
$input = GUICtrlCreateInput("", 10, 5, 300, 20, $ES_NUMBER)
$btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
         Case $GUI_EVENT_CLOSE
                Exit
         Case $btn
                $read = GUICtrlRead($input)
                If StringLen($read)<>10 Then
                      MsgBox(0, "NON", "Veuillez entrer un numéro à 10 chiffres")
                Else
                      $numero = StringRegExpReplace(Number($read), '(?<=\d)(?=(\d{2})+(?!\d))', ".")  
                      MsgBox(0, "OK", "Le numéro est : " & $numero)  
                EndIf
    EndSwitch
WEnd
 

[killgones]

vous allez me prendre pour un débile, mais la programmation n'est vraiment pas ma tasse de thé, j'y travail parce que mon responsable me le demande, ces pour ça que je manque un peut de logique.

par rapport à votre post Mikell j'ai modifié par rapport à mes variables mais je dois me tromper,

voici le code

Code : Tout sélectionner

GUICreate(" My GUI input", 320, 120)
            $input = GUICtrlCreateInput("", 10, 5, 300, 20, )
            $btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)
            GUISetState(@SW_SHOW)

            While 1
              Switch GUIGetMsg()
                  Case $GUI_EVENT_CLOSE
                Exit
                     Case $btn
                    $Num_Tel_Fixe_html = GUICtrlRead($Num_Tel_Fixe)
                        If StringLen($Num_Tel_Fixe_html)<>10 Then
                                 MsgBox(0, "NON", "Veuillez entrer un numéro à 10 chiffres")
                              Else

                                  $numero = StringRegExpReplace(Number($Num_Tel_Fixe_html), '(?<=\d)(?=(\d{2})+(?!\d))', ".")
                                  MsgBox(0, "OK", "Le numéro est : " & $numero)
                        EndIf
               EndSwitch
            WEnd

j'ai une error à $Es_Number

[jbnh]

Vous avez quoi comme erreur ?

Variable used without being declared ?

Si oui,il faut #include <GuiEdit.au3>

[killgones]

voila l'error que j'ai

Code : Tout sélectionner

$input = GUICtrlCreateInput("", 10, 5, 300, 20,  )
         $input = GUICtrlCreateInput("", 10, 5, 300, 20^ ERROR

[jbnh]

si vous mettez une virgule, c'est qu'il doit encore y avoir un argument derrière :

GUICtrlCreateInput("", 10, 5, 300, 20 )

ou

GUICtrlCreateInput("", 10, 5, 300, 20, $Es_Number)

[killgones]

effectivement j'avais pas enlever la ","

quand je l’enleve, j'ai la fenêtre Guy input qui s'ouvre, je rentre mes 10 chiffres et la rien, toujours le mess m’indiquant que je dois rentré mes 10 chiffres.
cependant j'ai indiqué qu'il fallait d'abord lire $Num_Tel_Fixe_html afin de voir si oui ou non il y avait les 10 chiffres

[killgones]

voila mon code entier

► Afficher le texte

Code : Tout sélectionner

$Form1 = GUICreate("STYLE & DESIGN", 220, 350)
GUICtrlCreateLabel("Création du fichier de signature des mails", 10, 10)
$Prenom = GUICtrlCreateInput("Prénom", 10, 30, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 1))
$Nom = GUICtrlCreateInput("", 10, 60, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 2))
$Num_Tel_Fixe = GUICtrlCreateInput("Tél Fixe (format international)", 10, 90, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 3))
$Num_Tel_Mobile = GUICtrlCreateInput("Mobile (format international)", 10, 120, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 4))
$Num_Fax = GUICtrlCreateInput("Fax (format international)", 10, 150, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 5))
$Fonction = GUICtrlCreateInput("Fonction", 10, 180, 200)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 6))
$Filiale_sd = GUICtrlCreateCombo ("Filiale sd", 10, 210, 150)
GUICtrlSetData($Filiale_sd, "Style and Design|Style and Design Print|Style and Design Studio|Style and Design Group")
$Addr_Mail = GUICtrlCreateInput("Mail", 10, 240, 200)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 7))


$Button1 = GUICtrlCreateButton("CREER", 25, 270, 60)
$Button2 = GUICtrlCreateButton("QUITTER", 100, 270, 60)


GUISetState(@SW_SHOW, $Form1)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE

            Exit
        Case $Button1
            If GUICtrlRead($Prenom) = "Prénom" Then
                $Prenom_html = " "
            Else
                $Prenom_html = GUICtrlRead($Prenom)
            EndIf
            If GUICtrlRead($Nom) = "Nom" Then
                $Nom_html = " "
            Else
                $Nom_html = GUICtrlRead($Nom)
            EndIf
            If GUICtrlRead($Fonction) = "Fonction" Then
                $Fonction_html = " "
            Else
                $Fonction_html = GUICtrlRead($Fonction)
            EndIf
            If GUICtrlRead($Num_Tel_Fixe) = "Tél Fixe (Format international)" Then
                $Num_Tel_Fixe_html = " "
            Else
                $Num_Tel_Fixe_html = GUICtrlRead($Num_Tel_Fixe)
            EndIf
            If GUICtrlRead($Num_Tel_Mobile) = "Mobile (Format international)" Then
                $Num_Tel_Mobile_html = " "
            Else
                $Num_Tel_Mobile_html = GUICtrlRead($Num_Tel_Mobile)
            EndIf
            If GUICtrlRead($Num_Fax) = "Fax (Format international)" Then
                $Num_Fax_html = " "
            Else
                $Num_Fax_html = GUICtrlRead($Num_Fax)
            EndIf
            If GUICtrlRead($Filiale_sd) = "Filiale sd" Then
                $Filiale_sd_html = MsgBox (0, "erreur", "choisir une filiale")
            Else
                $Filiale_sd_html = GUICtrlRead($Filiale_sd)
            EndIf
            If GUICtrlRead($Addr_Mail) = "Mail" Then
                $Addr_Mail_html = " "
            Else
                $Addr_Mail_html = GUICtrlRead($Addr_Mail)

            EndIf






            DirCreate($USERPROFILE & "\Signature_Mails")
            FileInstall("d:\temp\fileinstall\signature2.html", $TEMP & "\signature2.html", 1)
            FileInstall("d:\temp\fileinstall\Logo_Fb.jpg", $USERPROFILE & "\Signature_Mails\Logo_Fb.jpg")
            FileInstall("d:\temp\fileinstall\Logo_sd.jpg", $USERPROFILE & "\Signature_Mails\Logo_sd.jpg")
            FileInstall("d:\temp\fileinstall\LOGO_T.jpg", $USERPROFILE & "\Signature_Mails\LOGO_T.jpg")
            FileInstall("d:\temp\fileinstall\Logo_trace.jpg", $USERPROFILE & "\Signature_Mails\Logo_trace.jpg")
            FileInstall("d:\temp\fileinstall\Logo_TWIT.jpg", $USERPROFILE & "\Signature_Mails\Logo_TWIT.jpg")
            $chemin_logo = StringReplace("file:///" & $USERPROFILE & "\Signature_Mails\Logo_trace.jpg, LOGO_T, Logo_sd, Logo_Fb, Logo_TWIT", "\", "/")

            $Num_Tel_Fixe_html = GuiCtrlRead($Num_Tel_Fixe)
            $Num_Tel_Fixe_html = StringRegExpReplace($Num_Tel_Fixe_html, '\D', "")
            $Num_Tel_Fixe_html = StringRegExpReplace(Number($Num_Tel_Fixe_html), '(?<=\d)(?=(\d{2})+(?!\d))', ".")

            $Num_Tel_Mobile_html = GuiCtrlRead($Num_Tel_Mobile)
            $Num_Tel_Mobile_html = StringRegExpReplace($Num_Tel_Mobile_html, '\D', "")
            $Num_Tel_Mobile_html = StringRegExpReplace(Number($Num_Tel_Mobile_html), '(?<=\d)(?=(\d{2})+(?!\d))', ".")

            $Num_Fax_html = GuiCtrlRead($Num_Fax)
            $Num_Fax_html = StringRegExpReplace($Num_Fax_html, '\D', "")
            $Num_Fax_html = StringRegExpReplace(Number($Num_Fax_html), '(?<=\d)(?=(\d{2})+(?!\d))', ".")



            GUICreate(" My GUI input", 320, 120)
            $input = GUICtrlCreateInput("", 10, 5, 300, 20)
            $btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)
            GUISetState(@SW_SHOW)

            While 1
              Switch GUIGetMsg()
                  Case $GUI_EVENT_CLOSE
                Exit
                     Case $btn
                    $Num_Tel_Fixe_html = GUICtrlRead($Num_Tel_Fixe)
                        If StringLen($Num_Tel_Fixe_html)<>10 Then
                                 MsgBox(0, "NON", "Veuillez entrer un numéro à 10 chiffres")
                              Else

                                  $numero = StringRegExpReplace(Number($Num_Tel_Fixe_html), '(?<=\d)(?=(\d{2})+(?!\d))', ".")
                                  MsgBox(0, "OK", "Le numéro est : " & $numero)
                        EndIf
               EndSwitch
            WEnd


            $szFile = $TEMP & "\signature2.html"
            $szText = FileRead($szFile, FileGetSize($szFile))
            $szText = StringReplace($szText, "Prenom", $Prenom_html)
            $szText = StringReplace($szText, "NOM", $NOM_html)
            $szText = StringReplace($szText, "Fonction", $Fonction_html)
            $szText = StringReplace($szText, "Num_Tel_Fixe", $Num_Tel_Fixe_html)
            $szText = StringReplace($szText, "Num_Tel_Mobile", $Num_Tel_Mobile_html)
            $szText = StringReplace($szText, "Num_Fax", $Num_Fax_html)
            $szText = StringReplace($szText, "Filiale_sd", $Filiale_sd_html)
            $szText = StringReplace($szText, "Addr_Mail", $Addr_Mail_html)

            if $Num_Tel_Fixe < 9 Then
               Msgbox (0, "erreur", "vérifié votre numéro fixe")
            EndIf
            FileCopy($TEMP & "\signature2.html", $TEMP & "\signature_webmail.html", 1)

            $szText1 = StringReplace($szText, "CHEMIN_LOGO", $chemin_logo)
            $szText2 = StringReplace($szText, "CHEMIN_LOGO", $chemin_logo_html)



            FileDelete($szFile)
            FileDelete($USERPROFILE & "\Signature_Mails\signature.html")
            FileWrite($USERPROFILE & "\Signature_Mails\signature.html", $szText1)
            FileWrite($USERPROFILE & "\Signature_Mails\signature_webmail.html", $szText2)
            FileDelete($TEMP & "\info_signature.txt")
            FileWrite($TEMP & "\info_signature.txt", GUICtrlRead($Prenom) & @CRLF & GUICtrlRead($Nom) & @CRLF & GUICtrlRead($Num_Tel_Fixe) & @CRLF & GUICtrlRead($Num_Tel_Mobile) & @CRLF & GUICtrlRead($Num_Fax) & @CRLF & GUICtrlRead($Fonction) & @CRLF & GUICtrlRead($Addr_Mail))

            If GUICtrlRead($Filiale_sd) = "Filiale sd" Then
                $Filiale_sd_html = ""
            Else
            MsgBox(0, "", "Les fichiers de signature ont été créés dans le répertoire " & $USERPROFILE & "\Signature_Mails")
            EndIf
        Case $Button2
            ExitLoop
    EndSwitch
WEnd

[jbnh]

Vous entrez quoi exactement dans l'input ?

Votre variable dans votre exemple est $input, mais vous checkez $Num_Tel_Fixe

Soyez plus précis quand vos énoncez vos erreur

[killgones]

enfaite je dois remplacer mon input par ma variable $Num_Tel_Fixe_html

[jbnh]

Il y a des pb de structures dans votre programme, pourquoi un double while avec deux switch case différents.

Faites ca propre vous vous y retrouverez mieux

[killgones]

merci pour ton aide mais la je me suis embrouiller je pense, je suis un peut perdu et avec ma logique de ouf ....

► Afficher le texte

Code : Tout sélectionner

$Form1 = GUICreate("STYLE & DESIGN", 220, 350)
GUICtrlCreateLabel("Création du fichier de signature des mails", 10, 10)
$Prenom = GUICtrlCreateInput("Prénom", 10, 30, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 1))
$Nom = GUICtrlCreateInput("", 10, 60, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 2))
$Num_Tel_Fixe = GUICtrlCreateInput("Tél Fixe (format international)", 10, 90, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 3))
$Num_Tel_Mobile = GUICtrlCreateInput("Mobile (format international)", 10, 120, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 4))
$Num_Fax = GUICtrlCreateInput("Fax (format international)", 10, 150, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 5))
$Fonction = GUICtrlCreateInput("Fonction", 10, 180, 200)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 6))
$Filiale_sd = GUICtrlCreateCombo ("Filiale sd", 10, 210, 150)
GUICtrlSetData($Filiale_sd, "Style and Design|Style and Design Print|Style and Design Studio|Style and Design Group")
$Addr_Mail = GUICtrlCreateInput("Mail", 10, 240, 200)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 7))


$Button1 = GUICtrlCreateButton("CREER", 25, 270, 60)
$Button2 = GUICtrlCreateButton("QUITTER", 100, 270, 60)


GUISetState(@SW_SHOW, $Form1)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE

            Exit
        Case $Button1
            If GUICtrlRead($Prenom) = "Prénom" Then
                $Prenom_html = " "
            Else
                $Prenom_html = GUICtrlRead($Prenom)
            EndIf
            If GUICtrlRead($Nom) = "Nom" Then
                $Nom_html = " "
            Else
                $Nom_html = GUICtrlRead($Nom)
            EndIf
            If GUICtrlRead($Fonction) = "Fonction" Then
                $Fonction_html = " "
            Else
                $Fonction_html = GUICtrlRead($Fonction)
            EndIf
            If GUICtrlRead($Num_Tel_Fixe) = "Tél Fixe (Format international)" Then
                $Num_Tel_Fixe_html = " "
            Else
                $Num_Tel_Fixe_html = GUICtrlRead($Num_Tel_Fixe)
            EndIf
            If GUICtrlRead($Num_Tel_Mobile) = "Mobile (Format international)" Then
                $Num_Tel_Mobile_html = " "
            Else
                $Num_Tel_Mobile_html = GUICtrlRead($Num_Tel_Mobile)
            EndIf
            If GUICtrlRead($Num_Fax) = "Fax (Format international)" Then
                $Num_Fax_html = " "
            Else
                $Num_Fax_html = GUICtrlRead($Num_Fax)
            EndIf
            If GUICtrlRead($Filiale_sd) = "Filiale sd" Then
                $Filiale_sd_html = MsgBox (0, "erreur", "choisir une filiale")
            Else
                $Filiale_sd_html = GUICtrlRead($Filiale_sd)
            EndIf
            If GUICtrlRead($Addr_Mail) = "Mail" Then
                $Addr_Mail_html = " "
            Else
                $Addr_Mail_html = GUICtrlRead($Addr_Mail)

            EndIf






            DirCreate($USERPROFILE & "\Signature_Mails")
            FileInstall("d:\temp\fileinstall\signature2.html", $TEMP & "\signature2.html", 1)
            FileInstall("d:\temp\fileinstall\Logo_Fb.jpg", $USERPROFILE & "\Signature_Mails\Logo_Fb.jpg")
            FileInstall("d:\temp\fileinstall\Logo_sd.jpg", $USERPROFILE & "\Signature_Mails\Logo_sd.jpg")
            FileInstall("d:\temp\fileinstall\LOGO_T.jpg", $USERPROFILE & "\Signature_Mails\LOGO_T.jpg")
            FileInstall("d:\temp\fileinstall\Logo_trace.jpg", $USERPROFILE & "\Signature_Mails\Logo_trace.jpg")
            FileInstall("d:\temp\fileinstall\Logo_TWIT.jpg", $USERPROFILE & "\Signature_Mails\Logo_TWIT.jpg")
            $chemin_logo = StringReplace("file:///" & $USERPROFILE & "\Signature_Mails\Logo_trace.jpg, LOGO_T, Logo_sd, Logo_Fb, Logo_TWIT", "\", "/")

            $Num_Tel_Fixe_html = GuiCtrlRead($Num_Tel_Fixe)
            $Num_Tel_Fixe_html = StringRegExpReplace($Num_Tel_Fixe_html, '\D', "")
            $Num_Tel_Fixe_html = StringRegExpReplace(Number($Num_Tel_Fixe_html), '(?<=\d)(?=(\d{2})+(?!\d))', ".")

            $Num_Tel_Mobile_html = GuiCtrlRead($Num_Tel_Mobile)
            $Num_Tel_Mobile_html = StringRegExpReplace($Num_Tel_Mobile_html, '\D', "")
            $Num_Tel_Mobile_html = StringRegExpReplace(Number($Num_Tel_Mobile_html), '(?<=\d)(?=(\d{2})+(?!\d))', ".")

            $Num_Fax_html = GuiCtrlRead($Num_Fax)
            $Num_Fax_html = StringRegExpReplace($Num_Fax_html, '\D', "")
            $Num_Fax_html = StringRegExpReplace(Number($Num_Fax_html), '(?<=\d)(?=(\d{2})+(?!\d))', ".")

            $Num_Tel_Fixe_html = GUICtrlRead($Num_Tel_Fixe)
            If StringLen($Num_Tel_Fixe)<10 Then
                 MsgBox(0, "NON", "Veuillez entrer un numéro à 10 chiffres")
            Else
              $Num_Tel_Fixe_html = StringRegExpReplace(Number($Num_Tel_Fixe_html), '(?<=\d)(?=(\d{2})+(?!\d))', ".")
              MsgBox(0, "OK", "Le numéro est : " & $Num_Tel_Fixe_html)

            EndIf

            $szFile = $TEMP & "\signature2.html"
            $szText = FileRead($szFile, FileGetSize($szFile))
            $szText = StringReplace($szText, "Prenom", $Prenom_html)
            $szText = StringReplace($szText, "NOM", $NOM_html)
            $szText = StringReplace($szText, "Fonction", $Fonction_html)
            $szText = StringReplace($szText, "Num_Tel_Fixe", $Num_Tel_Fixe_html)
            $szText = StringReplace($szText, "Num_Tel_Mobile", $Num_Tel_Mobile_html)
            $szText = StringReplace($szText, "Num_Fax", $Num_Fax_html)
            $szText = StringReplace($szText, "Filiale_sd", $Filiale_sd_html)
            $szText = StringReplace($szText, "Addr_Mail", $Addr_Mail_html)

            FileCopy($TEMP & "\signature2.html", $TEMP & "\signature_webmail.html", 1)

            $szText1 = StringReplace($szText, "CHEMIN_LOGO", $chemin_logo)
            $szText2 = StringReplace($szText, "CHEMIN_LOGO", $chemin_logo_html)



            FileDelete($szFile)
            FileDelete($USERPROFILE & "\Signature_Mails\signature.html")
            FileWrite($USERPROFILE & "\Signature_Mails\signature.html", $szText1)
            FileWrite($USERPROFILE & "\Signature_Mails\signature_webmail.html", $szText2)
            FileDelete($TEMP & "\info_signature.txt")
            FileWrite($TEMP & "\info_signature.txt", GUICtrlRead($Prenom) & @CRLF & GUICtrlRead($Nom) & @CRLF & GUICtrlRead($Num_Tel_Fixe) & @CRLF & GUICtrlRead($Num_Tel_Mobile) & @CRLF & GUICtrlRead($Num_Fax) & @CRLF & GUICtrlRead($Fonction) & @CRLF & GUICtrlRead($Addr_Mail))

            If GUICtrlRead($Filiale_sd) = "Filiale sd" Then
                $Filiale_sd_html = ""
            Else
            MsgBox(0, "", "Les fichiers de signature ont été créés dans le répertoire " & $USERPROFILE & "\Signature_Mails")
            EndIf
        Case $Button2
            ExitLoop
    EndSwitch
WEnd

[mikell]

Je te conseille de garder $ES_NUMBER qui interdit d'entrer dans l'input autre chose que des nombres
Ensuite la vérification doit se faire au moment où le bouton "créer" est pressé
Et faut pas oublier de mettre les includes en tête de script

Dans ce code je n'ai gardé que la partie "Tel fixe" à titre d'exemple

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

$Form1 = GUICreate("STYLE & DESIGN", 220, 350)
GUICtrlCreateLabel("Création du fichier de signature des mails", 10, 10)

$Num_Tel_Fixe = GUICtrlCreateInput("Tél Fixe (format international)", 10, 90, 150, 20, $ES_NUMBER)

$Button1 = GUICtrlCreateButton("CREER", 25, 270, 60)
$Button2 = GUICtrlCreateButton("QUITTER", 100, 270, 60)
GUISetState(@SW_SHOW, $Form1)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            ; .......

            If GUICtrlRead($Num_Tel_Fixe) = "Tél Fixe (Format international)" Then
                $Num_Tel_Fixe_html = "&nbsp;"
            Else
                $Num_Tel_Fixe_html = GUICtrlRead($Num_Tel_Fixe)
                If StringLen($Num_Tel_Fixe_html)<>10 Then
                      MsgBox(0, "NON", "Veuillez entrer un numéro à 10 chiffres")
                Else
                      $Num_Tel_Fixe_html = StringRegExpReplace(Number($Num_Tel_Fixe_html), '(?<=\d)(?=(\d{2})+(?!\d))', ".")
                      MsgBox(0, "OK", "Le numéro est : " & $Num_Tel_Fixe_html)
                EndIf
            EndIf

           ; ......

        Case $Button2
            ExitLoop
    EndSwitch
WEnd

N'oublie pas de mettre la balise "spoiler" quand tu postes un long code