guenfood
XLDnaute Occasionnel
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 :
Et j'ai 'numligne = 8' qui est surligné en jaune.
Où cela cloche t'il ??
Merci d'avance pour vos réponses.
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 :
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.