Discussion :

[regisyves]

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

[SfJ5Rpw8]

bonsoir,

c'est quoi pour toi ?

Code :

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

Feuil1

si c'est une variable je ne vois pas ou elle est renseignée

[regisyves]

feuil1 est le nom de la feuille de mon classeur excel que je veux lire

[Invité]

Salut

Ton code suggère (comme le dit bbil que tu as une variable qui se nomme Feuil1.

Or comme c'est le nom de ta feuille, tu devrais essayer le SQL suivant :

Code :

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

"SELECT * FROM [Feuil1$]"

Philippe

[regisyves]

merci , mais maintenant , je n'ai plus d'erreur à cette ligne mais maintenant j'ai le message type incompatible range en vbscript .
Voici mon nouveau 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="D:\try_excel.xlsx"
'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()

[regisyves]

Bonjour , j'essaie d'écrire un script vbscript qui lit un fichier excel , mais j'ai l'erreur suivante à la ligne 31 caractère 5 :
Pouvez vous me montrer l'erreur.
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("A1").CopyFromRecordset Rst
 
 
connexion.close
Set connexion=Nothing
MsgBox " Como te vas"
 
End  function
 
lire_excel()

l'erreur est type incompatible : range

[SfJ5Rpw8]

et ce code est censé faire quoi ? combien de fichiers excel concerné ?

Range n'est pas un objet VBScript, il te manque l'accès a ton classeur Excel..

[regisyves]

Mon code est sensé lire un fiichier excel nommé code_libelle_pret.xls , récupérer les données de ce fichier et les ranger dans la base de données .

[regisyves]

Pouvez vous me donner un code complet en vbscript avec des explications claires qui me permettront de lire mon fichier excel , d'extraire les champs et de les ranger dans la table access en vbscript . J'ai bien cherché sur le net mais tous les codes que je trouv me génèrent des erreurs .

[regisyves]

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
 
 
 
Dim oApp  
Dim oWkb  
Dim oWSht  
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("file1.xls")
Set oWSht = oWkb.Worksheets("Feuil1")
'premier ligne ou tu commence ton import
i = 2
 
'pour éviter les messages lors de l'ajout des enregistrements
DoCmd.SetWarnings False
 
'tant que la cellule n'est pas vide
While oWSht.Range("A" & i).Value <> ""
 
  cSQL = "insert into essai ( Mat ) values (" & Chr(34) & oWSht.Cells(i, 1) & chr(34) & ")"
 
'exécute la requète
  DoCmd.RunSQL cSQL
 
 
  i = i + 1
Wend
 
DoCmd.SetWarnings true
 
 '*************************************************************************************************