[..] Correspondance dans un fichier Excel

[Zillah]

Bonjour à tous,

Je souhaiterais faire un script qui me permettrait d'afficher dans une msgbox le résultat d'une correspondance d'un fichier excel.

Ex:
Colonne 1------|-------Colonne 2
------------------------------------
Toto------------|------------1
Jacques--------|------------2
Henri-----------|------------3

Si je tape Toto, ça me renvoi la valeur 1,
Jacques renvoi la valeur 2 , etc....

Pourriez-vous m'aider svp??

Edit: Désolé pour la présentation, c'est modifié.

[TommyDDR]

Merci de ré-éditer votre message afin de le faire correspondre aux règles de présentation d'un message.

Et merci aux autres utilisateurs de ne répondre que lorsque cela sera fait.

[mikell]

Le plus simple serait peut-être de lire le fichier dans un tableau 2D
Quel est le format du fichier ?

[Zillah]

Merci pour ta réponse.
Le fichier n'a pas d'importance, ça peut être un csv, xls, txt,... Peut importe.
Je souhaite juste pouvoir remonter une correspondance.

Éventuellement une base Sqlite, j'ai pas loin de 900 lignes dans mon tableau.

[TommyDDR]

Un exemple avec une base sous forme de txt formaté comme ça :

Code : Tout sélectionner

clé1|valeur1
clé2|valeur2
clé3|valeur3

► Afficher le textecode

Code : Tout sélectionner

Global $base = LoadBase(@ScriptDir & "\base.txt")

Local $search = InputBox("Recherche", "Entrez un mot à rechercher", "Tata")
If(Not(@error)) Then
    Local $value = BaseGetValue($search)
    If(@error) Then
        MsgBox(0, "Erreur", "Mot non trouvé en base")
    Else
        MsgBox(0, "Trouvé", $search & " -> " & $value & " (position : " & @extended & ")")
    EndIf
EndIf

Func LoadBase($file)
    Local $nbColones = 2
    Local $contenu = StringSplit(FileRead($file), @CRLF, 3)
    Local $retour[UBound($contenu, 1)][$nbColones]
    Local $count = 0
    For $i = 0 To UBound($contenu, 1)-1
        Local $temp = StringSplit($contenu[$i], "|", 3)
        If(UBound($temp, 1) = $nbColones) Then
            For $j = 0 To $nbColones-1
                $retour[$count][$j] = $temp[$j]
            Next
            $count += 1
        EndIf
    Next
    ReDim $retour[$count][$nbColones]
    Return $retour
EndFunc

Func BaseGetValue($search)
    For $i = 0 To UBound($base, 1)-1
        If($base[$i][0] = $search) Then
            Return SetExtended($i, $base[$i][1])
        EndIf
    Next
    Return SetError(1)
EndFunc

[mikell]

Le format du fichier est important...
csv, txt => _FileReadToArray + boucle (ou le code de Tommy, ou le code en-dessous)
feuille xls => fonctions _Excel* ou propriétés excel
base sql => Select colonne2 from table where colonne1 = xx

Code : Tout sélectionner

$txt = "clé1|valeur1" & @crlf & _
        "clé2|valeur2" & @crlf & _
        "clé3|valeur3"

$cle = "clé2"
$separ = "|"
Msgbox(0,"", StringRegExp($txt, '(?m)^\Q' & $cle & $separ & '\E(.*)$', 3)[0] )

[Zillah]

Merci pour votre aide, mais je ne comprends pas trop, en fait.

Je vais vous exposer mon problème plus clairement.
Pour commencer, les généralités technique:

Je bosse sur un réseau qui passe par un proxy authentifiant géré par notre FAI.
J'ai un réseau avec authentification par un Active Directory mais mon AD ne peut pas être synchro avec le proxy de notre FAI.

Quand mes utilisateurs veulent aller sur le net avec firefox, il y a donc une fenêtre d’authentification du proxy avec login et mot de passe qui s'ouvre.
Ce que j'ai fait, pour éviter à mes utilisateurs d'avoir de nombreux login et mots de passe à retenir, c'est que les credentials de connexion à notre AD, sont les même que ceux du proxy, sans le domaine.

Exemple:
Login AD: LoginJean
Pass AD: PassJean
Login Proxy: LoginJean@domaineproxy.fr
Pass proxy: PassJean

Je souhaiterais donc avoir un script autoit me permettant d'ouvrir firefox (ça pas de problème) et de renseigner automatiquement le login et mdp du proxy suivant la session windows ouverte.

J'arrive bien à ouvrir Firefox et a renseigner automatiquement (avec le commande "send", le login avec la variable @username, par contre, je n'arrive à récupérer le MDP.

Mon idée était donc d'intégrer au script autoit, les logins et mot de passe en y ajoutant les conditions.

Ex:
LoginJean | PassJean
LoginJAcques | PassJacques
LoginRobert | PassRobert

Si @Username = LoginJean alors le mot de passe proxy à renseigner automatiquement sera PassJean.

J'ai commencé un script que je pourrai vous montrer à mon retour au bureau.

J’espère avoir été clair.

[Zillah]

Voici donc mon petit bout de script hyper basique et qui fonctionne, pour la partie User

Code : Tout sélectionner

$user=@UserName

   Run('"C:\Program Files (x86)\Mozilla Firefox\firefox.exe" http://www.google.fr')
   Sleep(3000)
   Send($user & 'mondomaineproxy')
   Send("{TAB}")

Je souhaiterais y ajouter une table de correspondance du genre:

LoginJean | PassJean
LoginJAcques | PassJacques
LoginRobert | PassRobert

et
si @username=LoginJean alors Send(PassJean)
si @username=LoginJacques alors Send(PassJacques)
si @username=LoginRobert alors Send(PassRobert)

qui permettra de rensigner automatiquement le mot de passe dans la boite de dialogue Login proxy de Firefox.

Merci pour votre aide.

[jguinch]

Ouaah ! Ca veut dire que tu détiens la totalité des mots de passe de tous les utilisateurs en clair quelque part ???
...dire qu'il y a des développeurs qui bossent sur le cryptage depuis des dizaines d'années

Et avec IE ça fonctionne ?
Si ça passe avec IE, ça devrait pouvoir passer aussi avec FF. Il y a certainement un truc à faire dans le about:config
Peut-être un truc dans ce genre : https://developer.mozilla.org/en-US/doc ... entication (c'est qu'une suggestion hein...)