requete avec parametre access-excel

Version imprimable

Bonjour
j´ai un userform , dans lequel il y a une liste de nom qui s´affiche dans une listbox.Les noms viennent d´une requete dans une data base access.J´aimerai qu´a la selection d´un nom (avec un double click ) que les données relient a ce nom soit afficher sur la feuille excel.
voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 '''''''' Set rec = db.OpenRecordset("select * from user ", DAO.dbOpenSnapshot) If Not (rec.EOF) Then name = rec.Fields(1).Value End If Set rec = db.OpenRecordset("select * from user where name =" & name, DAO.dbOpenSnapshot) If Not (rec.EOF) Then Tabelle1.Range("c3") = rec.Fields(1).Value Tabelle1.Range("c4") = rec.Fields(2).Value Tabelle1.Range("c5") = rec.Fields(3).Value End If
merci

Hello,

il faut donc gérer l'événement double-clic de ton classeur :
(code exemple non testé)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
dim ASName as String
dim ASh as Worksheet
 
if target & "" <> "" then
        Sheets.Add , ActiveSheet
        ASName = "Detail_" & Target
        Set rec = db.OpenRecordset("select * from user where name ='" & target & "'", DAO.dbOpenSnapshot)
        Set ASh = ActiveSheet
         ASh.name = ASName
          If Not (rec.EOF) Then
            Ash.Range("c3") = rec.Fields(1).Value
            Ash.Range("c4") = rec.Fields(2).Value
            Ash.Range("c5") = rec.Fields(3).Value
          End If
end if
 
Set ASh = Nothing
End Sub

12/02/2008, 14h33
jokenjo

Hi ,
merci pour ce code qui marche tres bien, mais mes nom ne sont pas sur la feuille ,mais plutot sur dans une listbox ces de la ou je dois clicle sur le nom , qui sera afficher sur la feuille excel avec ces parametre..
merci