La fonction Mid

Version imprimable

La fonction Mid

J'ai des difficultés à exécuter la fonction Mid dans un projet sous excel. Erreur retourner:

Code:

1
2
3
Erreur de compilation
 
Projet ou bibliothèque introuvable

lorsque je saisie

Code:

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:

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 !!

27/09/2007, 18h16
cafeine

Hello,

décoche une référence, enregistre, recoche une référence et réenregistre ?
27/09/2007, 18h46
koueletbak

fonction mid

Non, cela ne marche pas (j'ai essayé dans tous les sens !), maintenat il me signale une bibliothèque manquante. La bibliothèque est :

Citation:

Microsoft Active Server Pages Library

mais le chemin est tronqué, je n'arrive pas à pointer sur la dll. Savez vous quelle dll cette bibliothèque utilise ?
27/09/2007, 18h54
patbou

bonjour,

comment appelle tu cette fonction ?
27/09/2007, 19h02
koueletbak

Comme ça:

Code:

DecomposerChaineConfiguration laData, leParametre, laValeur
27/09/2007, 19h11
ouskel'n'or

Citation:

Envoyé par koueletbak

Non, cela ne marche pas (j'ai essayé dans tous les sens !), maintenat il me signale une bibliothèque manquante.

Désactive cette référence