Discussion :

[sergio_bzh]

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 :

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

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

[Michel_M]

Bonjour,
essaies:

Code :

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

1
2
Data Source="D:\fic.xls"

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

[Abed_H]

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

[Lynx92]

Bonjour,

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

Code :

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

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

[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

[Invité]

Bonjour,

Exemple:

Code :

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

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

JB

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