J'ai des difficultés à exécuter la fonction Mid dans un projet sous excel. Erreur retourner:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Erreur de compilation
 
Projet ou bibliothèque introuvable
lorsque je saisie

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
MyString = "Démo Fonction Mid"    ' Crée une chaîne texte.
Cells(1, 7) = Mid(MyString, 1, 4)    ' Renvoie "Démo".
Cells(1, 8) = Mid(MyString, 6, 8)    ' Renvoie "Fonction".
Cells(1, 9) = Mid(MyString, 6)
dans une autre feuille, il n'y a pas d'erreur !
Voici le code de la fonction qui pose problème:
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
Public Function DecomposerChaineConfiguration(laData As String, ByRef leNom As String, ByRef laChaine As String) As Boolean
    Dim lgChaine As Integer
    Dim i As Integer
    Dim test As String
 
    lgChaine = Len(laData)
    leNom = ""
    laChaine = ""
 
    For i = 1 To lgChaine
    test = Mid(laData, i, 1)
 
        If test = "=" Then
            laChaine = Mid(laData, i + 1, lgChaine)
            DecomposerChaineConfiguration = True
            Exit Function
        End If
        leNom = leNom & Mid(laData, i, 1)
 
    Next
    DecomposerChaineConfiguration = False
End Function
Aidez moi svp car je suis à bout d'idées !

ps: Dans outils\références, il n'y a aucunes bibliothèques ou projets MANQUANTS !!