Discussion :

[HankMoody]

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?

[kiki29]

Salut, à lire.

[HankMoody]

Merci!