Bonjour

J'ai suivi le tutoriel et adapté or il y a un élément que je ne comprends pas.
Je n'arrive pas à indiquer en plus du nom de la feuille, la référence de la cellule dont je veux lire le contenu. La syntaxe est erronée (selon Excel)..

Merci pour votre aide

voici le code..
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
21
22
23
 
 
Sub Requete()
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Fichier = "C:\Classeur1.xls"
    NomFeuille = "Feuil1"
    Cellule = "C4"
    Set Cn = createobject("ADODB.Connection")
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    texte_SQL = "SELECT * FROM [" & NomFeuille & Cellule & "$]"
    Set Rst = createobject("ADODB.Recordset")
    Set Rst = Cn.Execute(texte_SQL)
    Range("A2").CopyFromRecordset Rst
    Cn.Close
    Set Cn = Nothing
 
End Sub