Macros : débutant [Résolu]

Bonjour,

Tu as deux solutions :
- soit tu crées un formulaire qui s'ouvre à l'ouverture du modèle, dont tu ne laisses pas sortir l'utilisateur si il n'a pas rentré les données idoines et au bon format, puis si tout est bon, tu te sers des champs du formulaire pour remplir ton document,
- soit en fin de saisie du document, tu "scannes" le dit document et vérifies, puis tu balances un message box ou un formulaire pour que l'utilisateur recommence, etc...

Bref, la première solution est la plus simple, si ton document n'est pas trop important...tu formates tes champs, tu utilises des listes non modifiables pour être sûr que les users ne rentrent pas n'importe quoi, etc...

Bon courage :-)

Bonsoir

je voudrais que vous m'aidez a faire une macro ou autre formul qui me facilite la tache dans mon travail
car en feson la situation monsuel de la tresorerie j'ai pas pu trouvè l'astuse pour le cumul des depenses et recette de chaque moi car ma base de donnes contiens plusieur info lier avec collage special avec lieson car chaque fois les donné se change alor je serai obliger de copier manuellement les donnèes dons la case cumul apres j'ajoute les donnès du mois qui vient
aide moi svp a trv la solution
merci

Assia, crée ton propre message...

:-)

Super tutorial sur les boites de dialogue :

http://christianwtd.free.fr/index.php?rubrique=BasDialog01

Bonne lecture!!

:-)

Salut Verveine! :-)

Dim oDialog As Object, oPDialog As Object
Dim oRetourOui As Object
dim oRetourNon As Object
Dim oTxt As Object
DialogLibraries.LoadLibrary("Standard")
oDialog = DialogLibraries.Standard.Dialog1
oPDialog = CreateUnoDialog(oDialog)
'
oTxt = oPDialog.getControl("Label1")
oTxt.Text = "Avez-vous opéré un dernier contrôle ?"

oRetourOui = oPDialog.getControl("CommandButton1")
oRetourOui.Label = "OK"
oRetourNon = oPDialog.getControl("CommandButton2")
oRetourNon.Label = "Non"
'
oPDialog.setTitle("Une dernière vérification pour la qualité de nos documents")
'
oPDialog.Execute()



Ici, ça marche (oOo 2.3)


J'ai essayé de modifié en mettant oRetourLabel2 au lieu de Label1 pour = "Annuler" mais rien à faire...
Là je crois qu'il y a confusion :-) . Pour affecter un nom à l'objet oRetourNon, qui est le petit nom du deuxième bouton (CommandButton2), tu affectes à sa propriété Label la valeur "Non". Il ne s'agit pas de changer Label par Label1 ou Label2...

Dis-moi si ça marche chez toi,

:-)

Salut fxbrg !
En fait, après mon post j'ai tout simplement copier la ligne dessus et coller sur la ligne vide puis modifier la commande... (je crois que j'avais réécrit la commande avec un "o" et çà n'a pas marché !) - et çà a marché.

En revanche, j'ai pas pu retrouver tout ce que j'avais contruit avec le tuto une fois tout refermé. J'ai pas compris pourquoi ? J'ai recommencé ce matin et pareil... (ctd ni la macro ni la boîte de dialogue). J'avais voulu affecter la boîte de dialogue à un bouton et idem rien ne se passe.

J'ai rééessayé à l'instant et j'ai pu exécuter la macro après l'avoir déclaré dans la bibliothèque sous odialog après standard. C'est tout ce que je peux faire. Je n'ai pas pu affecter cette macro à un bouton, et à chq fois que je le faisais, elle ne prenait pas...

J'ai du sauter des étapes ou alors si tu peux m'expliquer comment faire après avoir créer ma boite de dialogue de pouvoir l'utiliser comme macro sur un bouton ? et non pas comme une simple macro qui s'exécute sur commande seulement ?
J'espère que je suis compréhensible...
Voici ma macro :
REM ***** BASIC *****

Sub AutoControle_Saisie
Dim oDialog As Object, oPDialog As Object
Dim oRetourOui As Object, oRetourNon As Object
Dim oTxt As Object

