Sujet Précédent Sujet Suivant

Requete SQL en VBA avec Excel

Fermé
odoobe Messages postés 3 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 17 juillet 2013 - 5 juil. 2013 à 15:28
odoobe Messages postés 3 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 17 juillet 2013 - 8 juil. 2013 à 07:26
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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
6 juil. 2013 à 12:43
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
Réponse 2 / 2
odoobe Messages postés 3 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 17 juillet 2013
8 juil. 2013 à 07:26
merci pour ton aide
c'est exactement ce qu'il me fallait

@+

Oli
0

Discussions similaires

programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses