fonction networkdays en vba

[alex]

bonjour,

je travaille sur un version excel anglaise,
la fonction networdays (qui retourne vraisemblablement le nombre de jours ouvres entre 2 dates) ne fonctionne pas dans mon environnement Vba malgre l'appel 'worksheetfunction.networkdays'

pour contourner la difficulte j'ai donc verifie l'activation du add ins 'data analysis' pour Vba dans mon excel et j'ai voulu active la 'reference' dans mon Vba.

maintenait il me dit que les noms doivent deja etre utilises qq part (et donc que ca ne marche pas...)

avez vous deja ete confronte a ce type de soucis? auriez vous une piste pour l'utilisation de cette fonction en vba svp?

merci de votre coup de main
Alex

 

[_Thierry]

Bonjour Alex, le Forum

As-tu essayé cette syntax :

Sub TestingNetWorkDays()
Dim WorkingDay As Integer
Dim DateFrom As Date, DateTo As Date

DateFrom = '21/03/2005' 'Pourrait être une référence Range('A1')
DateTo = '27/03/2005'

WorkingDay = Evaluate(networkdays(DateFrom, DateTo))

MsgBox WorkingDay & ' Jours ouvrables entre le ' & DateFrom & ' & ' & DateTo

End Sub

Ceci fonctionne chez moi et je suis aussi en version américaine, Windows et Office. Avec la XLA (Add-Ins) Analysis ToolPack VBA activée dans Excel, et la référence à 'ATPVBAEN.xls' cochée dans VBE...

Bon Courage
@+Thierry