Erreur de Compilation Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
Bernard17
Jeune membre
Jeune membre
Messages : 16
Inscrit le : 29 septembre 2019
Version d'Excel : 2010

Message par Bernard17 » 1 octobre 2019, 19:31

Bonsoir à tous,

Je me trouve face à un nouveau problème, j'explique :

J'ai bâti 8 fichiers (un par Section) plus un Global qui regroupe les 8.

Tout fonctionne impeccable quand je tourne sur l'ordi avec lequel j'ai bâti tout ça, Mais quand j'ouvre mon travail sur d'autres ordi (j'ai essayé avec trois différents) une seule Section me fait des misères sur l'ouverture d'une extraction et me donne le message VBA suivant :

Erreur de compilation:
Projet ou bibliothèque introuvable.


Je vous donne le code d'un des 7 qui fonctionne parfaitement :

Private Sub btnExtraction_Click()
tablo = Sheets("A-Liste Adhérents").Range("A2:J" & Sheets("A-Liste Adhérents").Range("A" & Rows.Count).End(xlUp).Row)
ReDim tabres(UBound(tablo, 1), 1 To UBound(tablo, 2))
ligne = LBound(tabres, 1)
For n = LBound(tablo, 1) To UBound(tablo, 1)
If InStr(tablo(n, 10), Me.cboCategories1) <> 0 Then
For m = LBound(tabres, 2) To UBound(tabres, 2)
tabres(ligne, m) = tablo(n, m)
Next
ligne = ligne + 1
End If
Next
On Error Resume Next
Sheets(Me.cboCategories1).Select
If Err.Number <> 0 Then Sheets.Add.Name = Me.cboCategories1
Sheets(Me.cboCategories1).Select
On Error GoTo 0
ActiveSheet.Cells.ClearContents
Sheets("A-Liste Adhérents").Range("A2:J2").Copy Destination:=ActiveSheet.Range("A2")
ActiveSheet.Range("A3").Resize(UBound(tabres, 1) + 1, UBound(tabres, 2)) = tabres



Et le code du huitième qui pose problème :


Private Sub btnExtraction_Click()
tablo = Sheets("SG-Liste Adhérents").Range("A2:J" & Sheets("SG-Liste Adhérents").Range("A" & Rows.Count).End(xlUp).Row)
ReDim tabres(UBound(tablo, 1), 1 To UBound(tablo, 2))
ligne = LBound(tabres, 1)
For n = LBound(tablo, 1) To UBound(tablo, 1)
If InStr(tablo(n, 10), Me.cboCategories1) <> 0 Then
For m = LBound(tabres, 2) To UBound(tabres, 2)
tabres(ligne, m) = tablo(n, m)
Next
ligne = ligne + 1
End If
Next
On Error Resume Next
Sheets(Me.cboCategories1).Select
If Err.Number <> 0 Then Sheets.Add.Name = Me.cboCategories1
Sheets(Me.cboCategories1).Select
On Error GoTo 0
ActiveSheet.Cells.ClearContents
Sheets("SG-Liste Adhérents").Range("A2:J2").Copy Destination:=ActiveSheet.Range("A2")
ActiveSheet.Range("A3").Resize(UBound(tabres, 1) + 1, UBound(tabres, 2)) = tabres


Dans ce code, tablo est surligné en bleu. La seule différence est celle des noms d'onglet ...

Auriez-vous une petite idée sur ce cas de figure ?

(Je ne peux pas mettre en ligne les fichiers qui contiennent des infos privées.)

Si vous pouvez quand-même m'aider ...

Bonne soirée à tous, Bernard17
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'746
Appréciations reçues : 226
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 1 octobre 2019, 19:53

Salut Bernard,

si mes souvenirs d'identique expérience sont bons :
- tu affiches le code ;
- Menu 'Outils' - 'Références' ;
- tu devrais avoir la liste des 'Références disponibles' dont une, cochée, mais signalée... je ne sais plus exactement... non disponible ou absente... ;
- tu décoches cette "option" ;
- enregistre et redémarre le fichier.

... si c'est la même situation que j'ai déjà rencontrée, évidemment!

A+
B
Bernard17
Jeune membre
Jeune membre
Messages : 16
Inscrit le : 29 septembre 2019
Version d'Excel : 2010

Message par Bernard17 » 1 octobre 2019, 20:16

Bonsoir curculi57 (mosellan ?)

Ton idée est la bonne, j'ai décoché un pack non installé et ça fonctionne parfaitement, je vais regarder ça sur les autres machines demain (ils sont couchés ...)

Ce qui m'étonne, c'est que les autres Sections fonctionnent bien sauf une alors qu'elles sont bâties de la même façon à la différence près de leurs noms d'onglet ... Mais bon, ça tourne, donc tant-mieux.

Merci encore à toi et très bonne fin de soirée à tous.

Bernard17
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'746
Appréciations reçues : 226
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 1 octobre 2019, 20:45

(mosellan ?)
Non... :( ... vieux...

OOOO OOOO

8-)
A+
B
Bernard17
Jeune membre
Jeune membre
Messages : 16
Inscrit le : 29 septembre 2019
Version d'Excel : 2010

Message par Bernard17 » 2 octobre 2019, 07:39

Moi je dirais ... jeune ! 17 est mon département, 73 est le reste :lol:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message