Bonjour a tous,
Je suis passé de 32bits a 64bits Windows 10 Office 365 et je dois modifier mes programmes VBA. comme le suivant qui m'indique qu'il ne trouve pas la library ou le project au niveau deMerci pour votre aideCode:If FeuilleExiste(Date) Then
Habiler
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Option Explicit Private Sub Workbook_Open() Dim B As Boolean Sheets("AIDE").Visible = False B = Sheets("TypDay").[A1] = "" Sheets("TypDay").Visible = B Sheets("Modele").Visible = B Sheets("Mise en route").Visible = B If B Then Sheets("Mise en route").Select Range("A1").Select Else If FeuilleExiste(Date) Then Sheets(BuffNomFeuille).Select End If End If End Sub