extraire données de fichiers fermés

[dj.run]

Bonjour à tous,

Je viens vers vous car je suis fasse à un problème et je ne sais pas comment le résoudre.
Je vous explique:

Dans un répertoire j'ai environ 200 fichiers de noms différents, mais qui ont tous la même structure . Ils ont tous trois onglets et j'ai besoin de récupérer des données dans la feuil1.
ces données sont situés respectivement dans les cellules : c5, c6, c10, c11, c12, c13, et g13.

Je voudrai si c'est possible récupérer ces données dans les 200 fichiers et les regrouper dans un nouveau fichier sous forme de liste.

Si quelqu'un à un exemple ou une idée, je suis preneur.

En vous remerciant par avance.

Ps : il faudrait que je rende cette liste samedi au plus tard.

 

[BOISGONTIER]

Re : extraire données de fichiers fermés

Bonsoir,


Récup d'un champ dans un tableau avec ADO:

Sub RecupTableau()
  ' Microsoft ActiveX DataObject doit être coché
  repertoire = ThisWorkbook.Path
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & _
  repertoire & "\" & "ADOsource.xls"
  Set rs = cnn.Execute("[A1:C4]")
  Tbl = rs.GetRows ' tableau à 2 dimensions on ne récupère pas la première ligne
  MsgBox Tbl(0, 0)
  MsgBox Tbl(0, 1)
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

JB