Requete SQL en VBA avec Excel

odoobe Messages postés 3 Statut Membre -  
odoobe Messages postés 3 Statut Membre -
Bonjour,

Je voudrais récupérer la valeur d'une table MySQL dans une cellule excel

exemple:

Table MySQL : prenom

Id_Prenom Prenom

1 Pierre
2 Jean
3 Jacques

Dans la cellule "A1" je tape Id_Prenom => 2
et je reçois la valeur "Jean" dans la cellule "A2"

je voudrais pouvoir faire ça en VBA et si possible sans devoir passer par un formulaire
mais plutot exécuter la requette quand je sors de "A1" (fleche ou enter)

grand merci d'avance pour votre aide

Olivier

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Avez-vous un code de connexion ???

    code a adapter et a mettre dans VBA de la feuille de A1 

    'detection changement de valeur A1
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        strSQL = "SELECT * FROM prenom WHERE id ='" & Range("A1") & "'"
        
        'envoi requete SQL
        
        'retour: au moins une info
        If Not (nom_du_recordset.BOF = True And nom_du_recordset.EOF = True) Then
            Range("A2") = nom_du_recordset.Fields(" Prenom ").Value
        Else
            MsgBox "Pas de Prénom trouvé !!!!!!"
        End If
    End If
End Sub


    A+
    1
  2. odoobe Messages postés 3 Statut Membre
     
    merci pour ton aide
    c'est exactement ce qu'il me fallait

    @+

    Oli
    0