Probleme execution macro

Bonjour,

j'ai une macro VBA (powerpoint) qui fait appel à une fonction Excel, la macro "plante" à la ligne suivante:

angleAlpha = WorksheetFunction.Degrees(WorksheetFunction.Acos(((distA * distA) + (distC * distC) - (distB * distB)) / (2 * distA * distC)))

Mon problème est le suivant: j'exécute cette macro avec pack office 2010 sur certains PC elle fonctionne très bien, sur d'autres PC équipés également d'office 2010 (même version de VB, même bibliothèques cochées) elle plante. C'est comme si la macro refusait de lancer les fonctions présentes dans WorksheetFunction.

Avez-vous des pistes pour régler ce problème?

Le cas échéant est-il possible de coder cette fonction sans passer par WorksheetFunction?

Je vous remercie par avance pour vos réponses. Bonne journée à tous

Je me suis créé cette fonction qui a l'air de fonctionner:

Function ArcCos(X As Double) As Double

Dim pi As Double

pi = 4 * Math.Atn(1)

If Math.Abs(X) = 1 Then

ArcCos = ((1 - X) * pi / 2) * 180 / pi

Else

ArcCos = (Math.Atn(-X / Math.Sqr(1 - X * X)) + 2 * Math.Atn(1)) * 180 / pi

End If

End Function

Mais je ne connais pas la raison pour laquelle WorksheetFunction.Acos ne fonctionne pas sur tous les powerpoint (office 2010).

Si quelqu'un a une réponse je suis preneur.