3 messages in org.openoffice.fr.progRE: [prog] [Calc] Retrouver, supprime...
FromSent OnAttachments
NojidMay 17, 2006 10:27 pm 
Francois GattoMay 18, 2006 9:24 pm 
NojidMay 18, 2006 10:47 pm 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:RE: [prog] [Calc] Retrouver, supprimer une imageActions...
From:Nojid (noj@free.fr)
Date:May 18, 2006 10:47:00 pm
List:org.openoffice.fr.prog

-----Message d'origine----- De : Francois Gatto [mailto:oo@volcar.org] Envoyé : vendredi 19 mai 2006 06:25 À : pr@fr.openoffice.org Objet : Re: [prog] [Calc] Retrouver, supprimer une image

Bonjour,

Nojid a écrit :

Bonjour J'ai suivi l'exemple du livre de B. Marcelly concernant les objets insérables dans un document Calc mais ai le message d'erreur à chaque exécution de la macro. "Runtime error Basic. La sous-procédure ou procédure fonctionnelle n'est pas définie"

Si j'exécute la macro telle qu'elle existe dans l'exemple 14-02.sxc, il n'y a aucun problème.

Normal ! Le document intègre toutes les procédures nécessaires.

En revanche, si je fais un copier-coller du code de celle-ci dans un nouveau document elle ne fonctionne pas (j'ai pourtant pris soins de modifier le nom de la feuille sur laquelle est placée l'image, ainsi que le nom de l'image elle-même).

Une étude plus précise t'aurait permis de constater que telle ou telle procédure fait appel à une autre procédure. Le message d'erreur est pourtant assez explicite puisqu'il signale une "absence" de [sous-]procédure.

Dans l'exemple que tu cites, la procédure AjouterImage() nécessite un appel à la procédure resizeImageByWidth(...) située dans la bibliothèque Standard (du document Code14-02.sxc)

Pour que cela fonctionne, il faut donc que tu recopies également cette deuxième procédure.

Bonne chance.

-- Francois GATTO

Autant pour moi. Je ne me servais pas des routines situées dans le CD. J'avais simplement recopié l'exemple du livre. Ici, en l'occurrence, j'avais oublié la fonction "Function FindObjectByName"

Merci François