Modifier la forme dans adresse facturation

[MILLET]

Bonjour

Actuellement, lorsque l'on sélectionne un client dans la base de donnée l'adresse de facturation s'inscrit sous la forme :

Raison sociale
NOM Prénom
Adresse
Code Postal VILLE

Je souhaiterais voir apparaitre l'adresse de facturation sous la forme :

Raison sociale
Titre Prénom NOM
Adresse
Code Postal VILLE

Pour le moment, j'ai trouvé un artifice pour solutionner mon problème qui consiste à :
Dans le formulaire client de la base de donnée, au niveau du NOM, je saisi le titre suivi du prénom et au niveau du Prénom, je saisi le NOM.
Cette solution ne me satisfait pas pleinement. Comment faire pour organiser l'adresse automatiquement comme je le souhaite de façon systématique

Merci

[Nicolas]

Hello
Pour modifier la présentation du client, il te faut modifier la macro "Sub InscrireAdresse" dans le module AppelBase.
Rajoutes cette ligne aprés les déclarations de variables:

Code : Tout sélectionner

Sub InscrireAdresse
Dim leNom as String
Dim monForm as Object
Dim maListe as Object, maColonne as Object
Dim leNomClient as String
Dim maRSociale as String
Dim monNom as String, monPrenom as String
Dim monAd1 as String, monAd2 as String
Dim monCP as String, maVille as String, monPays as String
Dim ligne as Integer, col as Integer, maCellule As Object
Dim monTitre as String '<-- La variable qui récupèrera le titre

Puis rajoutes cette ligne :

Code : Tout sélectionner

 		If resuQuery.next Then
 			maRSociale = resuQuery.Columns.getByName("RaisonSociale").string
 			monTitre = resuQuery.Columns.getByName("Titre").string'<-- Ligne à rajouter pour obtenir le titre
 			monNom = resuQuery.Columns.getByName("Nom").string

Et enfin remplaces cette ligne par celle-ci:

Code : Tout sélectionner

 			If monNom <> "" Then
 				'maFacture.getCellByPosition(col, ligne).setString(monNom & " " & monPrenom)
 				 maFacture.getCellByPosition(col, ligne).setString(montitre & " " & monPrenom & " " & monNom)
 				 '<-- Ligne à rajouter pour inscrire le Titre, prénom et Nom dans l'ordre voulu 
 				ligne = ligne + 1
 			End If

Et enfin pour accéder au module AppelBase, Depuis le menu Outils, sélectionnes:
Macro - Gérer les MAcros - OpenOffice.org Basic
Une fenêtre s'ouvre, places toi sur
FactOOor.ods - Standard - AppelBase,
dans la fenêtre de droite sélectionnes InscrireAdresse Puis cliques sur Editer

@+
Nicolas.