Voici le code du script vbs:
'-----------------------------------------------------------------------------
'Extraction des données dans Oméga
'-----------------------------------------------------------------------------
'Ouverture de la base de données Omega
Set ConnBdOmega = Server.CreateObject("ADODB.Connection")
ConnBdOmega.Open BdOmega
'Lecture des requêtes SQL du répertoire RepReq
Set fSrc = fs.GetFolder(RepReq")
Set fFichiers = fSrc.Files
i = 0 'Compteur de fichiers SQL
For Each fTemp in fFichiers
'Compteur de fichiers requêtes
i = i+1
'Ouverture du fichier requête
Set inF = fs.OpenTextFile(fTemp, 1, false)
'Lecture du fichier
ReqSQL = inF.readAll
'Fermeture du fichier requête
inF.close
'Nom du fichier requête
NomFichierReq = left(fTemp.Name, len(fTemp.Name) - 4) & ".csv"
'Exécution de la requête (ReqSQL)
'Set ReqOmega = ConnBdOmega.Execute(ReqSQL)
Set ReqOmega = CreateObject("ADODB.Recordset")
ReqOmega.open ReqSQL, BdOmega
buffer = ""
'Récupération des entêtes de la requête
for j=0 to ReqOmega.fields.Count -1
buffer = buffer & ReqOmega(j).name & ";"
next
'Résultat de la requête dans un fichier csv a mettre dans RepExtract
'---------------------------------------------------------------------
'Création du fichier csv contenant le résultat de la requête
Set fExtract = fs.CreateTextFile (RepExtract & NomFichierReq)
'Ecriture des entêtes dans le fichier
fExtract.WriteLine buffer
'Deux méthodes pour récupérer les données de la requête:
'1ere méthode = balayage du recordset enregistrement par enregistrement
'(demande plus de ressources puisque travaille sur la base de données)
'While not ReqOmega.EOF
' buffer=""
' for j=0 to ReqOmega.fields.Count -1
' buffer = buffer & ReqOmega(j).value & ";"
' next
' fExtract.WriteLine buffer
' ReqOmega.MoveNext
'Wend
'2e méthode = Récupération de la requête dans un tableau à 2 dimensions
tempArray = ReqOmega.GetRows()
'Fermeture de la requête
ReqOmega.Close
Set ReqOmega = Nothing
'Extraction des données du tableau (=contenu de la requête)
For iRowLoop = 0 to UBound(tempArray, 2)
buffer=""
For iColLoop = 0 to UBound(tempArray, 1)
buffer = buffer & tempArray(iColLoop, iRowLoop) & ";"
Next 'iColLoop
fExtract.WriteLine buffer
Next 'iRowLoop
'Fermeture du fichier
fExtract.Close
Set fExtract = Nothing
Next 'fTemp
'Fermeture de la base de données Oméga
ConnBdOmega.Close
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
'Cloture des objets
'-----------------------------------------------------------------------------
Set ConnBdOmega = Nothing
Set fFichiers = Nothing
Set fSrc = Nothing
Set fs= Nothing
J'ai juste enlevé la déclaration et la définition des variables...