Variable texte

Bonjour à tous, j'ai poser ma question il y a quelques jours, les réponses m'ont permis d'évoluer, merci à tous, je vous joins le code qui fonctionne avec une variable numérique, mais pas moyen avec une variable de type texte, si vous avez une idée sur la syntaxe je suis preneur:

Private Sub CommandButton1_Click()
    Columns("A:A").Select
    Selection.ClearContents
 Dim lenom As Variant
lenom = Sheets("PAGE").Range("f1")

 With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=MEDIANE;UID=sa;;APP=Microsoft Office 2003;WSID=TSE5;DATABASE=MEDIANE" _
        , Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT BIDE.IDNOM " & Chr(13) & "" & Chr(10) & "FROM MEDIANE.dbo.BIDE BIDE" & Chr(13) & "" & Chr(10) & "WHERE (BIDE.IDCLEUNIK=" & lenom & ")" _
        )
        .Name = "Lancer la requête à partir de MEDIANE"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Merci d'avance

Gil

bonjour

les données texte à rechercher doivent être encadrées par des quotes.

par exemple:

='" & lenom & "')"

bon week end

michel