Discussion :

[galopin01]

bonjour,
J'utilise régulièrement une Public Function Perso (IsFerie) dans Excel
Cette Function fait partie de mon Classeur de Macros Complémentaires PERSO.xlam déclaré comme complément.
Comment l'appeler depuis VBA ?
Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

?IsFerie([C3])

J'ai une erreur de compilation : Fonction non définie
Merci.
A+

[Menhir]

Mets un espace après le "?".

[galopin01]

bonjour,
Avec ou sans espace, macro ou Volet d'Exécution c'est toujours "Sub ou Fonction non définie".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
MsgBox IsFerie(Date)
End Sub

Même punition.
A+

[unparia]

Bonjour
De quoi parles-tu ?
Ton titre laisse entendre que tu parles d'une fonction personnalisée.
1)
a) Une fonction est typée et retourne une valeur. Ce qui n'est pas le cas de ta procédure
Une fonction personnalisée est à mettre en Public dans un module standard
Une fonction personnalisée s'utilise ensuite dans une formule, comme n'importe quelle autre fonction utilisée dans une formule
2) s'il ne s'agit pas d'une fonction personnalisée, mais d'une simple fonction :
a) elle répond aux mêmes principes que ceux exposés en 1) -a
b) elle est utilisée par une syntaxe du genre :
toto = lafonction(paramètres)
3) s'il ne s'agit finalement que d'une simple procédure (sub)
elle est lancée par une syntaxe du genre
la_sub paramètre(s)

[Menhir]

Avec ou sans espace, macro ou Volet d'Exécution c'est toujours "Sub ou Fonction non définie".

Est-ce que le fichier xlam qui la contient est ouvert au moment où tu appelles la fonction ?

[antonysansh]

Bonjour galopin01,

Commence par tester dans la fenêtre d'exécution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

? Date

Pour être sur que c'est bien la fonction qui bug.
Car j'ai eu récemment un problème avec Date en Vb (plusieurs fois le même complément dans des versions différentes suite a une monté de version de Windows sur le poste d'un collègue)

[galopin01]

Bonjour,

Il s'agit bien d'une fonction personnalisée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function EstFerie(ByVal laDate As Date, Optional ByVal EstPentecoteFerie As Boolean = True) As Boolean

Par ailleurs c'est une fonction très connue

Cette fonction renvoie Vrai ou Faux si je l'utilise dans Excel
=EstFerie(C1) renvoie Vrai car C1 = 14/07/2017

Si je l'utilise dans VBA
Dans la fenêtre d'Exécution elle renvoie Vrai uniquement si Perso.xlam est en surbrillance dans VBAProject
Elle fonctionne également correctement si j'installe cette macro dans un des module de Perso.xlam

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
[A1] = EstFerie([C1]) 
End Sub

Par contre si j'installe la même macro dans un des modules du classeur cible elle renvoie :
"Sub ou Fonction non définie".

Nota : Cette fonction n'est pas seule en cause. Il s'agit semble-t-il d'un comportement normal dans VBA :
J'utilise de nombreuses fonctions personnalisées dans Excel. Aucune d'elle ne fonctionne depuis VBA.

Je suppose donc que dans VBA Perso.xlam doit être référencée d'une manière ou d'une autre pour que la fonction soit vue ?
A moins qu'il y ait une syntaxe particulière pour appeler une fonction de la Perso.xlam

Merci de votre attention.

A+

[Marc-L]

Bonjour, bonjour !

Par ailleurs c'est une fonction très connue

Uniquement de ceux qui en disposent, c'est à dire pas grand monde ‼

Voilà, voilà !

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[galopin01]

bonjour,

(Pour mémoire) Le Perso.xlam est installé comme complément et coché dans la Boite de dialogue Complément.

La fonction n'a rien à voir ! Je l'utilise seulement pour l'exemple et sa simplicité d'utilisation et de compréhension...

Cette fonction n'est pas seule en cause. Il s'agit semble-t-il d'un comportement normal dans VBA :
J'utilise de nombreuses fonctions personnalisées dans Excel. Aucune d'elle ne fonctionne depuis VBA.

En voici une encore plus simple et qui ne nécessite aucun argument :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function WOF$()
WOF = ActiveWorkbook.Path
End Function

C'est exactement le même problème !
Dans une cellule d'Excel elle renvoie le chemin du classeur
Si le perso.xlam est activé (en surbrillance) dans VBAProject:
- Dans la fenêtre d'exécution, elle renvoie le chemin du classeur
- Dans un module du perso.xlam, elle renvoie le chemin du classeur
- Mais dans un module du classeur cible, elle renvoie "Sub ou Fonction non définie".

A+

[galopin01]

Bonsoir,
And The winner is... Boisgontier !

La réponse est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Application.Run("EstFerie", [C1])

A signaler en outre, il est possible de référencer ce classeur de macro complémentaire selon une technique détaillée sous ce lien. (Source DanielCo)
http://www.fontstuff.com/vba/vbatut08.htm
Il devient ainsi possible d'adresser directement la fonction depuis VBA ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox EstFerie([C1])

A+