[Toutes versions] Drag & Drop Fichier de Windows à un Formulaire

[Many31]

Bonjour,

Voila depuis plusieurs mois j'ai essayé de trouver des méthodes de Drag & Drop d'un fichier depuis Windows vers un objet sur un Userform Excel... Sans résultat (rien trouvé ici ou ailleurs d'exploitable.. juste du drag & drop dans un même Userform)
Mais ce n'est pas la question que je pose car depuis j'ai trouvé et comme je me doute que certaines personnes peuvent en avoir besoin je suis venu partager cette solution qui utilise l'objet Treeview (et imagelist mais c'est juste pour le fun...)

Pour utiliser il suffit de créer un formulaire avec un treeview + une image list avec des images de 16x16 (dont les noms sont par exemple "FichierExcel" & "Autre") et de coller le code suivant... ensuite... enjoy

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Treeview1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim strPath As String
    strPath = Data.Files(1)
    LoadFilePath Me.TreeView1, strPath
End Sub
 
Public Sub LoadFilePath(myTreeView As TreeView, myPath As String)
Dim strName() As String
Dim strIcon As String
Set myTreeView.ImageList = ImageList1
    With myTreeView
        strName = Split(myPath, "\")
        Select Case LCase(Right(myPath, 4))
            Case ".xls"
                strIcon = "FichierExcel"
            Case Else
                strIcon = "Autre"
        End Select
        .Nodes.Add , , myPath, strName(UBound(strName)), strIcon, strIcon
    End With
End Sub

Ce code est simple mais ce n'est qu'un point de départ

La source initiale est de Nigel Heffernan

[patricktoulon]

bonjour

bien que le code soit interréssant

je ne vois pas trop l'utilité d'un drag and drop pour ouvrir un fichier

un double clic suffit

il serai interrésant par contre

de pouvoir récupérer les informations du fichier
voir meme incrementer un listbox ,une listview,combobox
et divers controls text pour d'autres informations

je te laisse cogiter la dessus


au plaisir

[patricktoulon]

rebonjour

c'est etonnant chez moi ca ne fonctionne pas

quand je glisse le fichier dans le treeview ou dans nimporte quel autres controls ca m'ouvre le fichier



y aurais t_il une reference a cocher dans le projet????

au plaisir

[Many31]

Bonjour,
Il faut passer la propriété OLEDropMode du treeview à 1.
Pour l'utilité de cette méthode cela reste un extrait. Dans mon projet j'ai réalisé un viewer utilisant un objet AcroPDF. L'utilisateur à un premier treeview dans lequel il choisi le projet qu'il souhait (le treeview permettant de hiérarchiser les différent projet par exemple d'un côté ceux en cours ceux fermés etc.) le pdf du projet s'affiche dans l'objet AcroPDF. Le pb c'est que je voulais que l'utilisateur puisse gérer facilement le ou les fichiers de chaque projet et un browseviewer c'est bien mais c'est lourd et fastidieux. La ça reste intuitif et très visuel. Beaucoup plus rapide qu'une fenêtre de recherche quand on à une centaine de projet et de 3 à 6 fichier par projet à gérer... Bref c'est l'idéal. Je n'ai pas vraiment regarde les propriété de Data qui peuvent être exploiter mis de tout manière le chemin d'accès est récupéré très simple à partir de la de récupérer toutes les propriété du fichier dropé. Il y à bcp de poste sur la récupération de ces pptes.
Un autre exemple d'utilisation est t'envoie de mail depuis excel.... Un ptit treeview pour ajouter les pièces jointes et le tour est joué.
Seul bémol le drag and drop depuis un mail par exemple ne marche pas...
Désolé pour l'orthographe j'écris avec mon tel

[patricktoulon]

bonsoir many


je reviens sur ce petit projet

ca ne fonctionne toujours pas chez moi
office 2007


au plaisir