Bonjour,

Voila le contexte possède un tableau Excel basique colonne A login colonne B mot de passe
(Il s’agit de compte AD)

Je désire valider les login et le mot de passe de se tableau (500 au totale) afin de les séparé
Les donné erronée des donné valide.
Plus précisément si le login et MDP associé est OK je passe a la ligne suivante dans le cas ou le MDP ou le login ne sont pas bon je décale la ligne dans les colonnes C et D.

Toute la partie Excel est déjà fonctionnelle en vbs mais malheureusement je n'arrive absolument pas a trouvé un scripte me permettant de validé que les login et MDP sont bon ou non.

Je vous remercie par avance de toute l'aide que vous pourrez m'apporter

Je vous donne si joint la première partie du code que j'ai fait avec les commentaires sur se qu'il me manque (c'est la première foi que je fat un script vbs de se fait je m'excuse si tous cela n'est pas très propre).

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
Set xlapp= CreateObject("Excel.Application")
Set wk = xlapp.workbooks.open ("c:\loginmdp.xls")
Set sheet = xlapp.ActiveWorkbook.Sheets (1)
i=1
Do While  sheet.range ("A"&i)<> "End"
	If sheet.range ("A"&i)= "" Then
	i=i+1
	Else
	End If
Login = sheet.range ("A"&i)
MDP = sheet.range ("B"&i)
WSHShell.sleep (100)
'l'etape que je n'arrive pas a trouvé pouvant me permettre de testé 
'si le login AD et le mdp est bon ou non

	If Then 'Si le login ou le mdp ne sont pas bon alors...
	sheet.range ("C"&i)=sheet.range ("A"&i)
	sheet.range ("D"&i)= sheet.range ("B"&i)
	sheet.range ("A"&i)=""
	sheet.range ("B"&i)=""
	End If

i=i+1
Loop
XlApp.quit