RÉPÉRTOIRE TÉLÉPHONIQUE MODIFIABLE À PARTIR DE L'EXECUTABLE

Dim int_numéro_fichier As Long, i As Long, numero(100) As String, nbrtel As Boolean, numerotel As Boolean, nbr_numero As Long, chemin_du_fichier As String

Private Sub copier_Click()  'On copie le texte dans le presse-papier :
Clipboard.Clear             'On efface le presse-papier
Clipboard.SetText (numtel.Caption)  'Puis on met le N° de téléphone
End Sub

Private Sub Form_Load()
chemin_du_fichier ' = mettre ici le chemin du fichier .txt
nbrtel = False  'On initialise quelques variables
nbr_numero = 0
numerotel = False
int_numéro_fichier = FreeFile   'On definit un numéro de fichier libre

Open chemin_du_fichier For Input As #int_numéro_fichier    'Ouvre le fichier
    While Not EOF(int_numéro_fichier)   'EOF : indique qd on est a la fin d'un fichier
        Line Input #int_numéro_fichier, str_temporaire                'on lit chaque ligne et on le met ds str_temporaire
            If nbrtel = True Then   'Si juste avant il y avait "####" alors...
                nom.AddItem (str_temporaire)    'On ajoute le onm à la liste
                numerotel = True    'Et comme sa on reconnait que sa vient juste de passer
                nbr_numero = nbr_numero + 1
            Else    'par contre si il n'y avait pas "####" juste avant...
                If numerotel = True Then    'mais qu'on venait d'ajouter le nom à la liste
                    numero(nbr_numero) = str_temporaire 'On ajoute donc le N° de téléphone a la variable correspondante
                    numerotel = False   'Et on fait sa comme sa on ne le fera pas 2 fois de suite!
                End If
            End If
            If str_temporaire = "####" Then nbrtel = True Else nbrtel = False 'Comme sa on peut reconnaitre si le caractère vient juste de passer
    Wend
Close #int_numéro_fichier   'On ferme le fichier

End Sub

Private Sub Form_Unload(Cancel As Integer)  'On sauvegarde quand la feuille se ferme

int_numéro_fichier = FreeFile   'on définit un numéro de fichier libre

Open chemin_du_fichier For Output As #int_numéro_fichier   'On ouvre le fichier
    For i = 1 To nom.ListCount  'On fait la boucle en fonction du nbr d'objets dans la liste
       Print #int_numéro_fichier, "####" & vbCrLf & nom.List(i - 1) & vbCrLf & numero(i)    'Et on écrit dans le .txt
    Next
Close #int_numéro_fichier    'On ferme le fichier

End Sub

Private Sub nom_Click()
numtel.Caption = numero(nom.ListIndex + 1) 'On met le N° de T° etant le numéro correspondant au nom choisi
End Sub

Private Sub rajtel_Click()  'Quand on veut rajouter un N°...

Do
    message_nom = InputBox("Entrez le nom de la personne.", "Nom")  'On fait une boucle pour que l'utilisater marque qq chose
Loop Until message_nom <> ""

Do
    message_numero = InputBox("Entrez le N° de téléphone de la personne", "N° tel")   'Pareil
Loop Until message_numero <> ""

nom.AddItem (message_nom)   'On inscrit les nom et les N°
numero(nom.ListCount) = message_numero

End Sub

Private Sub supprimer_Click()   'Pour supprimer, on verifie que l'utilisateur a bien selectionné qq chose (sinon message d'erreur) et on efface
    If nom.Text <> "" Then
        message_ok = MsgBox("Voulez-vous vraiment supprimer le N°?", vbYesNo, "Etes-vous sûr?")
        If message_ok = vbYes Then nom.RemoveItem (nom.ListIndex)   'On demande une confirmation
    Else
        MsgBox "Veuillez selectionner l'element à supprimer.", vbOKOnly, "Erreur!"
    End If
End Sub

Télécharger le zip