Affichage d'une valeur dans un champs

Bonjour.
Je souhaite afficher la valeur d'un champs dans une page html préalablement créée par un script vbs que voici

Le Tableau :

Code:

1
2
3
Dim fields
	'Fields variable holds the fields name and type
	fields = Array(Array("title","I. Contact client &ndash; Pr&eacute;paration technique TVF"),Array("text","Nom :","nom_cont"),Array("text","Prénom :","prenom_cont"),Array("text","Téléphone :", "telephone"),Array("adr","Adresse :"),Array("text","Numéro de la Rue :","numrue_adr"),Array("text","Nom de la Rue :","rue_adr"),Array("text","Code Postal :","cp_adr"),Array("text","Ville :","ville_adr"),Array("textarea","Description de l'opération :","description_op"),Array("separator"),Array("title","II. Fiche d&rsquo;intervention STC"),Array("text","Profil Matériel","profil_mat"),Array("text","Marque :","marque"),Array("text","Modèle :","modele"),Array("text","Utilisateur :","utilisateur"),Array("text","CPU :","CPU"),Array("text","Ram :","RAM"),Array("text","OS/Windows :","OS/WIN"),Array("text","IE :","IE"),Array("textarea","Autre(connexion,...) :","autre_mat"),Array("separator"),Array("titres","BaseTEAMS :"),Array("open_divs"),Array("text","Type :","type_bt"),Array("text","Matricule :","Matricule"),Array("text","Numéro de Société :","matsoc"),Array("text","Profil :","profil_bt"),Array("text","Version TEAMS :","versionTEAMS"),Array("text","Version COMPANION :","versionCOMPANION"),Array("text","Version CALLREPORT :","versionCALLREPORT"),Array("text","Répertoire","repertoire"),Array("close_divs"),Array("buttonjava"),Array("separator"),Array("titres","Baseréseau :"),Array("text","Nombre d'accès :","nbacces"),Array("text","License Pervasive :","license_pervasive"),Array("text","Type d'installation :","typeinst"),Array("text","Nom des accès TEAMS","nomaccesTEAMS"),Array("separator"),Array("titres","Droits Informatiques :"),Array("text","Répertoire :","droit_repertoire"),Array("text","Base de registre","droit_basereg"),Array("textarea","Autre :","autre_droit"),Array("separator"),Array("titres","Communication :"),Array("text","Module :","dialer"),Array("text","Version :","version"),Array("text","Host :","nom_host"),Array("textarea","Autre :","autre_dialer"),Array("separator"),Array("title","Information sur l'intervention : "),Array("text","Numéro KKO","Numcacao"),Array("text","Nom de l'intervenant","Nom_intervenant"),Array("text","Date de l'intervention :","date_intervention"),Array("text","Heure au début de l'intervention :","heuredeb"),Array("text","Heure à la fin de l'intervention :","heurefin"),Array("textarea","Commentaires(montant des frais,transport,...) :","com_int"),Array("separator"),Array("rmq","Remarque STC : ","rmqint"," Remarque Client:","rmqcontact"),Array("buttonvbs","go_report(fields)","Sauvegarder le compte-rendu et l'imprimer"),Array("buttonreset","Effacer tout"))

