Bonjour , j'essaie de lire un fichier excel à l'aide d'un code VBScript . Mais j'ai l'erreur suivante : Le moteur de base de données ne peut pas trouver $ . Assurez vous que le nom de paramètre ou d'alias est valide, qu'il ne comprend pas de caractère ou de ponctuation incorrect et qu'il n'est pas de trop long .
erreur à la ligne 28
caractère 5
Pouvez vous me montrer mes erreurs .

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 
 
function  lire_excel()
'variable de connexion
Dim connexion 
'variable du fichier
Dim fichier , Rst 
'La variable qui servira pour la requête  
Dim reket
'as String 
'On va chercher le lien vers le fichier excel 
fichier="C:\Inetpub\wwwroot\SPACE_MUTASIR2\FICHIERS_EXCELS\code_libelle_pret.xls"
'On établit la connexion maintenant
 
Set connexion = createobject("ADODB.Connection")
 
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
'On fait les traitements ici 
 
'/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM ["& Feuil1 & "$]"
 
    Set Rst = createobject("ADODB.recordset")
    Rst.Open texte_SQL , connexion 
 
    'Ecrit le résultat de la requête dans la cellule A2
    Range("A2").CopyFromRecordset Rst
 
 
connexion.close
Set connexion=Nothing
MsgBox " Como te vas"
 
End  function
 
lire_excel()