[Résolu] [Basic] Changer une donnée utilisateur

[kikibelux]

Bonjour

j'espère ne pas me tromper de section:
J'aimerais créer une macro (activable par un bouton) qui change la variable user_title.

Serait-ce possible ?

Merci d'avance pour vos pistes

[Don Corleone]

Bonjour,



Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?

Lisez ce fil pour savoir quelle balise utiliser : http://user.services.openoffice.org/fr/ ... html#27295

N'oubliez pas que le terme "Macro" ou "OpenOffice" ne doit pas être employé car il est implicite. Essayer de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Si cela n'est pas fait avant votre prochain intervention, le présente fil sera verrouillé.

Merci de votre collaboration.

[Grenouille]

Bonsoir,

J'aimerais créer une macro (activable par un bouton) qui change la variable user_title.

user_title traduit en français me donne titre_utilisateur
Je ne vois pas dans OOo où se trouve cette information. Menu ? Option ? Champ ?

A+

[kikibelux]

Merci grenouille de te préocuper de mon sort :

user_title est une donnée utilisateur enregitrée depuis la case >outil>option>donnée utilisateur>titre.

J'ai tenté par "enregistrement de macro", mais les modifications n'apparaissent pas

Merci d'avance pour tes idées

[Alain de La Chaume]

Bonsoir,

Merci d'avance pour tes idées

Ah... si c'est payé d'avance, alors...
En voici une, brute de pomme, sans emballage, plus qu'à mettre en paquet avec une jolie ficelle

Code : Tout sélectionner

sub main()
	userDataModif("title", "Ma Pomme")
end sub

'---------------------------------------------------------------------
' Modifier une valeur du registre
'---------------------------------------------------------------------
'$dep$ acRegistreCle
'---------------------------------------------------------------------
sub userDataModif(sNom as string, sValeur as string)
dim obj as object, obj2 as object, nomCle as string

	nomCle = "/org.openoffice.UserProfile/Data"
	obj = acRegistreCle(nomCle, true)
	if obj.hasByName(sNom) then
		obj.setPropertyValue(sNom, sValeur)
		obj.commitChanges
	end if
end sub

'---------------------------------------------------------------------
' Origine : Macros de LibreOffice, 
' lib. Tools, mod. Misc, Function GetRegistryKeyContent
'---------------------------------------------------------------------
function acRegistreCle(sCle as string, _
							optional bChange as boolean) as object
dim oConf as object, sp as string
const SERVICE = "com.sun.star.configuration.ConfigurationProvider"
dim tArgs(0) as new com.sun.star.beans.PropertyValue

	sCle = trim(sCle)	
	tArgs(0).Name = "nodepath"
	tArgs(0).Value = sCle
	
	if isMissing(bChange) then bChange = false
	if bChange then
		sp = "com.sun.star.configuration.ConfigurationUpdateAccess"
	else
		sp = "com.sun.star.configuration.ConfigurationAccess"
	end if
	oConf = createUnoService(SERVICE)
	on error resume next
	acRegistreCle() = oConf.createInstanceWithArguments(sp, tArgs())
	on error goto 0			
end function

En espérant que ça fonctionne aussi sous OOo 330 (?)
Bien cordialement,
Alain

[Dude]

Salut,

Comme d'habitude, il faut faire une recherche avant de poster.

Avec "donnée +utilisateur +outils +options", on trouve : http://user.services.openoffice.org/fr/ ... ls+options

[kikibelux]

2X Merci Dude,
pour avoir répondu qu'il ya vait un outil de recherche, pas facile si on met un pluriels à données....( c'est souvent le problème des forums, dans le monde des sciences avant que l'ibnternet n'envahisse tout, on avait des tables de mots clés pour les recherches et pour l'encodage, serait-ce une piste....)
Un autre merci pour les mots à devoir chercher.

je teste cela ce w-end et je viens clôturer le post

[kikibelux]

et bien cela fonctionne : MERCI à tous.

Pensais vous qu'il serait interessant à la communauté de vous montrer ce que 'ai " réaliser" avec peu de connaissance en programmation ?

Ce que j'ai fait, en tant qu'enseignant, c'est juste un suite de mini macro me permettant de créer en un seul document une version prof d'un texte et une version à trous pour les élèves.

Dans la positive, je partagerai.

[Dude]

Pensais vous qu'il serait interessant à la communauté de vous montrer

La réponse est dans ta question. Ce forum est un espace d'entraide où toute contribution est la bienvenue.

Poste ton document dans la section Projets en indiquant un minimum d'information quant au fonctionnement (copie écran par exemple).