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

Compile Error: Can t find project or library

  • Initiateur de la discussion Initiateur de la discussion senna2411
  • 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 !

S

senna2411

Guest
Bonjour

j ai un probleme sur un fichier que j utilisais sur une autre machine qui utilise des macros.
Lorsque je lance la spdsheet, ca ouvre le debugger et affiche le message:

Compile error:
can't find project or library

En me baladant sur le net, j ai cru comprendre qu en allant ds Tools/References j allais trouver des "missings", mais la case references est en gris et inaccessible..

Voici la macro qui ne marche plus..des que j ouvre le fichier, ca surligne la ligne "temp


=========================================================
Function BlendFlashPoint(FP As Range, BT As Range, GR As Range)
' FP : Flash Point des components
' BT : Blend Tonnes des components
' GR : API Gravity des components
Dim MW(6), PctW(6), CI(6), BI, SumBT As Double
' MW : molecular Weight
' PctW : %Weight
' CI : Component Index
' BI : Blend Index
Dim IntI As Integer
Dim Size_FP As Integer

Size_FP = FP.Count
If (Size_FP <> BT.Count Or Size_FP <> GR.Count) Then
BlendFlashPoint = "Array Size Pb"
GoTo Fin
End If

IntI = Size_FP
While GR(IntI) = 0 Or GR(IntI) = ""
Size_FP = Size_FP - 1
IntI = IntI - 1
Wend

SumBT = 0
For IntI = 1 To Size_FP
SumBT = SumBT + BT(IntI)
Next IntI

For IntI = 1 To Size_FP
temp = 32 + FP(IntI) * 9 / 5
MW(IntI) = 7000 / GR(IntI)
CI(IntI) = Exp(8500 / (460 + temp) - 11.486)
PctW(IntI) = BT(IntI) / SumBT
Next IntI

BI = 0
temp = 0
For IntI = 1 To Size_FP
BI = BI + PctW(IntI) / MW(IntI) * CI(IntI)
temp = temp + PctW(IntI) / MW(IntI)
Next IntI
BI = BI / temp
BlendFlashPoint = 8500 / (Log(BI) + 11.486) - 460 'Degrés Fahrenheit
BlendFlashPoint = (BlendFlashPoint - 32) * 5 / 9 'Degrés Celcius
Fin:
End Function

============================================

Si quelqu un a une solution, elle est la bienvenue..;-)
 
Re : Compile Error: Can t find project or library

Bonjour,

En me baladant sur le net, j ai cru comprendre qu en allant ds Tools/References j allais trouver des "missings", mais la case references est en gris et inaccessible..

A noter, pour accéder aux référence il ne faut pas que le code soit en cours d'exécution...

bonne journée
@+
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…