Roland_M
XLDnaute Barbatruc
bien le bonjour à tous,
j'ai plusieurs routines avec ADODB.Connection ... DAO.Database ... etc.
dont qq unes tirées de chez J.Boisgontier, qui fonctionnaient très bien jusqu'à présent ...
mais ne fonctionnent plus à partir de 2007 !? même en modifiant Excel 8.0; avec Excel 12.0;
que faire, quelles modif apporter !? (je m'en sert même pour venir en aide sur le forum en les adaptant)
--------
Dim XlDb As DAO.Database, TbL As DAO.TableDef
Set XlDb = OpenDatabase(DirBaseFich$, False, True, "Excel 8.0;")
...
--------
Dim Cn As ADODB.Connection, Cat As ADOX.Catalog, Feuil As ADOX.Table
Set Cn = CreateObject("ADODB.Connection")
Set Cat = CreateObject("ADOX.Catalog")
Connect$ = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DirBaseFich$ & ";extended properties=""Excel 8.0;HDR=NO;IMEX=1"""
Cn.Open Connect$: Set Cat.ActiveConnection = Cn
...
======================================
autre petite question en passant sur ExecuteExcel4Macro pour lire une donnée dans un fichier fermé,
est'il possible d'appeler sans le nom de la feuille ?
exemple (ceci qui est ok)
V$ = ExecuteExcel4Macro("'c:\mes documents\[toto.xls]feuil1'!R1C1")
mais sans nommer Feuil1, seulement R1C1, qui serait bien entendu sur la première feuille.
comment le formuler ? (si toutefois c'est possible)
j'ai plusieurs routines avec ADODB.Connection ... DAO.Database ... etc.
dont qq unes tirées de chez J.Boisgontier, qui fonctionnaient très bien jusqu'à présent ...
mais ne fonctionnent plus à partir de 2007 !? même en modifiant Excel 8.0; avec Excel 12.0;
que faire, quelles modif apporter !? (je m'en sert même pour venir en aide sur le forum en les adaptant)
--------
Dim XlDb As DAO.Database, TbL As DAO.TableDef
Set XlDb = OpenDatabase(DirBaseFich$, False, True, "Excel 8.0;")
...
--------
Dim Cn As ADODB.Connection, Cat As ADOX.Catalog, Feuil As ADOX.Table
Set Cn = CreateObject("ADODB.Connection")
Set Cat = CreateObject("ADOX.Catalog")
Connect$ = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DirBaseFich$ & ";extended properties=""Excel 8.0;HDR=NO;IMEX=1"""
Cn.Open Connect$: Set Cat.ActiveConnection = Cn
...
======================================
autre petite question en passant sur ExecuteExcel4Macro pour lire une donnée dans un fichier fermé,
est'il possible d'appeler sans le nom de la feuille ?
exemple (ceci qui est ok)
V$ = ExecuteExcel4Macro("'c:\mes documents\[toto.xls]feuil1'!R1C1")
mais sans nommer Feuil1, seulement R1C1, qui serait bien entendu sur la première feuille.
comment le formuler ? (si toutefois c'est possible)
Dernière édition: