DialogBox

[roubech]

Bonjour,

Je n'ai jamais programmé d'événement sur le Drag & Drop, mais sachant que ça existe dans l'agenda, je serai tenté d'aller voir le code de ce côté pour s'en inspirer
La vue Calendar fait appel à un objet CalendarViewBroker définit dans la bibliothèque CSUIViewClass_fr-FR

On voit qu'ils passent par l'objet Source de type NotesUIView pour récupérer le doc sélectionné
[syntax="LotusScript"]Sub ViewDragPasteHandler(source As NotesUIView, Byval bDrag As Integer)

...
Set collection = source.documents

' if they are trying to drag and drop more than 1 document - stop
If (collection.count > 1) And (bDrag = True) Then
Msgbox "Impossible de glisser-déplacer plusieurs documents à la fois pour la replanification.",,"Erreur"
Goto CancelOp
End If

Set note = collection.getfirstdocument

If (note Is Nothing) Then Exit Sub
...[/syntax]

[Michael DELIQUE]

salut

il faut activer le debuger pour voir chaque objet et son contenu

rajoute un test de se genre avant la ligne qui plante

Code : Tout sélectionner

if collection is nothing then
msgbox "selectioné un doc"
exit sub
elseif collection.count = 0 then
msgbox "selectioné un doc"
exit sub

end if

[steph1708]

Bonjour

C'est à nouveau moi, mais cette fois c'est pour vous dire que ça fonctionne.
C'était bien le source.documents qu'il fallait utiliser. Pourtant j'avais regardé dans le script de l'agenda, mais étant novice en LotusScript j'ai dû mal regardé.
En tout cas merci beaucoup pour votre aide à tous

RESOLU