Bonjour, j'ai un script vbs stocké dans un repertoire virtuel nommé \SPACE_MUTASIR3. Le repertoire SPACE_MUTASIR3 se trouve dans IIS . Ce script exporte des données d'une table access vers un fichier excel . Mon problème est que je n'arrive pas à accéder à ma base de données ou à tout autre fichier de mon repertoire virtuel. Pourtant , j'arrive à accéder au repertoire virtuel en passant par ASP .
Puvez vous me montrer comment faire . voici mon code vbscript .
Code vbscript : 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
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
 
 
 
Set connect_base=CreateObject("adodb.connection")
base_de_donnees="C:\Inetpub\wwwroot\SPACE_MUTASIR3\base_mutasir.mdb"
connect_base.Open "provider=microsoft.jet.oledb.4.0 ; data source="&base_de_donnees
Set sql= CreateObject("adodb.recordset")
 reket="select  count(*) as many  from pret "
sql.Open  reket , connect_base 
'On crée maintenant la feuille excel 
Set appexcel= CreateObject("excel.application")
appexcel.Visible= true 
'On définit le classeur
 dest="C:\Inetpub\wwwroot\SPACE_MUTASIR3\FICHIERS_EXCELS\FICHIERS_DEF\pret_vide.xls"
Set classeur=appexcel.Workbooks.Open(dest) 
'On active une feuille dans ce classeur
Set feuille=appexcel.Worksheets(1) 
'On enregistre les données si le contenu de la table est supérieur à 0 
nbre_entrees=sql("many")
If nbre_entrees>0 Then 
'On effectue les enregistrments now 
Set sql2= CreateObject("adodb.recordset")
reket2="select  *  from pret  "
sql2.Open  reket2 , connect_base 
i=2
cpt=0
Do While Not sql2.EOF
feuille.cells(i , 1).value=sql2("num_cession") 
feuille.cells(i , 2).value=sql2("matricule_agent_preteur") 
feuille.cells(i , 3).value=sql2("code_pret") 
feuille.cells(i , 4).value=sql2("montant_pret") 
feuille.cells(i , 5).value=sql2("reste_echeance")
feuille.cells(i , 6).value=sql2("solde_pret")
feuille.cells(i , 7).value=sql2("date_debut") 
feuille.cells(i , 8).value=sql2("date_fin")
 demande="accordée"
'On va donner une valeur à rep_demande en fonction de la réponse à venir 
If sql2("rep_demande")=0  Then 
demande="en attente de réponse"
End if
feuille.cells(i , 9).value=demande
cpt=cpt+1
 
i=i+1
sql2.MoveNext 
Loop 
MsgBox "Le nombre d'enregistrements "&cpt
'On va créer un nouveau dossier pour recevoir
Set rep=CreateObject("scripting.filesystemobject")
date_cour=Day(Date)&"_"&Month(Date)&"_"&Year(Now)
If Day(Date)<=9   then
date_cour="0"&Day(Date)&"_"&Month(Date)&"_"&Year(Now)
End If 
'************************************************
If   Month(Date)<=9  then
date_cour=Day(Date)&"_0"&Month(Date)&"_"&Year(Now)
End If 
'********************************************************
If Day(Date)<=9  And  Month(Date)<=9  then
date_cour="0"&Day(Date)&"_0"&Month(Date)&"_"&Year(Now)
End If 
new_dossier="C:\Inetpub\wwwroot\SPACE_MUTASIR3\FICHIERS_EXCELS\exportdonnees" 
nom_fichier="pret"&date_cour
'On vérifie si le fichier dossier existe déjà
If   rep.FolderExists(new_dossier)    Then
Else
'Le dossier n'existe pas , on va le créer
rep.CreateFolder(new_dossier)
End If
'On va tuer le processus excel d'abord
'strComputer = "."
'Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'excel.exe'")
'For Each objProcess in colProcessList
'b=objProcess.Terminate()
'Next
'******************************************Fin de l'arrêt du processus*************************************
 
feuille.saveas new_dossier&"\"&nom_fichier
classeur.Close True
 
 
MsgBox "L'EXPORTATION DE LA TABLE PRET FUT UN SUCCES  "
 
End If