cs_jackbauer972
Messages postés6Date d'inscriptionmardi 15 mai 2007StatutMembreDernière intervention30 juillet 2007
-
16 mai 2007 à 09:51
cs_jackbauer972
Messages postés6Date d'inscriptionmardi 15 mai 2007StatutMembreDernière intervention30 juillet 2007
-
16 mai 2007 à 15:20
Bonjour à tous,
J'ai un probleme avec un code excel.
J'ai un code, qui permet de se connecter à des bancs de tests et d'en
extraire les rapports. Le mot de passe et le login pour se connecter au
banc étaient entré en dur dans le code directement. Le probleme que
j'ai maintenant, est que ce meme code doit se connecter à plusieurs
bancs de test qui n'ont évidemment pas les meme mot de passe et login.
Il faudrait donc que je crée deux variables dans une boucle qui
viendraient lire les différents mot de passe et login sur une page
excel. Mais je n'arive pas à l'insérer dans mon programme initial. Je
suis un peu novice et je vous joins un bout de mon programme pour
vous faire une idée. Merci à tous.
'Initialisation de la feuile
resultat_save
ThisWorkbook.Activate
Sheets("Résultat_Save").Visible
= True
Sheets("Résultat_Save").Select
Range("A15").End(xlDown).Offset(1,
0).Activate
Sheets("Résultat_Save").Visible = xlVeryHidden
'Détermination du nb de bancs et
affectation des noms
ThisWorkbook.Activate
If Not
IsEmpty(Range("Banc_N1").Offset(1, 0)) Then
Application.StatusBar =
"Je mets en forme les données... j'en suis à " &
PourcentdAchevement & " % (soit : " & i & " fichiers
traités sur " & .FoundFiles.Count & " fichiers)"
'recherche le chemin du fichier
puis extrait le repertoire racine
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 16 mai 2007 à 11:26
Salut,
Pour ne pas avoir a faire des copier coller (ou faire comme dans l'exemple) tu peu très bien faire comme suit( mais je ne sais pas si ca peu t'aller)
Dim NLigne As Long
'pour balayer de A1 à A10
For NLigne = 1 To 10
Password = Worksheets("LaFeuilleAuMotDepasse").Range("A" & CStr(NLigne)).Text
Login = Worksheets("LaFeuilleAuMotDepasse").Range("B" & CStr(NLigne)).Text
ErrInfo = WNetAddConnection2(NetR, Password, Login, CONNECT_UPDATE_PROFILE)
Next, ----
[code.aspx?ID=41455 By Renfield]