Discussion :

[vlv35]

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 ...)

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
 
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

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

[Oliv-]

Salut,
J'ai pas de solution mais cherche sur google
_OLEDragDrop file

[vlv35]

Ca ne fonctionne pas avec _OLEDragDrop, la fenêtre n'autorise pas le DragDrop ...