Ajouter Macro Complémentaire ATPVBaen en Excel 2010

Version imprimable

02/01/2013, 12h13
CodeFacile

Ajouter Macro Complémentaire ATPVBaen en Excel 2010

Bonjour,

Je viens de passer de la version Excel 2003 à Excel 2010 et je recontre un problème dans l'utilisation de mes macros.
J'ai un problème notamment avec la fonction Networkdays qui ne fonctionne pas sur 2010; Il manque la référence . Comment ajouter la référence ATPVBaen.xla avec Excel 2010 ? Je ne la trouve pas dans la liste des références ...
02/01/2013, 13h42
Daniel.C

Bonjour,

Elle figure dans les références sur mon ordi, mais elle ne sert pas. La fonction "NetworkDays" étant maintenant une fonction intégrée Excel, il faut coder :
"Application.NetworkDays" au lieu de "NetworkDays".

Merci pour cette info.
Par contre ça n'arrange pas mes affaires....
Je cherche à faire une macro ( utilisant networkdays) qui soit compatible avec les 2 versions.
Dans la version Excel 2003 ( sous XP ) , j'arrive à faire un test
Code:

1 2 3 4 5 6 7 .... If Application.Version = "11.0" Then NB_Jour_O_AF = Networkdays(Param1, Param2, Plage_Fériés) Else NB_Jour_O_AF = Application.Networkdays(Param1, Param2, Plage_Fériés) End If
par contre le même code sous Excel 2010 , Windows Seven ,en mode de compatibilité , plante ... -> le système me dit qu'il manque la référence ATPVBaen et indique une erreur pour Networkdays

Je pense que je peux abandonner l'idée d'un code compatible au 2 versions.

( Je précise que le problème ne vient pas des paramétres , la fonction marche si je développe 2 versions de code distinctes.)

Ce qui est bizarre, c'est que j'ai cette référence, mais j'ai XL2003 et XL2010 sur le même poste... Un contournement possible :

Code:

1
2
3
4
5
6
7
8
9
 If Application.Version = "11.0" Then
         NB_Jour_O_AF = NWD(Param1, Param2, Plage_Fériés)
     Else
         NB_Jour_O_AF = Application.NetworkDays(Param1, Param2, Plage_Fériés)
   End If
End Sub
Function NWD(Param1, Param2, Plage_Fériés)
    NWD = NetworkDays(Param1, Param2, Plage_Fériés)
End Function

03/01/2013, 12h23
CodeFacile

Merci beaucoup , ça résoud mon problème.
03/01/2013, 15h51
CodeFacile

J'ai répondu un peu trop vite .

ça ne marche pas car en Excel 2010 , mode de compatibilité, il y a une vérification de l'ensemble du code et il plante en analysant la fonction NWD ( même si on ne rentre jamais dans la fonction car le test de la version permet d'éviter ).

Je me suis mis en mode compatibilité et je ne constate pas ce problème ?

Tu pourrais peut-être exécuter cette macro pour les classeurs XL2003 dans une autre macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub TestReferences() Dim Teste As Boolean On Error Resume Next Dim i As Long Set Var = ThisWorkbook.VBProject.References(1) For i = 1 To ThisWorkbook.VBProject.References.Count If ThisWorkbook.VBProject.References(i).FullPath = _ "C:\Program Files (x86)\Microsoft Office\OFFICE11\Bibliothèque\Analyse\ATPVBAEN.XLA" Then Teste = True Exit For End If Next i If Teste = False Then ActiveWorkbook.VBProject.References.AddFromFile "C:\Program Files (x86)\Microsoft Office\OFFICE11\Bibliothèque\Analyse\ATPVBAEN.XLA" End If On Error GoTo 0 End Sub
en modifiant le chemin. Tu dois auparavant, sur chaque poste, vérifier que dans Outils/Macro/Sécurité, onglet "Editeurs approuvés", la case "Faire confiance au projet Visual Basic" est bien cochée (pas possible de la cocher par VBA !).