Deposer Glisser - Drag & Drop - Joindre doc

mais si je trouve autre chose, je te fais signe!

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