Bonjour
j'ai une erreur sur la ligne du message
"Une exception s'est produite :
Type: com.sun.star.container.NoSuchElementException
Message:."
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 sub date_modifiee Dim oDoc As Object oDoc = ThisComponent Dim oForm As Object oForm = oDoc.DrawPage.Forms.getByIndex(0) ' Suppose que vous travaillez avec le premier formulaire Dim oChamp As Object msgbox oForm.getByName("Dates").Text end sub







Répondre avec citation





Partager