Bonjour,

je suis en train de faire un test à l'ouverture pour savoir quel code sera compilé à l'ouverture de mon workbook par rapport à la version de Excel. J'ai trouvé sur le site la ligne de code qui permet de seter la variable des arguments.(http://sinarf.developpez.com/access/autoref/)

Malheuresement le .SetOption n'existe pas....

Voici mon code:

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
18
19
20
21
22
 
Private Sub Workbook_Open()
 Dim dVersion As Double
 
 dVersion = Val(Application.Version)
 If dVersion > 11 Then
        Application.SetOption "Conditional Compilation Arguments", "cVersion = false"
    Else
        Application.SetOption "Conditional Compilation Arguments", "cVersion = True"
    End If
 
 ExcelVersionProperties (dVersion)
End Sub
 
Public Function ExcelVersionProperties(ByVal pdVersion As Double)
 
    #If cVersion Then
       'Code pour Excel plus grand de version 11
    #Else
       ''Code pour Excel plus petit de version 12
    #End If
End Function
Est-ce qu'une autre méthode existe?

merci d'avance

seba_stien