Bonjour,

Je suis entrain de modifier un code sur projet qui à été implémenter par une autre personne. j'ai une erreur a l'ouverture de la macro et je n'arrive pas à résoudre le problème.

voilà le code et l'erreur:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Workbook_Open()
 
On Error GoTo Err_WbkOpen
    'Trier certaines zones
    SortRange "Liste_Agglomeration"   ' <--- Erreur!
    SortRange "Liste_TGM"
    SortRange "Liste_IMEI"
    SortRange "Liste_NMobile"
    SortRange "Liste_NFixe"
    'SortRange "Liste_NFixeVisio"
    SortRange "Liste_Equipe"
 
    'trier les détails pour les différents bilans
    Dim s$, i&
    s = "AXMECH"
    For i = 1 To Len(s)
        SortRange "detvx" & Mid(s, i, 1)
        SortRange "detvt" & Mid(s, i, 1)
    Next
 
    'Ne pas charger la feuille de saisie si:
    '   - il s'agit du modèle
    '   - la touche contrôle est appuyée
    If Me.FileFormat <> xlTemplate Then
        Me.Worksheets("config").Visible = xlSheetHidden
        If ControlPressed Then Exit Sub
        ShowSaisie
    End If
    Exit Sub
 
Err_WbkOpen:
    If Err.Number = 0 Then Exit Sub
    MsgBox Err.Description & "(0x" & Hex(Err.Number) & ")", vbOKOnly, Err.Source
    Err.Clear
End Sub
voilà l'erreur :

erreur de compilation:

Projet ou Bibliothèque Introuvable
est-ce qu'il y a quelqu'un qui puisse m'aidai??

merci