Requête SQL Access dans VBA Excel

bonjour j'aimerai faire une requête simple en tapent directement la requête qui dépend de variable pour éviter d'avoir à créer plein de requête dans ma BD Access.

la ligne qui je pense pose problem est :

query = "SELECT * FROM [N°FT] WHERE ((([N°FT].PHASE)= Req));

'Creating objects of Connection and Recordset
    Dim conn As New Connection, rec As New Recordset
    Dim DBPATH, PRVD, connString, query As String

    Dim Req, COLONNE As String

    Req = "DEBIT"
    COLONNE = "N°FT"

    'Declaring fully qualified name of database. Change it with your database's location and name.
    DBPATH = "S:\utilisateurs\METHODES\Projet FT\Database_FT.accdb"

    'This is the connection provider. Remember this for your interview.
    PRVD = "Microsoft.ace.OLEDB.12.0;"

    'This is the connection string that you will require when opening the the connection.
    connString = "Provider=" & PRVD & "Data Source=" & DBPATH

    'opening the connection
    conn.Open connString

    'the query I want to run on the database.
    query = "SELECT * FROM [N°FT] WHERE ((([N°FT].PHASE)= Req));"

    'running the query on the open connection. It will get all the data in the rec object.
    rec.Open query, conn

    'clearing the content of the cells
    Cells.ClearContents

    'getting data from the recordset if any and printing it in column A of excel sheet.
    If (rec.RecordCount <> 0) Then
        Do While Not rec.EOF
            Range("A" & Cells(Rows.Count, 1).End(xlUp).Row).Offset(0, 0).Value2 = _
            rec.Fields(COLONNE).Value
            rec.MoveNext
        Loop
    End If

    'closing the connections
    rec.Close
    conn.Close

pouvez vous me débloquer

j'ai oublié de mettre le message d'erreur

Bonjour

Avec 365 pourquoi n'utilises-tu pas PowerQuery plutôt que VBA ?

parce que j'ai pas envie de dumper mes données sur une feuille et que le valeur obtenus sont utilisé comme variable

RE

Autre méthode http://www.excel-formations.fr/Trucs_astuces/ACCESS01.php

Bonjour,

Essaie de remplacer

query = "SELECT * FROM [N°FT] WHERE ((([N°FT].PHASE)= Req));

par

query = "SELECT * FROM [N°FT] WHERE [N°FT].PHASE = '" & Req & "'"

Une remarque

Fais gaffe parce que ton code

Ton code
If (rec.RecordCount <> 0) Then
        Do While Not rec.EOF
            Range("A" & Cells(Rows.Count, 1).End(xlUp).Row).Offset(0, 0).Value2 = _
            rec.Fields(COLONNE).Value
            rec.MoveNext
        Loop
    End If

ecrit toujours dans la meme cellule

Cdlt