Discussion :

[regisyves]

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 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
 
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

[SfJ5Rpw8]

en VBScript , l'on déclare bien les variables grâce à l'instruction Dim mais l'on ne précise pas son type.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim connexion 'as adodb.connection
Dim fichier 'as String

[regisyves]

Voici mon nouveau code :


J'ai erreur suivante objet requis "connecxion"

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
 
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()

[ProgElecT]

Avant d'utiliser la variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set connexion = createobject("ADODB.Connection")

[regisyves]

merci pour ton aide , ça marche