Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

copy de classeur fermé

2 réponses
Avatar
Michel
Bonjour,

Sur le site de http://boisgontierj.free.fr/ j'ai trouvé un code pour
récupérer des données d'un classeur fermé.
Cela fonctionne parfaitement sauf que je ne récupére jamais la ligne 1
du fichier source, pourtant cela commence bien en A1.
Merci de l'aide
M.
------------------- le code ------------------

Sub RecupTableur()
' Microsoft ActiveX DataObject doit être coché
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" &
ThisWorkbook.Path & "\" & "Monfichier.xls"
Set rs = cnn.Execute("[Feuil1$A1:G200]")
[A1].CopyFromRecordset rs
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing

2 réponses

Avatar
MichDenis
Remplace ceci :

cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" &
ThisWorkbook.Path & "" & "Monfichier.xls"


Par

Dim File As String
File = ThisWorkbook.Path & "" & "Monfichier.xls"

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & File & ";" & _
"Extended Properties=""Excel 8.0;HDR=NO;"""
Avatar
Michel
MichDenis vient de nous annoncer :
Remplace ceci :

cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" &
ThisWorkbook.Path & "" & "Monfichier.xls"


Par

Dim File As String
File = ThisWorkbook.Path & "" & "Monfichier.xls"

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & File & ";" & _
"Extended Properties=""Excel 8.0;HDR=NO;"""



Impect c'est bon. Un grand Merci