DialogLibraries.LoadLibrary("Standard")
oDialog = DialogLibraries.Standard.Dialog1
oPDialog = CreateUnoDialog(oDialog)
'
oTxt = oPDialog.getControl("Label1")
oTxt.Text = "Les éléments à vérifier"
oRetourOui = oPDialog.getControl("CommandButton1")
oRetourOui.Label = "OUI"
'
oRetourNon = oPDialog.getControl("CommandButton2")
oRetourNon.Label = "NON"
'
oPDialog.setTitle("AUTO CONTROLE DE QUALITE")
'
oPDialog.Execute()
End Sub

qui marche.
merci,
verveine

En fait, après mon post j'ai tout simplement copier la ligne dessus et coller sur la ligne vide puis modifier la commande... (je crois que j'avais réécrit la commande avec un "o" et çà n'a pas marché !) - et çà a marché.

Cool :-)

En revanche, j'ai pas pu retrouver tout ce que j'avais contruit avec le tuto une fois tout refermé. J'ai pas compris pourquoi ? J'ai recommencé ce matin et pareil... (ctd ni la macro ni la boîte de dialogue). J'avais voulu affecter la boîte de dialogue à un bouton et idem rien ne se passe.

Euh... as-tu enregistré ton document? et la macro? C'est vrai que la procédure d'enregistrement n'est pas très intuitive...

J'ai rééessayé à l'instant et j'ai pu exécuter la macro après l'avoir déclaré dans la bibliothèque sous odialog après standard. C'est tout ce que je peux faire. Je n'ai pas pu affecter cette macro à un bouton, et à chq fois que je le faisais, elle ne prenait pas...

Pour affecter ta macro à un bouton dans ta feuille (et non dans le formulaire) :
- Affichae/Barre d'outils, coche Contrôles Formulaires
- clique sur l'icone avec l'equerre (mode conception)
- clique sur l'icone bouton et dessine le sur ta feuille
- double clique sur le bouton
- onglet Evènements
- clique sur la petite icone avec les trois points à droite de la ligne "Lors du déclenchement"
- clic Macro
- clic le + devant le nom de ton doc puis devant standard puis le nom du module et choisis ta macro
- OK, OK et fermer la boite drd propriétés du bouton

Repasse en mode normal (icone equerre) et clique sur le bouton...
et hop!! :-)

Dans ton cas, tu pourrais affecter cette macro à l'action Enregistrement... POur ça, Outils/personnaliser, puis onglet évènements, clic sur enregistrement du document, puis sur macro et idem, choisis ta macro, referme le tout..

Modifie quo ique ce soit, clic sur l'icone d'enregistrement, et hop, voilà ta boite de dialogue...

C'est y pas cool?

lol


Bon week-end!

Encore merci fxbrg !
bon we !</ita>

De rien, idem :-)

<Ita>(par contre, j'ai du mal à suivre certains tuto open office pour créer les btes de dialog...)
Sans peine, ce serait même pas drôle!! lol Ceci dit, regarde les versions de oOo utilisées dans les tutos, souvent ils sont faits avec une versioin 1.x, et les menus ont beaucoup changé (par exemple, pour affecter la macro à une action du document, avant c'était dans Outils/Adaptation, alors que maintenant c'est dans Outils/Personnaliser... si tu n'as pas été confronté au problème, tu risques pas de l'inventer!! lol

Bon week-end again, à bientôt si besoin,

JF

JF !
A force de faire, j'ai enfin trouvé : j'ai pu affecté ma boîte de dialog à mon dernier bouton en la créant dans la liste des macros du fichier existant.
Si avant çà ne marchait pas c'ést parce que mon open office était paramétré avec une option sécurisée pour l'activation des macros extérieures... (j'ai donc appliqué la règle de me poser la question, si oui ou non j'active la macro).
Voilà, maintenant j'ai des docs super pro et je peux enfin te dire à + pour une autre macro (j'ai attrapé le virus !)

super cool comme tu dis ! lol

mais mon pb est purement informatique
je veux prog en java une connexion bluetooth via port série virtuel
je c pas comment ouvrir une connexion