Consolidation via un fichier source.

Re : Consolidation via un fichier source.

Bon personne n'a été très intéressé par mon poste. sniiif

Peut-être si je développe un peux. J'ai réussi à récupérer des informations d'un classeur fermé via la méthode ADO. En revanche, la macro ne me prends que les données en string et pas les valeurs numériques. Je me suis peut être trompté lorsque je déclaré les variables
Ci dessous la macro. Vous en pensez quoi ?

Sub ouvrir()
Dim Cn As ADODB.Connection
Dim fichier As String
fichier = Application.GetOpenFilename
Dim feuil As String
Dim txtsql As String
Dim val As Range
Dim rst As ADODB.Recordset
feuil = "B01"
Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & fichier & ";Extended Properties=Excel 8.0;"
.Open
End With

txtsql = "SELECT*FROM[" & feuil & "$]"

Set rst = New ADODB.Recordset
Set rst = Cn.Execute(txtsql)

Range("A2").CopyFromRecordset rst
Cn.Close
Set Cn = Nothing
End Sub

Merci d'avance