Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Erreur ouverture macro avec SortRange

  • Initiateur de la discussion Initiateur de la discussion Misha
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Misha

XLDnaute Nouveau
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 :

Code:
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.
 
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
519
Réponses
6
Affichages
607
Réponses
1
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…