Requete SQL en VBA avec Excel

odoobe -  
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

  • Votes
  • Date
  • Date décroissante
  1. f894009
    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. odoobe Auteur
      merci pour ton aide
      c'est exactement ce qu'il me fallait

      @+

      Oli