Discussion :

[mlww]

Je désires faire un drag and drop d'un fichier depuis l’explorer Windows vers mon formulaire access
si possible vers une liste comprenant 2 colonnes ou plus
le but étant d'extraire du fichier dropper:
1ere colonne: le nom du fichier et extension
2éme Colonne: le chemin d’accès complet

et ainsi de suite ajouter des fichiers à la liste
ou alors sélectionner plusieurs fichier en même temps

merci de votre aide

[ClaudeLELOUP]

Bonjour,

Pas avec un glisser/déposer, mais ça y ressemble avec une boîte de dialogue :

- dans la FAQ : http://access.developpez.com/faq/?pa...#AffBoitDialog
(tu copies/colles le code dans un module).

- un peu de code pour un bouton dans un formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Compare Database
Option Explicit
 
Private Sub BtAjouter_Click()
 Dim CheminComplet As String
 Dim NomEtExtension As String
 Dim oReq As DAO.QueryDef
 Dim tableau() As String
 'Choix du fichier
 CheminComplet = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1)
 'Split du chemin complet, le nom du fichier est dans la dernière case du tableau
 tableau = Split(CheminComplet, "\")
 NomEtExtension = tableau(UBound(tableau))
 'Ajout dans la table
 Set oReq = CurrentDb.QueryDefs("rAjouter")
 oReq.Parameters("CheminComplet") = CheminComplet
 oReq.Parameters("NomEtExtension") = NomEtExtension
 oReq.Execute
End Sub

Une requête :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
PARAMETERS [NomEtExtension] Text ( 255 ), [CheminComplet] Text ( 255 );
INSERT INTO tLaTabeDesFichiers ( NomEtExtension, CheminComplet )
SELECT [NomEtExtension] AS Expr1, [CheminComplet] AS Expr2;

Exemple en pièce jointe.

[mlww]

Merci de ta repose,
mais je cherche à développer le glisser déposer

bonne journée