Discussion :

[atlanticmac]

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

[78chris]

Bonjour

Je n'ai pas lu tutoriel en entier, mais je ne crois qu'il faudrait définir cellule en "C4:C4".

[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

[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

[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

[rvtoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[atlanticmac]

Merci je vais essayer

[atlanticmac]

la solution

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
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