Prob VB

Question

j'ai un probleme avec mon programme

le voici

Private Sub rechercher_Click()

    msgsaisie = "Saisissez le nom"
    valeur = InputBox(msgsaisie, "C'est la saisie")
    msgreponse = "Vous avez tapé " & valeur
    reponse = MsgBox(msgreponse, Style, "Donc")
    ActiveDocument.MailMerge.DataSource.QueryString = _
        "SELECT * FROM C:\WINDOWS\Bureau\projet\LISTE EVAT.xls WHERE ((nom = valeur))" _
        & ""
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=True
    End With
  
End Sub

il faudrait que dans mon where dans la requete SQL, je puisse lire la valuer que je rentre au début
en fait, c'est a aprtir d'un fichier word, que j'ai fais un publipostage, et il me faudrait juste le nom d'une personne et pas tous

merci de me dire comment on fait

nhervagault · Answer

"SELECT * FROM C:\WINDOWS\Bureau\projet\LISTE EVAT.xls WHERE ((nom = " & une varaiable que tu remplis &"))" _

peux tu etre que ca marche

crenaud76 · Answer

Mais comme le chp "nom" est de format texte, il faut mettre la valeur entre simple quote : 

SELECT * FROM C:\WINDOWS\Bureau\projet\LISTE EVAT.xls WHERE ((nom = '" & une varaiable que tu remplis &"'))"
Christophe R.

Prob VB

2 réponses

Discussions similaires