Discussion :

[smain_inf]

pour la lecture du .csv tu pourrai t'inspirer du code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim fso 
Dim fCsv 
Dim tb 
Const ForReading = 1
Set fso = CreateObject("scripting.filesystemobject")
Set fCsv = fso.OpenTextFile("liste.csv", ForReading)
If Not fCsv.AtEndOfStream Then fCsv.ReadLine ' lecture ligne d'entête
 While Not fCsv.AtEndOfStream
  tb = Split(fCsv.ReadLine, ",")
  If UBound(tb) = 3 Then
    Wscript.echo "Nom : " & tb(0) & "  prénom :" & tb(1) & "  login:" & tb(2) & " mot de passe:" & tb(3)
  End If
 Wend

Bonjour


je veux utilser votre script mais avec une autre façon

j'ai un ficheir csv

Dossier Name
FR99 XXXXXX
ALL_100 YYYYY
Holand zzzzzzzzzzzz

je veux que chaque fois je récupere le nom du Dossier
exemple
tab(0) =FR99
tab(1)=ALL_100
tab(2)=Hola

FR99 c'est un nom de dossier qui existe ,je veux le deplacer dans un autres dossier

Merci


Coridlament