fin d'instruction attendue(erreur 800A0400 ) en vbscript
Bonjour , je suis en train d'écrire un code vbscript qui lit les informations dans un fichier excel . Mais j'ai le message d'erreur suivante dans monfichier.vbs : fin d'instruction attendue(erreur 800A0400 ) en vbscript
Pouvez vous me dire ce qui ne va pas .
Voici mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Sub lire_excel()
Dim connexion as adodb.connection
Dim fichier as String
'On va chercher le lien vers le fichier excel
fichier="SPACE_MUTASIR2\FICHIERS_EXCELS\code_libelle_pret.xlsx"
'On établit la connexion maintenant
With connexion
provider="microsoft.jet.oledb.4.0"
connectionstring="provider=microsoft.ace.oledb.12.0 ; data source="&fichier&";
extended properties="excel 12.0 ;hdr=yes;" "
open
End With
connexion.close
Set connexion=nothing
End Sub |
erreur objet requis "connecxion"
Voici mon nouveau code :
J'ai erreur suivante objet requis "connecxion"
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Sub lire_excel()
Dim connexion 'as adodb.connection
Dim fichier 'as String
'On va chercher le lien vers le fichier excel
fichier="SPACE_MUTASIR2\FICHIERS_EXCELS\code_libelle_pret.xlsx"
'On établit la connexion maintenant
With connexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With
connexion.close
Set connexion=Nothing
MsgBox " salutation"
End Sub
lire_excel() |
