Projet ou bibliothèque introuvable !
Résolu
gyom75
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
j'ai développé une macro pour le boulot.
Tout marchait impec sur mon poste et ce matin, O rage, j'ai un utilisateur qui me dit que ça ne marche pas.
je regarde le fichier et effectivement... j'ai ça :
"erreur de compilation : Projet ou bibliothèque introuvable"
et la macro s'arrête sur un truc tout simple comme :".Address(ReferenceStyle:=R1C1)" sur le R1C1.
Quelqu'un peut-il m'aiguiller ?
merci d'avance
Sub MAJ_ListeNivSup()
'macro : Met à jour la liste du périmètre supérieur en fonction du niveau sélectionné
Sheets("Menu").Select
ActiveSheet.Calculate
Niv = range("Menu_NivX").Value
Sheets("Liens").Select
ActiveSheet.Calculate
Select Case Niv
Case 5, 6
Adresse = "=Liens!" & range("Liens_Niv4_Liste").Address(ReferenceStyle:=R1C1)
Case 9
Adresse = "=Liens!" & range("Liens_Niv7_Liste").Address(ReferenceStyle:=R1C1)
End Select
ActiveWorkbook.Names.Add _
Name:="Liens_NivSupChoix_Liste", _
RefersToR1C1:=Adresse
Sheets("Menu").Select
End Sub
j'ai développé une macro pour le boulot.
Tout marchait impec sur mon poste et ce matin, O rage, j'ai un utilisateur qui me dit que ça ne marche pas.
je regarde le fichier et effectivement... j'ai ça :
"erreur de compilation : Projet ou bibliothèque introuvable"
et la macro s'arrête sur un truc tout simple comme :".Address(ReferenceStyle:=R1C1)" sur le R1C1.
Quelqu'un peut-il m'aiguiller ?
merci d'avance
Sub MAJ_ListeNivSup()
'macro : Met à jour la liste du périmètre supérieur en fonction du niveau sélectionné
Sheets("Menu").Select
ActiveSheet.Calculate
Niv = range("Menu_NivX").Value
Sheets("Liens").Select
ActiveSheet.Calculate
Select Case Niv
Case 5, 6
Adresse = "=Liens!" & range("Liens_Niv4_Liste").Address(ReferenceStyle:=R1C1)
Case 9
Adresse = "=Liens!" & range("Liens_Niv7_Liste").Address(ReferenceStyle:=R1C1)
End Select
ActiveWorkbook.Names.Add _
Name:="Liens_NivSupChoix_Liste", _
RefersToR1C1:=Adresse
Sheets("Menu").Select
End Sub
A voir également:
- Excel projet ou bibliothèque introuvable
- Si ou excel - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Excel moyenne - Guide