Discussion :

[marioTimax]

Salut

Je cherche à faire deux inputbox à la suite soit que l'utilisateur entre ses données clique sur OK et la une deuxième inputbox s'ouvre ..

Savez vous comment le réaliser ?

mon code pour l'inputbox

Code :

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

1
2
3
 
providerbox = inputbox ("Entrer le(s) numéros(s) de l'agence: " , _
"Creation de compte FTP spécial" , "Num.")

[marioTimax]

ok j'ai reussi à créer deux inputbox à la suite mais il faut que j'affiche le resultat des deux inputbox dans la meme msgbox

si vous avez une idée?

merci

[hackoofr]

ou est votre code ?

[marioTimax]

Pour l'instant j'ai ça ...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
providerbox = inputbox ("Entrer l'acronyme du provider: " , _
	"Creation de compte FTP spécial" , "acronyme provider")
 
numerobox = inputbox ("Entrer le(s) numéros(s) de l'agence: " , _
	"Creation de compte FTP spécial" , "numéro d'agence")
 
 
wscript.echo "Provider : " & providerbox  
wscript.echo "Numéro d'agence : " & numerobox

Donc deux inputs box simple avec leur retour mais j'aimerai que les 2 valeurs se retrouvent sur la même msgbox de retour de valeurs. est ce que c'es possible?

merci

[hackoofr]

Code :

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

1
2
3
4
5
6
7
providerbox = inputbox ("Entrer l'acronyme du provider: " , _
	"Creation de compte FTP spécial" , "acronyme provider")
 
numerobox = inputbox ("Entrer le(s) numéros(s) de l'agence: " , _
	"Creation de compte FTP spécial" , "numéro d'agence")
 
wscript.echo "Provider : " & providerbox &vbcr& "Numéro d'agence : " & numerobox

[marioTimax]

super merci j'ai chercher mais je ne trouvais pas.

Maintenant mon code retourne bien par exemple

Provider : AA
Numero : 9999

Mais j'ai une dernière question
Il me faudrait un retour comme ceci ( donc le mot entier de l'acronyme. je dois donc faire une lecture de mon fichier .csv pour qu'il retourne le nom de provider complet en rappport avec le choix de l'utilisateur

donc comme ceci par exemple.

Provider : AlaCasa
Numero : 9990


Mais la dernière fois j'ai vraiment galérer pour réussir à lire le .csv
est ce que tu as une idée ?


ps: je mets mon .csv au cas ou

Merci poour ton aide je sais que ça fait bcp mais après ça normalement fini le vb pour un moment

+

[hackoofr]

Quelle est la relation de ce dernier poste avec les doubles inputBox
SVP chaque Question = une Nouvelle Discussion
donc tu dois clôturer ce poste en passant en puis tu poste ta nouvelle question dans une autre nouvelle discussion sans oublier bien sûr les pour les réponses pertinentes.

[marioTimax]

Non mais c'est la suite de ce code...

J'ai les 2 Inputbox , on entre les données, et ensuite pour le retour
j'aimerai avoir le nom du provider entier et non l'acronyme donc il faut que mon script lise le fichier liste_provider.csv pour qu'il arrive à lier l'acronyme entrée par l'utilisateur avec le nom du provider complet qui se trouve sur le .csv

et ensuite qui me retourne comme actuellement le num d'agence, et le nom entier qui se trouve dans le .csv

voila je sais pas si j'suis assez clair

[hackoofr]

Remarque Importante : il faut ouvrir ton fichier.csv avec Notepad et supprimer les ";" qui sont en plus que les virgules "," pour que ce script marche
voila comment lire le fichier.csv

Code :

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

1
2
3
4
5
6
7
8
9
Const ForReading = 1,ForAppending = 8
strNewFile = "liste_provider.csv"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strNewFile, ForReading)
Do Until f.AtEndOfStream
        strLine = f.ReadLine
        elem=split(strLine,",")
        MsgBox elem(0) & " =====> "& elem(1),64,"liste_provider"
Loop

[marioTimax]

Ok merci pour le ; je l'avais corrigé mais je t'ai envoyé un anciens fichiers desolé.

Je vais tester tout ça et je repasse si je m'en sors pas .

merci

[marioTimax]

Re-Salut,

Je reviens avec un code un peu modifier avec mes input box.
Jusqu'ici tout est ok

Je dois juste, lorsque l'utilisateur entre l'acronyme du provider,(donc la 1ere Inputbox) verifié que celui existe deja. si il existe ok sinon afficher un message d'erreur pour avertir que le dossier n'existe pas, mais je ne vois pas comment tester

mon 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
Const ForReading = 1,ForAppending = 8
strNewFile = "H:\Provider_PROD.csv"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strNewFile, ForReading)
elemline=0
Dim TBProv(100,2)
 
Do Until f.AtEndOfStream
        strLine = f.ReadLine
        elem=split(strLine,",")
			TBProv(elemline,0) = elem(0)
			TBProv(elemline,1) = elem(1)
			TBProv(elemline,2) = elem(2)
'			wscript.echo TBProv(elemline,0) & " " & TBProv(elemline,1) & " " & TBProv(elemline,2) 
        elemline=elemline+1
Loop 
'wscript.echo elemline
 
 
for i=0 to elemline
wscript.echo TBProv(i,0)
next
 
 
'MsgBox elem(1,0) & " ==> "& elem(1,1) & " ==> "& elem(1,2),64,"liste_provider"
 
 
'MsgBox elem(0) & " =====> "& elem(1),64,"liste_provider"
 
providerbox = inputbox ("Entrer l'acronyme du provider: " , _
	"Creation de compte FTP spécial" , "AA")
 
numerobox = inputbox ("Entrer le(s) numéros(s) de l'agence: " , _
	"Creation de compte FTP spécial" , "9999")
 
wscript.echo "Provider : " & providerbox &vbcr& "Numéro d'agence : " & numerobox