Codification fournisseur jet sous Excel 2010

gilbert_RGI à dit:

Bonjour

ne serait-ce pas l'extension des fichiers version 2007 et 2010 (xlsx ou xlsm à la place de xls) qui serait en cause😕

avez vous installé la mise à jour pour la compatibilité sur vos ordis version 2003

voir ici

Cliquez pour agrandir...

Lire et écrire dans les classeurs Excel fermés

Cliquez pour agrandir...

Sub RequeteClasseurFerme_Excel2007()
Dim Cn As ADODB.Connection
Dim Fichier As String
Dim NomFeuille As String, texte_SQL As String
Dim Rst As ADODB.Recordset
'Définit le classeur fermé servant de base de données
Fichier = "C:\Documents and Settings\mimi\dossier\NomClasseur.xlsx"
'Nom de la feuille dans le classeur fermé
NomFeuille = "Feuil1"
Set Cn = New ADODB.Connection
'--- Connexion ---
With Cn
.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
'-----------------
'
'... la requête ...
'
'--- Fermeture connexion ---
Cn.Close
Set Cn = Nothing
End Sub

Cliquez pour agrandir...