Oui, pas de soucis,

c'est dans l'assignation du raccourci (en fin de code :)

' Assigner CTRL+P à la macro produit
Sub AssignerRaccourciProduit
  Dim oKeyEvent As New com.sun.star.awt.KeyEvent, oDocShortCutManager
  Dim strCommandURL1 as string
 ' xray oDocShortCutManager
    strCommandURL1 =
"vnd.sun.star.script:VBAProject.Module1.produit?language=Basic&location=document"
oKeyEvent = CreateKeyEvent( 2, com.sun.star.awt.Key.P )
'   ligne ci-dessous ko si on enlève l'affectation 'test=' car réclame un
Egal ???
test=SetCommandShortcut( oKeyEvent, strCommandURL1 )

si j'enlève le "test=", ça râle..

le fichier : https://www.cjoint.com/c/OAemTuho4Wd

Yves


Le sam. 4 janv. 2025 à 13:12, Bernard Siaud alias Troumad <[email protected]>
a écrit :

> Oui, c'est ça. Je dirais que c'est un bug !
> Tu peux partager facilement ton fichier ?
>
> Le 04/01/2025 à 11:53, yves dutrieux a écrit :
> > Bonjour,
> >
> > j'ai eu un cas similaire il y a peu, je sais pas si c'est un bug ou
> > pas et si c'est la même chose que toi, mais il demandait aussi un
> > "égal" à une "SUB" qui ne renvoyait donc pas de résultat.
> > J'ai donc simplement affecté la sub à une variable : xy = <fonction
> > sub appelée> et cela a supprimé l'erreur.
> >
> > Yves
> >
> > Le sam. 4 janv. 2025 à 09:35, Bernard Siaud alias Troumad
> > <[email protected]> a écrit :
> >
> >     Le 04/01/2025 à 09:19, Patrick Auclair a écrit :
> >     > Bonjour Bernard,
> >     >
> >     > Tu travailles avec Writer ou Calc ?
> >     > Avec Writer il me semble que l'on ne peut pas ajouter de fonction
> >     > personnalisée comme sous Calc et donc les utiliser.
> >     Je travaille sous calc. La fonction personnalisée ne m'intéresse pas.
> >     C'est juste un petit calcul dans une grosse macro.
> >     > Oui, un exemple anonymisé serait utile.
> >     Il faudrait anonymiser 3 fichiers et les rendre compatibles...
> >     > Cordialement,
> >     > Patrick
> >
> >     --
> >     Amicalement vOOotre              Troumad Alias Bernard SIAUD
> >     mon site : http://troumad.org : AD&D maths WEB...
> >     Pour la liberté http://www.developpez.net/forums/f17/systemes/linux/
> >     N'envoyez que des documents avec des formats ouverts, comme
> >     http://fr.libreoffice.org
> >
> >     --
> >     Envoyez un mail à [email protected]
> >     <mailto:users%[email protected]> pour vous
> désinscrire
> >     Les archives de la liste sont disponibles à
> >     https://listarchives.libreoffice.org/fr/users/
> >     Privacy Policy: https://www.documentfoundation.org/privacy
> >
> >
> >
> > --
> > web site : http://www.molenbaix.com
>
>
> --
> Amicalement vOOotre              Troumad Alias Bernard SIAUD
> mon site : http://troumad.org : AD&D maths WEB...
> Pour la liberté http://www.developpez.net/forums/f17/systemes/linux/
> N'envoyez que des documents avec des formats ouverts, comme
> http://fr.libreoffice.org
>
> --
> Envoyez un mail à [email protected] pour vous
> désinscrire
> Les archives de la liste sont disponibles à
> https://listarchives.libreoffice.org/fr/users/
> Privacy Policy: https://www.documentfoundation.org/privacy
>


-- 
web site : http://www.molenbaix.com

-- 
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à 
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy

Répondre à