Bonjour Philippe
1/ incrémentation automatqiue du numéro d'enregistrement
2/ automatisation du nom de la personne qui demande un numéro (récupération
du nom (application .username sous excel))
Et celle là elle est comment ?
Sub AllerDer
MonDoc = ThisComponent 'Sélectionne le document en cours
MaFeuille = MonDoc.CurrentController.ActiveSheet 'Attribue la
feuille en cours à la variable
oCurseur = MaFeuille.createCursor
oCurseur.GotoEndOfUsedArea(True)
NumDerligne = oCurseur.getRangeAddress.EndRow
MaFeuille.getCellByPosition(0,NumDerligne+1).string = Date
'2/
Utilisateur = MonDoc.DocumentInfo.Author
MaFeuille.getCellByPosition(1,NumDerligne+1).String = Utilisateur
'1/
DerEnrg = MaFeuille.getCellByPosition(2,NumDerligne).Value '4 =colonne D
MaFeuille.getCellByPosition(2,NumDerligne+1).Value = DerEnrg +1
CellCible = MaFeuille.getCellByPosition(3,NumDerligne+1)
CellCible.formula = InputBox("Alors " & Utilisateur & " quoi donc?",
Time & " :",)
MonDoc.CurrentController.Select(CellCible)
End sub
*Pour sortir de la boucle : ;-)
le bouquin de programmation
*
www.editions-eyrolles.com
<#http://www.editions-eyrolles.com/Recherche/?q=openoffice>.
*Sinon sur le site tu trouvera la documentation pour le langage macro
*
http://fr.openoffice.org/Documentation/Macros/indexmac.html
<#http://fr.openoffice.org/Documentation/Macros/indexmac.html>
l'Api (presque) sans peine :
http://fr.openoffice.org/Documentation/How-to/Basic/OOo_API_intro-05.sxw
<#http://fr.openoffice.org/Documentation/How-to/Basic/OOo_API_intro-05.sxw>
Le guide d'Andrew en français :
http://fr.openoffice.org/Documentation/Guides/Andrew5.pdf
<#http://fr.openoffice.org/Documentation/Guides/Andrew5.pdf>
Manuel de programmation basic SO7 en français :
http://api.openoffice.org/TipsAndTricks/external.html
Un site sur les macro: http://www.ooomacros.org/
Jean-Luc :-)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
