Code VBA extraction de données d'un autre fichier

Bonjour à Tous !

je sollicite votre aide pour modifier cette macro qui fonctionne bien, mais que je souhaite modifier :

les deux lignes en bleu, récupère dans "CLASSEDEPART" les données de "A5 à A15" et me les recopient sur mon fichier à partir de "A5"

Ce que je souhaite, c'est récupérer plusieurs champs : A5:A15 ET D5:D15 mais ce dernier lui est à copier à partir de D5 sur mon fichier. chaque champs récupérer est recopié dans la même cellule mais sur mon fichier.

en pièce jointe, les deux fichiers tests pour être plus clair peut-être.

Merci

Cdlt

Sub CLASSE_ONE()

' Microsoft ActiveX DataObject doit être coché

Set cnn = New ADODB.Connection

répertoire = ThisWorkbook.Path

fichier = "CLASSEDEPART.xls"

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & répertoire & "\" & fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"

Set rs = cnn.Execute("[CLASSES$A5:A15]")

[A5].CopyFromRecordset rs

rs.Close

cnn.Close

Set rs = Nothing

Set cnn = Nothing

End Sub

Données en bleu :

Set rs = cnn.Execute("[CLASSES$A5:A15]")

[A5].CopyFromRecordset rs

Bonsoir,

peut-être que ma demande n'est pas claire,

Voulant copier plusieurs plages de cellules, comment mettre ça -------au bout de la première ligne et lui de copie chaque zone dans la première cellule de la definition de plage : ex : AZ8:AZ120 copier à partir de AZ8 sur ma feuille .

Set rs = cnn.Execute("[CLASSES$A5:A15]")

[A5].CopyFromRecordset rs

Merci de votre

Cdlt

Bonsoir,

Ce n'est pas clair, confirmation.

Si on veut copier A5:A15 d'un fichier à l'autre, puis D5:D15, poursuivre avec le même principe en place :

  Set rs = cnn.Execute("[CLASSES$A5:A15]")
  [A5].CopyFromRecordset rs
  rs.Close
  Set rs = Nothing

  Set rs = cnn.Execute("[CLASSES$D5:D15]")
  [D5].CopyFromRecordset rs
  rs.Close
  Set rs = Nothing

Si ce n'est pas ça, réexpliquer avec un exemple du résultat attendu.

Bonne soirée

Bouben

Bonsoir

Merci, cela correspond exactement à ma demande.

Cdlt