récupération requête SQL excel

Version imprimable

25/02/2007, 22h04
noname_971

récupération requête SQL excel

Bonjour,

J'aimerai effectuer une requête SQL sur un tableau contenu dans une feuille excel et afficher el résultat de cette requête dans une autre feuille de mon classeur.

J'ai pensé à effecteur une connexion ADO et utiliser un recordset mais je ne sais pas quel provider utiliser et je n'ai trouver aucun tuto indiquant la procédure à suivre pour se connecter à une classeur excel.

Pourriez vous m'indiquer la procédure à suivre s'il vous plait.

Merci.
25/02/2007, 22h58
SilkyRoad

bonsoir

J'espère que ce lien pourra t'aider

http://silkyroad.developpez.com/VBA/ClasseursFermes/

michel
26/02/2007, 12h17
noname_971

pbs requête SQL

Merci pour cet excellent tuto, mais j'ai un petit soucis avec la requête SQL qui prend en compte plusieurs colonnes de mon tableau puis différents critères de ces colonnes :

SELECT * FROM [" & Feuille & "$] WHERE ((Colonne A = "Toto" Or Colonne A = "Tutu") AND (Colonne C = "Popo") AND (Colonne C = "Mimi" Or Colonne C = "Mome"))

Pouvez vous m'aidez s'il vous plait?

Merci
26/02/2007, 12h36
SilkyRoad

bonjour

"Colonne A" est un exemple ou le vrai nom du champ?
La gestion des espaces dans le nom des champs se fait en l'encadrant par des crochets [Nom Colonne]

et les chaînes doivent être encadrée par des quotes '

Code:

[Nom Colonne] = "'Toto'"

je te conseille la lecture préalable de ce cours:

ftp://ftp2.developpez.be/developps/v...sets%20ADO.pdf

michel

fin d'instruction attentdu

Bonjour,

J'ai créer une requête afin de récupérer des données sur mon tableau mais j'ai l'erreure "Attendu : fin d'instruction" avant le WHERE de ma reqête.
Pouvez vous m'aidez s'il vous plait car je ne vois pas d'où viens le pb.
Merci

Voici la requête :

Code:

1
2
3
4
5
6
7
8
9
    SQL = "SELECT * FROM [" & Feuille & "$] _
    WHERE (([Demande] = "'Modernisation *'" OR [Demande] = "'Enlèvement *'" OR [Demande] = "'TELEPHONE FIXE IP'" _
    [Demande] = "'Restitution*'" OR [Demande] = "'Dotation *'" OR [Demande] = "'POSTE *'" OR [Demande] = "'* PDA *'") _
    AND ([Tache en cours] = "'Validation Hiérarchique N+1'" OR [Tache en cours] = "'Validation Technico-Fonctionnelle'" _
    [Tache en cours] = "'Validation Budgetaire'" OR [Tache en cours] ) "'Validation Budgétaire'") _
    AND ([Site beneficiaire] = "'NOV'" OR [Site beneficiaire] = "'AJJ'" OR [Site beneficiaire] = "'EQV'" OR _
    [Site beneficiaire] = "'K22'" OR [Site beneficiaire] = "'PBK'" OR [Site beneficiaire] = "'QLG'" OR _
    [Site beneficiaire] = "'PDS'" OR [Site beneficiaire] = "'S44'" OR [Site beneficiaire] = "'S79'" OR _
    [Site beneficiaire] = "'Q10'" OR [Site beneficiaire] = "'SQY'" OR [Site beneficiaire] = "'TPZ'")) "

26/02/2007, 19h22
cafeine
Hello,

si c'est le code tel quel, il y a un gros problème

ce sera mieux comme ça ...
Code:

1 2 SQL = "SELECT * FROM [" & Feuille & "$] " & _ "WHERE (([Demande] = 'Modernisation *'" OR [Demande] = "'Enlèvement *'"
Ensuite les "*" sont des recherches génériques ou de vraies astérisques ?

si c'est générique, il faut utiliser Like et non pas =

Merci pour les renseignements mais j'ai toujours la mème erreur mais cette fois sur ma première parenthèse fermante.
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
    '... la requête ...
    Rst = "SELECT * FROM [" & Feuille & "$] " & _
    "WHERE([Demande] Like 'Modernisation *'" Or [Demande] Like "'Enlèvement *'" Or [Demande] = "'TELEPHONE FIXE IP'" Or _
    [Demande] Like "'Restitution*'" Or [Demande] Like "'Dotation *'" Or [Demande] Like "'POSTE *'" Or [Demande] Like "'* PDA *'") _
    And ([Tache en cours] = " 'Validation Hiérarchique N+1'" Or [Tache en cours] = "'Validation Technico-Fonctionnelle'" _
    Or [Tache en cours] = "'Validation Budgetaire'" Or [Tache en cours] = "'Validation Budgétaire'") _
    And ([Site beneficiaire] = "'NOV'" Or [Site beneficiaire] = "'AJJ'" Or [Site beneficiaire] = "'EQV'" _
    Or [Site beneficiaire] = "'K22'" Or [Site beneficiaire] = "'PBK'" Or [Site beneficiaire] = "'QLG'" _
    Or [Site beneficiaire] = "'PDS'" Or [Site beneficiaire] = "'S44'" Or [Site beneficiaire] = "'S79'" _
    Or [Site beneficiaire] = "'Q10'" Or [Site beneficiaire] = "'SQY'" Or [Site beneficiaire] = "'TPZ'")

27/02/2007, 11h44
cafeine

Bon, je ne vais pas te réécrire tout ton code (trop long).

Simplement tu mélanges le SQL et une chaine ...

essaie de faire un

Code:

Debug.Print SQL

et tu verras que c'est incompréhensible pour VBA.

Tout ton SQL doit être à l'intérieur d'une chaine, les variables sont sorties pour êtres évaluées et concaténées (&)