Bonjour
J'ai une erreur sur la ligne 16 :
Fichier'(Inconnu)' introuvable
Code : 80004005

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
 
   Set fso = CreateObject("Scripting.FileSystemObject")
    curvbs = WScript.ScriptFullName			' nom du VBS en cours
    curdir = left(curvbs,InStrRev(curvbs,"\"))	' nom du répertoire en cours
 
mdb =  curdir & "mescles.mdb"
 
if not fso.FileExists(mdb) then msgbox "non trouvé",,mdb : wscript.quit
 
connstring = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
             "User Id=admin;Password=p4p7;DBQ=.\mescle.mdb"
Set Rs = CreateObject("ADODB.RecordSet")
'Rs.open(connstring)
 
mysql = "SELECT * from Ident"
    Rs.open mySQL, connstring