Discussion :

[CodeFacile]

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 ...

[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".

[CodeFacile]

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 :

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

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.)

[Daniel.C]

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 :

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

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

[CodeFacile]

Merci beaucoup , ça résoud mon problème.

[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 ).

[Daniel.C]

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 :

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

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 !).