Discussion :

[noname_971]

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.

[SilkyRoad]

bonsoir

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

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


michel

[noname_971]

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

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

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

[Nom Colonne] = "'Toto'"

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

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



michel

[noname_971]

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 :

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

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'")) "

[cafeine]

Hello,

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

ce sera mieux comme ça ...

Code :

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

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 =

[noname_971]

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 :

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

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'")

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

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

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 (&)