none
Userform - glisser-déposer de fichier dans une listbox RRS feed

  • Question

  • Bonjour,

    Je suis en train de réaliser une macro à travers un Userform afin de générer automatiquement un message avec pièces-jointes.
    Le principe est de glisser les fichiers à joindre dans une listbox qui récupère les liens.

    Pour le glisser/déposer de texte, ça marche bien avec le code suivant (récupéré sur le net donc je ne maitrise pas forcément ...)

    Mon problème c'est que ça ne marche pas pour les fichiers ...
    Je pense que "GetText" n'est pas approprié dans mon cas mais je ne sais pas par quoi le remplacer ...

    Je suis preneur de la moindre idée !!

    Merci d'avance

    Vincent

    Private Sub ListBox1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, _ ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal y As Single, _ ByVal DragState As Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer) Cancel = True Effect = 1 End Sub Private Sub ListBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _ ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, _ ByVal X As Single, ByVal y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer) Cancel = True Effect = 1 ListBox1.AddItem Data.GetText End Sub

    jeudi 23 octobre 2014 07:15