Discussion :

[atigrou]

Bonjour,

J'ai un fichier CSV du type

users.csv

SVL8100;toto;azerdfsdfg
SVL8101;titi;qsdfsdfsert
SVL8102;tutu;fbcvbtyhdthyh

Je voudrai, quand je tape la valeur SVLxxxx, que les deux cellules suivantes soient stockées dans 2 variables distinctes pour que celles-ci soient affichées dans une box et ensuite être utilisées dans d'autre bout de script.

j'ai ça comme code :

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
 
dim fs,objTextFile
set fs=CreateObject("Scripting.FileSystemObject")
dim arrStr
dim fname
set objTextFile = fs.OpenTextFile("users.csv")
 
fname=InputBox("Entrez le SVL","Saisie")
MsgBox("le svl est : " & fname)
 
Do while NOT objTextFile.AtEndOfStream
  arrStr = split(objTextFile.ReadLine,";")
  MsgBox("SVL :" & arrStr(0) & chr(13) & "User :" & arrStr(1) & chr (13) & "Passwd :" & arrStr (2))
'  arrStr is now an array that has each of your fields
' process them, whatever.....
Loop
 
objTextFile.Close
set objTextFile = Nothing
set fs = Nothing

j'ai je bute sur la recherche. Je suis plus que débutant en programmation.

J'ai beau chercher je n'ai pas trouvé ou alors je suis passé à côté à cause de mon ignorance !

Merci de m'aider !

[ProgElecT]

Salut

Il te faut vérifier l’existence du SLV

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
27
28
29
30
31
dim fs,objTextFile
set fs=CreateObject("Scripting.FileSystemObject")
dim arrStr
dim fname
Dim Trouver ' <------------ drapeau -------------
set objTextFile = fs.OpenTextFile("users.csv")
 
fname=InputBox("Entrez le SVL","Saisie")
MsgBox("le svl est : " & fname)
Trouver = False
Do while NOT objTextFile.AtEndOfStream
        arrStr = split(objTextFile.ReadLine,";")
        If arrStr(0) = fname then
                msgbox "SVL :" & arrStr(0) & chr(13) & "User :" & arrStr(1) & chr (13) & "Passwd :" & arrStr (2)
                Trouver = True
                Exit Do
        End If
  'MsgBox("SVL :" & arrStr(0) & chr(13) & "User :" & arrStr(1) & chr (13) & "Passwd :" & arrStr (2))
'  arrStr is now an array that has each of your fields
' process them, whatever.....
Loop
 
objTextFile.Close
set objTextFile = Nothing
set fs = Nothing
 
If Trouver = True Then
        msgbox "SVL :" & arrStr(0) & chr(13) & "User :" & arrStr(1) & chr (13) & "Passwd :" & arrStr (2)
        Else
        msgbox "SVL :" & arrStr(0) & " n'est pas connu "
End If

La variable fname doit contenir: SLVxxx, si elle ne contient que les chiffres, remplacer la ligne 14 par

Code :

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

        If arrStr(0) = "SLV" & fname Then

[atigrou]

C'est exactement ça !

merci beaucoup.