Bonjour à tous
Mon cahier des charges :
- à l'ouverture d'une feuille calc un msgbox demande si on veut remplir
un formulaire de renseignement (oui/non)
- si oui on déclenche l'ouverture d'une boite de dialogue (dialogue1)
- si non on va sur la feuille NOTICE
J'ai un bug à l'ouverture de la boite de dialogue.
Action non supportée, appel de procédure incorrect
Sur la ligne : dlg=CreateUnoDialog(mondialogue)
Par contre quand je lance la boite de dialogue (même macro Dialogue1)
via un bouton ça marche !!!
Je ne vois pas d'où ça vient.
Merci pour vos lumières.
PS : j'ai pourtant ouverte devant moi la Bible Marcelly/Godard
Le code :
Procédure à l'ouverture:
Sub ouverture
texte="Voulez-vous renseigner l'exo 4 ?"
ttype=4
titre="RENSEIGNEMENTS"
r=msgbox(texte,ttype,titre)
select case r
case 6 : onglet("exo4"):dialogue1
case 7 : onglet("NOTICE")
end select
End Sub
Procédure pour la boîte de dialogue :
Sub DIALOGUE1
DIM dlg AS OBJECT
dim bibli as object
dim mondialogue as object
dim monclasseur,lafeuille
monclasseur = ThisComponent
lafeuille=monclasseur.Sheets.getByName ("exo4")
bibli=DialogLibraries.GetByName("Standard")
mondialogue=bibli.GetByName("Dialog1")
dlg=CreateUnoDialog(mondialogue) ' <------ C'EST LA QU'IL COINCE
if dlg.execute=1 then
N=dlg.GetControl("NOM").text
P=dlg.GetControl("PRENOM").text
C=dlg.GetControl("COMMUNE").text
effacerCellules("exo4", "C14:C16")
end if
dlg.dispose
lafeuille.getCellRangeByName("C14").setString(N)
lafeuille.getCellRangeByName("C15").setString(P)
lafeuille.getCellRangeByName("C16").setString(C)
End Sub
-------------
Pascal PIERRE
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
