Discussion :

[papyxy]

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

[SfJ5Rpw8]

Bonsoir,

en lisant "en travers"... un coup mesclefs prend un s final un coup plus d'esse...?

[papyxy]

Merci bbil, j'ai passé la journée sur ce problème sans jamais voir mon erreur.
Falait un oeil neuf pour tomber dessus!