double input box

Version imprimable

12/06/2012, 09h12
marioTimax

double input box
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 ?:roll:

mon code pour l'inputbox
Code:

1 2 3 providerbox = inputbox ("Entrer le(s) numéros(s) de l'agence: " , _ "Creation de compte FTP spécial" , "Num.")
12/06/2012, 09h21
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
12/06/2012, 09h29
hackoofr

:salut:
ou est votre code ? :koi:

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

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

Code:

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

12/06/2012, 09h57
marioTimax

1 pièce(s) jointe(s)

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:oops:

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

+:mouarf:
12/06/2012, 10h08
hackoofr

Quelle est la relation de ce dernier poste avec les doubles inputBox :koi:
SVP chaque Question = une Nouvelle Discussion
donc tu dois clôturer ce poste en passant en :resolu: puis tu poste ta nouvelle question dans une autre nouvelle discussion sans oublier bien sûr les :plusser: pour les réponses pertinentes.
:merci:
12/06/2012, 10h13
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

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 :zoubi:
voila comment lire le fichier.csv
Code:

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

12/06/2012, 10h50
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

Re-Salut,

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

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:roll:

mon code

Code:

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