Discussion :

[Mr Gue]

Bonjour à tous,

Voilà mon souci:
Sur une feuille de planning, je souhaite que les utilisateurs soient "obligés" de renseigner leur nom dans une case du tableur, avec un message d'avertissement, en cas d'oubli de leur part.

J'ai réussi à le faire sur Excel avec ces quelques lignes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Sheets("Formulaire de dispo").Range("AD6").Value = "-" Then
    MsgBox "Indiquez votre nom et prénom puis sauvegardez à nouveau SVP :)"
    Cancel = True
  End If
End Sub

Pouvez-vous me proposer une solution équivalente pour mon formulaire sur LibreOffice s'il vous plait, car certain de mes collègues sont "tête en l'air" !

Merci et à bientôt j'espère.
Mr Gue

[zoom61]

Salut,

Avec quelque chose comme cela :

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
Sub fermer
 
	document = ThisComponent
	feuille =  document.GetSheets.GetByname("Formulaire de dispo")
	if feuille.GetCellRangeByName("AD6").string = "-" then
		MsgBox "Indiquez votre nom et prénom puis sauvegardez à nouveau SVP :)"
		exit sub
		else	
		Msgbox("Le fichier sera sauvegardé, OpenOffice sera fermé")
		If (HasUnoInterfaces(document,"com.sun.star.util.XCloseable") = TRUE) Then
			document.Store()
			document.Close(TRUE)
		End If
	end if
End Sub

@+.

[Mr Gue]

Merci zoom61,

En modifiant légèrement le code et en le glissant sournoisement à l'intérieur des macros de mon tableur, j'arrive à rejoindre ,grâce à vous, mon idée de départ

Mais, à moins de créer un bouton "Fermer" sur mon formulaire et d'y affecter cette macro, je n'ai pas d'autre moyen d'exploiter votre formule n'est-ce pas ?
De plus, j'imagine que si l'utilisateur pense à cliquer sur ce bouton, il est capable de penser à renseigner son identité tout seul...
Et si par malheur, les Macros sont désactivé à l'ouverture....

Ce que je souhaiterais exactement, c'est que lorsque la personne (après avoir sauvegardé les modifications qu'elle a apporté au formulaire) décide de fermer la fenêtre du tableur, LibreOffice lui informe qu'il n'a pas renseigné son identité par un petit message.
Ainsi la personne corrige son erreur, re-sauvegarde ses modifications et peut fermer la fenêtre.

Au départ (sur Excel), ce message intervenait au moment où l'utilisateur sauvegardait ses modifications. Mais cela ne m'arrange pas et je préfère donc que le message intervienne à la fermeture ( c'est ce que décrivent les lignes de code que j'ai copié/coller, vous l'avez bien compris).

Mais comme je vous l'ai dit, j'ai glissé votre formule derrière des boutons qui sont forcément utilisé pour remplir le formulaire.
Les utilisateurs seront donc prévenu s'ils oublient de noter leur identité.

Dans la mesure du possible si je pouvais revenir à ma première idée, ce serait vraiment génial

Sinon, merci quand même
@+

[zoom61]

Il te suffit d'affecter la macro à l'événement "Fermer l'application", qui se trouve dans "Outils/Personnaliser" et dans l'onglet "Evénements".
Tu lui affectes la macro qui doit être contenu dans "Mes Macros" ou "Macros LibreOffice".

Attention, car cela sera valable pour toutes les fichiers Tableur !!!

@+.

[Mr Gue]

WoaaaaaOuuuuuu !
Toutes ces possibilités qui s'offrent à moi maintenant....
C'est fantastique !

J'ai enregistré toutes mes macros dans la bibliothèque propre au formulaire, donc elles suivent le document sur d'autres ordinateurs.

Ben voilà, mon souci et complètement résolu
MERCI beaucoup zoom61 pour ton aide rapide, efficace et enrichissante !
J'espère que cette discussion sera utile à d'autres.

Bravo.
Bonne continuation.
A bientôt.


Mr Gue