Bonjour,

Je reviens un peu sur mon ancienne discution , je voudrais savoir si avec du vbscript il été possible douvrire un fichier en lecture ecriture.
car dans mon code je dois l'ouvrir en lecture pour récupéré des info et ensuite ecrire dedans.

je vous remercie


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
39
40
41
Option Explicit	
Dim oApp,oConn,Chemin_Excel,Chemin_Access,Valeur1,Valeur_Site,Valeur_CRB,Valeur_ETS,Valeur_CRB_A,Valeur_Split,Valeur_SITE_A,Valeur_Ligne,moteur,rs,adOpenKeyset , adLockOptimistic, requete,cpt,f,fso,ts,fileObj
Chemin_Excel = InputBox ("Saisir le chemin du fichier :" )
Chemin_Access=InputBox (" Saisir le chemin de la base de donnée :")
moteur="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
adOpenKeyset=3
adLockOptimistic=3
Set oConn = CreateObject("ADODB.Connection")
oConn.Open moteur & Chemin_Access
Set rs = CreateObject("ADODB.Recordset")
rs.Open "TRANSCO", oConn, adOpenKeyset, adLockOptimistic
Const ForReading = 1,ForWriting = 2,TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fso = CreateObject("Scripting.FileSystemObject") 
set fileObj = fso.GetFile(Chemin_Excel)
set f = fileObj.OpenAsTextStream(ForReading, TristateUseDefault)
while Not f.AtEndOfStream 
Valeur_Ligne=f.ReadLine 
Valeur_Split=Split(Valeur_Ligne,";")
Valeur1=Valeur_Split(0)
Valeur_CRB=Valeur_Split(2)
Valeur_SITE=MID(Valeur1,2,6)
'WScript.Echo(Valeur1)

do while not rs.eof
	Valeur_CRB_A= rs("CRB")
	Valeur_Site_A=rs("SITE")
	If (Valeur_Site = Valeur_Site_A) And (Valeur_CRB = Valeur_CRB_A)  then
		Valeur_ETS=rs("ETS")
		'WScript.Echo(Valeur_ETS & "," & Valeur_Ligne)
		 f.WriteLine Valeur_ETS & ";" & Valeur_Ligne
		'f.writeline("imane")
	End if 
	rs.movenext
loop
Wend 
WScript.Echo("Fini")
'fso.close()
'
f.Close()
rs.close