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 !