Le reste de la fonction :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
	Sub go_report(fields)
		fileName = "formulaire.html"
		Dim fso, f
		Set fso = CreateObject("Scripting.FileSystemObject")
 
		If (fso.fileExists (fileName)) Then
		   Set f = fso.OpenTextFile ( fileName, 2 )
		Else
			Set f = fso.CreateTextFile ( fileName )
		End If
 
		f.write "<html>" + Chr(13) + "<body>" + Chr(13) + "<head>" + Chr(13) + "<hr>"  + Chr(13) + "<img src=""image002.gif"" />" + Chr(13) + "<h1 align=""center"">COMPTE RENDU D’INTERVENTION</h1>" + Chr(13) + "<hr />" + Chr(13) + "</head>" + Chr(13) + "<br />"
		f.write "<form name=""form1"" method=""post"">"
 
		For Each field in form1
				f.write field.value
		Next
 
		For Each field in fields
			Select Case lcase(field(0))
				Case "title"
					f.write "<table style=""text-align: left; width: 391px; height: 34px;"" border=""1"" cellpadding=""2"" cellspacing=""2""><tbody><tr><td><h3>"+field(1)+"</h3></td></tr></tbody></table><br /><br />"
 
				Case "titres"
					f.write "<h3><td><b><u>"+ field (1)+"</b></u><br></h3></td>"
 
				Case "text"
					f.write "<td>"
					f.write "<u>"+field(1)+"</u></td><br /><td>"
					f.write "<input type=" + field(0) + " name=""" + field(2) + """><br /></td><br />"
 
 
				Case "adr"
					f.write "<td>"
					f.write "<br />"
					f.write "<b><u>" + field(1) + "</u></b>"
					f.write "</td><br /><br/>" 
 
				Case "textarea"
					f.write "<td><u>" + field(1) + "</u></td><br />"
					f.write "<td><TEXTAREA WRAP=""ON"" rows=""15"" cols=""75"" name=" + field(2) + "></TEXTAREA><br /></td><br />"
 
				Case "separator"
					f.write "<hr color=""black"" /><br>"
				Case "open_divs"
					f.write "<div id=""champs_1""><div align=""left"">"
				Case "close_divs"
					f.write "</div></div>"
				Case "rmq"
					f.write "<table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 style='border-collapse:collapse;mso-padding-alt:0cm 3.5pt 0cm 3.5pt'><tr><td width=614 valign=top style='width:460.5pt;border:solid windowtext 1.0pt; mso-border-alt:solid windowtext .5pt;padding:0cm 3.5pt 0cm 3.5pt'><p class=MsoNormal><b>"+field(1)+"<o:p></o:p></b></p></td></tr>"
					f.write "<tr><TD><TEXTAREA WRAP=""ON"" rows=""15"" cols=""75"" name="+ field(2) +"""></TEXTAREA></TD></tr>"
					f.write "<td width=614 valign=top style='width:460.5pt;border:solid windowtext 1.0pt; mso-border-alt:solid windowtext .5pt;padding:0cm 3.5pt 0cm 3.5pt'><p class=MsoNormal><b>"+ field(3) +"</b></p></td></tr>"
					f.write "<tr><TD><TEXTAREA WRAP=""ON"" rows=""15"" cols=""75"" name="+field(4)+"""></TEXTAREA></TD></tr></table><br /><br />"
			End Select
 
		Next
		f.write "</form>"
		f.write "<table class=""MsoNormalTable"" style=""border-collapse: collapse;"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		f.write "<tbody>"
		f.write "<tr style=""page-break-inside: avoid;"">"
		f.write "<td style=""padding: 0cm 3.5pt; width: 228.5pt;"" valign=""top"" width=""305"">"
		f.write "<p class=""MsoHeader"" style=""text-align: center;"" align=""center"">"
		f.write "<b>"
		f.write "<u>"
		f.write "<span style=""font-size: 14pt;"">Signature<span style="""">"
		f.write "</span>client "
		f.write "</span>"
		f.write "</u>"
		f.write "</b>"
		f.write "<b>"
		f.write "<span style=""font-size: 14pt;"">:<u><o:p></o:p>"
		f.write "</u>"
		f.write "</span>"
		f.write "</b>"
		f.write "</p>"
		f.write "</td>"
		f.write "<td style=""padding: 0cm 3.5pt; width: 232pt;"" valign=""top"" width=""309"">"
		f.write "<p class=""MsoHeader"" style=""text-align: center;""align=""center"">"
		f.write "<b>"
		f.write "<u>"
		f.write "<spanstyle=""font-size: 14pt;"">Signature intervenant""</span>"
		f.write "</u>"
		f.write "</b>"
		f.write "<b>"
		f.write "<spanstyle=""font-size: 14pt;""> :<u><o:p></o:p>"
		f.write "</u>"
		f.write "</span>"
		f.write "</b>"
		f.write "</p>"
		f.write "</td>"
		f.write "</tr>"
		f.write "</tbody>"
		f.write "</table>"
		f.write "<br />"
		f.write "</body>"
		f.write "</html>"
 
 
 
		f.close
	End sub
 
 
</script>

Je ne my connais pas spécialement en vbs j'ai donc mis un peu nimporte quoi a ce niveau là

Code:

1
2
3
For Each field in form1
				f.write field.value
		Next

Cela mafiche les valeur que je rentre dans mon autre formulaire mais sa ne les affiche pas au bon endroit (sa les affiche au dessus du formulaire)

Merci de me dire au placer ou alors quoi mettre pour réussir ce que je dois faire :D

ton code génère un fichier html... ( f.write te permet d'écrire dans ce fichier) ,
pour commencer il faut que tu trouve le code à générer dans ta page html ...ensuite seulement tu aura un probléme vbs..

Le code est déja généré dans ma page html il renvoie la meme page que la première sans les boutons
On ma conseillé dictionnary mais je ne comprend que trrès peu la démarche si quelqun peu me donner un exemple
merci

bonjour,
tu dois apprendre le modèle objet dhtml :aie:
pour les vacances, un peu de lecture ? http://msdn2.microsoft.com/en-us/library/ms533022.aspx
en gros tu définis une collection d'objets et tu y ajoutes les valeurs souhaitées
Code:

1 2 3 4 set cFields=document.getElementsByName(field(2)) for each iField in cFields iField.insertAdjacentText "afterBegin", "n'importe quoi" next