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