copy de classeur fermé

Le
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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19014351
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;"""
Michel
Le #19014581
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
Publicité
Poster une réponse
Anonyme