acces Excel en ADO depuis VB

Version imprimable

16/04/2008, 11h15
sergio_bzh

acces Excel en ADO depuis VB
Bonjour,
j'ai un problème vraiment bizarre en essayant d'accéder à un fichier Excel via ADO (écrit en VB).

Pour démarrer j'ouvre une connexion :
Code:

1 2 Set XlConn = New ADODB.Connection XlConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\fic.xls;Extended Properties=""Excel 8.0;HDR=No"";"
Dès le Open j'ai l'erreur :
La table externe n'est pas dans le format attendu

Mais le plus incroyable est que si d'un autre côté j'ouvre le fichier Excel (double-click dans l'explorateur) et que je relance le VB, alors il n'y a plus de problème !!!!!!!!!!!!!!!

Le problème est systématique et existe sur d'autres machines en reprenant le même projet VB et le même fichier Excel.
Par contre, le problème n'existe que pour certains fichiers excel.

Si quelqu'un a une piste ....
Merci.
Sergio
16/04/2008, 15h41
Michel_M
Bonjour,
essaies:
Code:

1 2 Data Source="D:\fic.xls"
17/04/2008, 18h03
sergio_bzh

merci mais ça ne change rien.
reste ce comportement incompréhensible qui fait que quand on ouvre le fichier dans excel, il n'y a plus d'erreur !
17/04/2008, 20h23
Abed_H

Citation:

Envoyé par sergio_bzh

Dès le Open j'ai l'erreur :
La table externe n'est pas dans le format attendu
Sergio

Bonsoir

assure toi bien du sufixe (xls ou xlsx ou xlsm)

Bonne soirée

Autre méthode d 'accés

Bonjour,

Pour ouvrir et lire un fichier excel sous vb , j'utilise sous vb l'objet application.excel pour manipuler les feuilles

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\MonFichierExcel.xls") 
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1) 
' accéder au lignes et cellules
wsExcel.Cells(10,5)="skflskflmksmlkfsml"

Et avec ce type d 'approche il n'y a pas de probleme de manière générale

Bon courage pour la suite

07/05/2008, 16h55
jpo

ta base est-elle dans la 1° feuille de ton fichier ?
la 1 ° ligne de ta feuille contient-elle la ligne des champs ?

salut

jpo

Bonjour,

Exemple:

Code:

1
2
3
4
5
6
7
8
9
10
 
 ' Microsoft ActiveX DataObject doit être coché 
Sub RecupTableurSQL() 
  ChDir ActiveWorkbook.Path
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ThisWorkbook.Path & "\" & "ADOsource.xls"
  Set rs = cnn.Execute("SELECT nom,Prenom,Salaire FROM MaBD where nom<>''")
  [A2].CopyFromRecordset rs
End Sub

13/05/2008, 16h18
AlainTech

Question bête:
Comment est créé ce fichier Excel?

Si je pose cette question, c'est que certains pensent que le seul fait de donner une extension .xls à un quelconque fichier texte, en fait un classeur Excel.