Discussion :

[mog83]

Bonjour,

Je suis entrain de modifier un code sur projet qui à été implémenter par une autre personne. j'ai une erreur a l'ouverture de la macro et je n'arrive pas à résoudre le problème.

voilà le code et l'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Workbook_Open()
 
On Error GoTo Err_WbkOpen
    'Trier certaines zones
    SortRange "Liste_Agglomeration"   ' <--- Erreur!
    SortRange "Liste_TGM"
    SortRange "Liste_IMEI"
    SortRange "Liste_NMobile"
    SortRange "Liste_NFixe"
    'SortRange "Liste_NFixeVisio"
    SortRange "Liste_Equipe"
 
    'trier les détails pour les différents bilans
    Dim s$, i&
    s = "AXMECH"
    For i = 1 To Len(s)
        SortRange "detvx" & Mid(s, i, 1)
        SortRange "detvt" & Mid(s, i, 1)
    Next
 
    'Ne pas charger la feuille de saisie si:
    '   - il s'agit du modèle
    '   - la touche contrôle est appuyée
    If Me.FileFormat <> xlTemplate Then
        Me.Worksheets("config").Visible = xlSheetHidden
        If ControlPressed Then Exit Sub
        ShowSaisie
    End If
    Exit Sub
 
Err_WbkOpen:
    If Err.Number = 0 Then Exit Sub
    MsgBox Err.Description & "(0x" & Hex(Err.Number) & ")", vbOKOnly, Err.Source
    Err.Clear
End Sub

voilà l'erreur :

erreur de compilation:

Projet ou Bibliothèque Introuvable

est-ce qu'il y a quelqu'un qui puisse m'aidai??

merci

[OhMonBato]

C'est du VBA Excel ?

[Faladin]

on dirait bien du VBA,

mais bon, même si le but de la question était sûrement de te faire réaliser que tu es pas dans le bon forum, j'ai l'impression qu'il te manque sûrement soit un lien vers une bibliothèque ou un import de référence au début de ton projet, un peu comme on le fait en VB.Net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Import librairie requise

Private Sub Workbook_Open()
   '[...]
End Sub

[zazaraignée]

C'est comme de rien que la macro (procédure, fonction...) SortRange a été développée à l'origine dans le classeur perso.xls (ou un autre classeur ou module de référence) du programmeur auteur. Si cette 'autre personne' est contactable (disponible, de ce monde, encore en poste), je crois que c'est à elle (ou lui) qu'il faut demander.