Probleme "erreur de compilation"

[guenfood]

Bonjour,

Je sèche sur un message d'erreur que je n'arrive pas à résoudre.
Message d'erreur : 'Erreur de compilation Projet ou bibliothèque introuvable'.

Voici le code :

Sub RenseigneLigneBonneDate()
Dim derligne As Long

numligne = 8
    
    Workbooks('Reporting Files prod.xls').Activate
    Sheets('trésoprod').Activate
    Range('B8').Activate
    derligne = ActiveCell.End(xlDown).Row
    DateTraitement = Sheets('trésocopie').Range('$G$1')

    For Each cell In Sheets('trésoprod').Range('A8:A' & derligne)
     
        'If cell = Sheets('trésocopie').Range('$G$1') Then
        If cell = DateTraitement Then
            Call RemplissageLigneTresoRecus(numligne)
            'MISE EN COMMENTAIRE DE TOUTE LA PARTIE ALIMENTANT LES virements de TRESO TRAITéS
            'numligne = numligne + 1
            'RemplissageLigneTresotraites (numligne)
            Sheets('opprod').RemplissageLigneOPRecus (numligne)
            'MISE EN COMMENTAIRE DE TOUTE LA PARTIE ALIMENTANT LES Ordres de Paiement TRAITéS
            'numligne = numligne + 1
            'Sheets('opprod').RemplissageLigneOPTraites (numligne)
            Exit For
        End If
        numligne = numligne + 1
    Next cell
    
    Call FinDispatch(numligne)
    
sortieRenseigneLigneBonneDate:
    Exit Sub
End Sub

Et j'ai 'numligne = 8' qui est surligné en jaune.

Où cela cloche t'il ??
Merci d'avance pour vos réponses.

 

[PascalXLD]

Bonjour

Je suppose que tu as bien déclarée ta variable en dehors de ta procédure.
Vérifies que dans OUtils références tu n'en es pas une de marqué manquante

 

[guenfood]

Oups !!!
C'est bien ca. Il y avait une référence manquante.
Merci !