Bonjour à toutes et à tous,

J'aimerais faire en sorte que les nombreux utilisateur d'un fichier excel que j'ai créer alimentent à la fin de leur utilisation, une base de donnée avec les informations présentes dans le fichier. J'ai utilisé le tutoriel "Lire et écrire dans des fichiers excel fermés" de developpez.com. Après avoir rencontré l'erreur de l'intitulé et essayé de la résoudre au boulot, j'ai essayé un code simplifié chez moi :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Test()
Dim Cn As ADODB.Connection
Dim FichierBDStatistics As String, NomFeuilleBDStatistics As String, strSQL As String
Dim MaDate As Date, CoType As String, User As String
 
MaDate = Cells(1, 2)
CoType = Cells(2, 2)
User = Cells(3, 2)
 
FichierBDStatistics = "C:\Documents and Settings\Administrateur\Bureau\DB.xls"
NomFeuilleBDStatistics = "BD"
strSQL = "INSERT INTO [" & NomFeuilleBDStatistics & "$] " _
  & "VALUES (#" & Date & "#, " & _
  "'" & CheckType & "', " & _
  "'" & User & ")"
 
Set Cn = New ADODB.Connection
 
With Cn
  '.Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
    & FichierBDStatistics & ";Extented Properties=""Excel 12.0;HDR=YES;"""
  .Open
End With
 
Cn.Execute strSQL
Cn.Close
Set Cn = Nothing
End Sub

Toujours la même erreur se produit au niveau de :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
With Cn
  '.Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
    & FichierBDStatistics & ";Extented Properties=""Excel 12.0;HDR=YES;"""
  .Open
End With

Cette erreur peut apparemment survenir quand la syntaxe est mauvaise. Après avoir vérifier environ une centaine de fois, je ne vois toujours pas ou peut être le pb...

Pouvez-vous m'aider?

Merci

MouM