Bonjour,

Je dois élaborer un algorithme qui me permettra à partir de la raison sociale d'une entreprise (par ex SARL Truc) d'obtenir le Nom, le Prénom et le Mail de la personne à contacter.

Donc en tappant SARL Truc, l'algorithme doit me retourner : Dupont Alain adupont@yahoo.fr par exemple.

Voici le code que j'ai élaborer :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Const NomFichier = "c:\VBA\Contact.txt"
    Sub main()
        Dim RS As String
        RS = InputBox("Entrer une raison sociale :")
        MsgBox(TrouveContact(RS))
    End Sub
 
    Function TrouveContact(ByVal RS As String)
        TrouveContact = -1
        If Dir(NomFichier) <> "" Then
            Dim FichierContact As Integer, RSLu, NomLu, PrénomLu, MélLu As String
            FichierContact = FreeFile()
            FileOpen(FichierContact, NomFichier, OpenMode.Input)
            While Not EOF(FichierContact)
                Input(FichierContact, RSLu)
                Input(FichierContact, NomLu)
                Input(FichierContact, PrénomLu)
                Input(FichierContact, MélLu)
                If RSLu = RS Then
                    TrouveContact = NomLu And TrouveContact = PrénomLu And TrouveContact = MélLu
                End If
            End While
            FileClose(FichierContact)
            System.Console.WriteLine(NomLu, PrénomLu, MélLu)
        End If
    End Function
Mon problème est que si je fais tourner cet algorithme, je n'obtiens aucun résultat.

2 problèmes :
1) Au niveau de la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
TrouveContact = NomLu And TrouveContact = PrénomLu And TrouveContact = MélLu
Apparemment je ne peux pas écrire cela : "la conversion de la chaine en type double n'est pas valide".

2) Au niveau de la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Input(FichierContact, NomLu)
Input(FichierContact, PrénomLu)
Input(FichierContact, MélLu)
Le message d'erreur est le suivant : "l'entrée dépasse la fin du fichier"

Pouvez-vous m'aider sur ces points ?
Merci beaucoup

Bonne soirée