Récupérer le contenu d'une cellule Excel via le SQL

Version imprimable

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:

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

16/07/2013, 18h55
78chris

Bonjour

Je n'ai pas lu tutoriel en entier, mais je ne crois qu'il faudrait définir cellule en "C4:C4".
16/07/2013, 19h07
atlanticmac

Merci

le tutoriel ne mentionne pas la récupération d'une cellule mais de toute la feuille. J'ai ajouté (logiquement) la référence à une cellule, ce qui n'a pas marché, mais je vais essayer votre idée.

edit : j'ai essayé mais ça ne retourne ni erreur ni donnée : c'est vide :(
16/07/2013, 20h49
78chris

Bonjour

Si je regarde le tutoriel http://silkyroad.developpez.com/VBA/ClasseursFermes/ il y a un code intitulé "Vous pouvez également lire une cellule spécifique, ou une plage de cellules, en utilisant la méthode ADO."

Regarde ce code
17/07/2013, 05h18
atlanticmac

oui, j'avais commencé par cette méthode ADO or elle ne fonctionne pas sur mon poste (je ne sais pourquoi) aussi je suis resté sur l'ancienne méthode.

Depuis j'ai une piste : mettre : Cellule = "C4:C5" marcherait mieux

Bonjour,
dans le lien donné par 78chris il y a une possibilité sans ADO, c'est l'utilisation des macros excel4.
le code ci-dessous va Lire la cellule C4 de la Feuil1 du classeur nommé Classeur1.xls et mettre le résultat dans une variable.
le msgbox affiche le contenu de la variable.
Code:

1 2 3 4 5 Sub test() 'Lecture et écriture dans une variable de la cellule C4 de la Feuil1 du classeur fermé Classeur1 mavariable = ExecuteExcel4Macro("'C:\[Classeur1.xls]Feuil1'!R4C3") MsgBox mavariable End Sub
Attention l'adresse de la cellule est du type R1C1. Si tu mets directement "C4" il ne retournera pas la bonne info

17/07/2013, 07h34
atlanticmac

Merci je vais essayer

la solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Requete()
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Fichier = "C:\Classeur1.xls"
    NomFeuille = "Feuil1"
    Cellule = "C4:C5" (sinon ça ne retourne rien)
    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