Bonjour à tous,

J'ai besoin de récupérer des données sur un classeur fermé, j'ai donc utilisé la macro que vous avez mis en ligne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub TestConnection_V1() 
Dim Cn As ADODB.Connection 
Dim Fichier As String 
'Définit le classeur fermé servant de base de données 
Fichier = "C:\..." 
Set Cn = New ADODB.Connection 
'--- Connexion --- 
With Cn 
.Provider = "Microsoft.Jet.OLEDB.4.0" 
.ConnectionString = "Data Source=" & Fichier & _ 
";Extended Properties=Excel 8.0;" 
.Open 
End With 
' 
'... la requête ... 
' 
'--- Fermeture connexion --- 
Cn.Close 
Set Cn = Nothing 
End Sub
Ensuite au niveau de la requête, je souhaite récupérer les données et les incorporer dans mon nouveau classeur.
Exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
  'Je souhaite mettre en B2 la valeur située dans nomclasseurfermé.xls/Feuil1/A2
Range("B2").Value = "...?"
Une idée sur la syntaxe?