Discussion :

[HABILER]

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 de

Code :

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

 If FeuilleExiste(Date) Then

Merci pour votre aide

Habiler

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

[Menhir]

comme le suivant qui m'indique qu'il ne trouve pas la library ou le project au niveau de

Code :

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

 If FeuilleExiste(Date) Then

FeuilleExiste est sans doute d'une fonction personnalisée qui se trouve dans un autre module (peut-être même dans un autre classeur).
Je doute (je peux me tromper) qu'il s'agisse d'un problème de Library ou alors c'est une bibliothèque "fait maison" parce que les fonction VBA des bibliothèques d'applications commerciales sont généralement en anglais.