OVH Cloud OVH Cloud

euroconvert et vba excel 2003

2 réponses
Avatar
Fred
Bonjour à tous,

bien que la macro complémentaire EUROTOOLS soit active, l'instruction :

valeuro=application.worksheetfunction.euroconvert(activecell,"FRF","EUR")

est ponctuée par un message d'erreur...

Je ne comprend pas...

Pour tous les éclaircissements, merci d'avance

2 réponses

Avatar
MichDenis
Tu as différentes syntaxes possibles :

Si tu as chargé la macro complémentaire dans la fenêtre
barre des menus / outils / macro complémentaire / EuroTool
la syntaxe est celle-ci :
valeuro = Application.Run("EuroTool.modUDFEuroConvert.EUROCONVERT", ActiveCell, "FRF", "EUR")

Cette syntaxe est aussi disponible :
A1 étant l'adresse de la cellule active
x = [EUROCONVERT(A1, "FRF", "EUR")]


Si tu veux pouvoir appelé directement la fonction par son nom,
dans la fenêtre VBA, barre de menu / outils / références /
coche la bibliothèque EuroTool... et tu pourras utiliser cette syntaxe

valeuro = EUROCONVERT(ActiveCell, "FRF", "EUR")



"Fred" a écrit dans le message de news:

Bonjour à tous,

bien que la macro complémentaire EUROTOOLS soit active, l'instruction :

valeuro=application.worksheetfunction.euroconvert(activecell,"FRF","EUR")

est ponctuée par un message d'erreur...

Je ne comprend pas...

Pour tous les éclaircissements, merci d'avance
Avatar
MichDenis
'Ces 3 syntaxes requiert que la macro complémentaire
au niveau de l'interface de la feuille de calcul
barre de menus / outils / macro complémentaires /
EuroTool soit cochée.
'-------------------------
J'allais oublié, il y a aussi ceci :
x = [EUROCONVERT(A1, "FRF", "EUR")]
et sa petite soeur
b = Evaluate("EUROCONVERT(" & ActiveCell.Address & ",""FRF"", ""EUR"")")

valeuro = Application.Run("EuroTool.modUDFEuroConvert.EUROCONVERT", ActiveCell, "FRF", "EUR")


Si tu veux pouvoir appelé directement la fonction par son nom,
dans la fenêtre VBA, barre de menu / outils / références /
coche la bibliothèque EuroTool... et tu pourras utiliser cette syntaxe

valeuro = EUROCONVERT(ActiveCell, "FRF", "EUR")