Ben elle est terrible ... Moi j'étais arrivé à cela (faut quand même bien que je bosse un peu ..) J'ai décomposé chaque étape pour ma culture personnelle et éventuellement celle des autres...
Par contre MonDoc.DocumentInfo.Author renvoie le nom de l'auteur, moi je voudrais le nom de l'utilisateur (utilisation en réseau) Je mets un lien vers le fichier à but didactique pour ceux qui veulent participer : http://bronchart.free.fr Amicalement Philippe sub registre MonDoc = ThisComponent 'Sélectionne le document en cours ok MaFeuille = MonDoc.CurrentController.ActiveSheet 'Attribue la feuille en cours à la variable ok oCurseur = MaFeuille.createCursor ' création du curseur ok oCurseur.GotoEndOfUsedArea(True) ' positionnement du curseur sur la dernière ligne du tableau ok NumDerligne = oCurseur.getRangeAddress.EndRow 'assignation à NumDerligne de sa valeur ( dernière ligne du tableau) 'print Numderligne ' Test vérification de la valeur Numderligne ok NouveauNumero = NumDerligne + 1 ' Incrémentation du numéro : récupération du numéro de ligne auquel on ajoute 1 pour prendre en compte le titre 'NouveauNumero =MaFeuille.getCellByPosition(0,NumDerligne).value+1 'marche pas. Je cherche à m'appuyer sur le numéro du dessus + 1 'print NouveauNumero ' test vérification du NouveauNumero MaFeuille.getCellByPosition(1,NumDerligne+1).string = Date 'Aujourd'hui MaFeuille.getCellByPosition(2,NumDerligne+1).String = "Lambert" ' a automatiser avec le nom utilisateur dans les options MaFeuille.getCellByPosition(0,NumDerligne+1).String = NouveauNumero ' OK ca marche CellCible = MaFeuille.getCellByPosition(3,NumDerligne+1) MonDoc.CurrentController.Select(CellCible) end sub -----Message d'origine----- De : Jovial [mailto:[EMAIL PROTECTED] Envoyé : vendredi 20 janvier 2006 11:04 À : [email protected] Objet : Re: [prog] Concersion de macros > écrire en fin de tableau 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] --- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 0603-3, 18/01/2006 Analyse le : 20/01/2006 14:01:19 avast! - copyright (c) 1988-2005 ALWIL Software. http://www.avast.com --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 0603-3, 18/01/2006 Analyse le : 20/01/2006 14:32:23 avast! - copyright (c) 1988-2005 ALWIL Software. http://www.avast.com --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
