Erreur ouverture macro avec SortRange

[Misha]

Bonjour,

Je dois travailler sur un classeur Excel existant et lorsque j'ouvre le fichier et que j'active les macro, j'ai l'erreur suivant :

Erreur de compilation
Projet ou bibliothèque introuvable

et l'erreur pointe sur la première ligne SortRange :

Private Sub Workbook_Open()
On Error GoTo Err_WbkOpen
    'Trier certaines zones
    [COLOR="DarkRed"]SortRange[/COLOR] "Liste_Agglomeration"
    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

Est ce quelqu'un à une idée de la source de l'erreur 😕?

Je précise que je travaille sous Excel Pro 2003 SP3

Merci d'avance de votre aide.

 

[PascalXLD]

Bonjour

Regardes dans VBE outils references si tu n'as pas une référence marquée manquante

si c'est le cas décoches et regardes

Re

je pense que SortRange doit être une sub créée que tu n'as peut-être pas sur ton pc