Recherche dans fichier fermé avec plusieurs occurences

[Pierre31]

Bonjour à toutes et tous,

J'ai cherché en vain en passant par ADO une solution pour copier les lignes d'un fichier fermé qui contient de façon aléatoire en colonne "K" l'information par exemple ("45-99-099"). Le nombre de codes identiques à trouver est variable.

D'avance merci pour vos réponses.

Cordialement
Pierre

 

[BOISGONTIER]

Re : Recherche dans fichier fermé avec plusieurs occurences

Bonjour,

   repertoire = ThisWorkbook.Path & "\"
   Dim rs As ADODB.Recordset
   Set cnn = New ADODB.Connection
   cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & repertoire & "DVSource.xls"
   Set rs = cnn.Execute("SELECT colj,colk FROM MaBD2 where Colk='45-99-099'")
   Sheets("Liste").[G2].CopyFromRecordset rs

JB
Formation Excel VBA JB

 

[Pierre31]

Bonjour BOISGONTIER,

Merci pour ta réponse rapide.
J'ai appliqué ta solution, mais j'ai un message "Pilote ODBC Excel, trop peu de paramètres. 2 attendu" et là je n'arrive pas à m'en sortir malgrès que j'ai nommé "BUDGET" la plage "MaBD2" dans le fichier fermé ainsi que dans la macro.
Cordialement
Pierre

 

[BOISGONTIER]

Re : Recherche dans fichier fermé avec plusieurs occurences

Microsoft ActiveX DataObject doit être coché dans Outils/Références

JB