[Résolu] [Calc] Fenêtre de dialogue avec plusieurs boutons de validation

[maclode1950]

Bonjour,

Dans le cadre d'un projet je demande à l'utilisateur de choisir un document. Jusque là tout va bien, je le fais en utilisant

Code : Tout sélectionner

Application.FileDialog(msoFileDialogFilePicker).Show

L'individu choisit ainsi son fichier.
Sauf qu'ensuite, j'aimerai pouvoir proposer une seconde fenêtre qui demande à l'individu de choisir le type de document qu'il a sélectionné : est-ce, par exemple, fichier personnel, un fichier collectif, ou un fichier sensible.
Donc je m'oriente vers une boîte de dialogue type menu déroulant ou alors une fenêtre qui apparaitrait avec 3 boutons pour choisir le type de document.
En fonction du type de fichier choisi, il faudra que je renomme ce fichier en f_perso, f_coll, f_sensible.

Bon là où je bloque actuellement c'est surtout sur cette fenêtre avec le menu déroulant / fenêtre à boutons

Avez-vous une idée ?

Merci

[Dude]

Salut,

Le code que tu exposes n'est pas du Basic.
Donc, tu viens de poster la question qui tue.

L'individu choisit ainsi son fichier.

Tout cela se règle avec le service FilePicker.
Tu constateras que la question est passée plusieurs fois sur ce forum depuis plus de 15 ans.

[maclode1950]

Merci, mais je n'ai pas de problème pour faire choisir le fichier, tout fonctionne bien de ce côté mais c'est pour afficher ensuite une fenêtre avec plusieurs boutons, je m'essaie sur les userform mais sans succès.
Là je viens de créer une userform tout simple avec trois boutons mais comment la faire apparaitre dans mon programme ?

[Dude]

je m'essaie sur les userform mais sans succès

Ce terme est purement Microsoft et n'existe pas sous OpenOffice et ses dérivés.

Comme d'habitude plutôt qu'une seule ligne de code postée sans aucun contexte...

Comment joindre un fichier au format ODF
Pense également à dépersonnaliser le fichier joint.

[maclode1950]

Oui, en effet ça sera plus simple.

Le principe rapidement,
On choisit le nombre de document (cellule G14). Par exemple 1, puis on clique sur email.
Cela ouvre une fenêtre pour choisir le document et c'est juste après que j'aimerais faire apparaître cet "userform" où l'individu puisse choisir le type de fichier via 3 boutons (A,B et C pour faire simple). S'il choisit A alors le fichier choisi sera renommé en A ...

[Dude]

Ton exemple n'est pas fonctionnel en l'état.
Il fait appel à une application Microsoft Outlook via l'automation (CreateObject).

Code : Tout sélectionner

Sub Email

Dim Outlook_App As Object
Dim msg As Object

Dim sign, pj As String
Dim i As Integer
Dim oDoc As Object 
Set Outlook_App = CreateObject("Outlook.Application")
set oDoc = ThisComponent 
Dim sh As Worksheet
Set sh = activesheet
 
    Set msg = Outlook_App.CreateItem(0)

Si tu t'obstines à vouloir faire du VBA alors forcément, tu vas te retrouver devant moult obstacles de ce type.
L'envoi par courriel est documenté dans un suprême de code.

Je t'ai dit d'utiliser le service FilePicker et je vois que ton code ne l'utilise pas.

[maclode1950]

Bon je vais remodeler tout ça alors.
Merci pour le conseil.

[Dude]

Comme toujours, il faut simplifier le document en se concentrant sur la seule problématique.
Ton problème ressemble étrangement à ce vieux suprême : viewtopic.php?f=15&t=6364

Voici un exemple qui lance un dialogue et affiche le bouton qui a été cliqué.

Code : Tout sélectionner

Global sMoi$, oDlg as object

Sub OuvreDialogue
	sMoi = "aucun bouton"
	cOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
	DialogLibraries.Loadlibrary("Standard")
	oBib = DialogLibraries.GetByName("Standard")
	zDlg = oBib.GetByName("Dialog1") 
	oDlg = CreateUnoDialog(zDlg)
	if oDlg.Execute = cOK then
		'Action à faire à la fermeture du dialogue
	endif

End Sub

Sub ClicBouton(oEvt)
	oSource = oEvt.Source
	oModel = oSource.getModel()
	sMoi = oModel.Label
	msgbox "Bouton reçu > " & sMoi
	oDlg.endExecute
End sub

[maclode1950]

Merci pour cette aide !