Bonjour,
je suis nouveau ici et la programmation n'a jamais mon domaine mais j'en ai fait un peu c'est à moi que revient le boulot et je n'ai personne pour m'aider dans mon entreprise.
j'ai trouvé une source sur un autre site utilisant un module dans lequel est la fonction StrConv.. aucun souci la fonctione fonctionne très bien.
Or quand je recopie le module dans l'application sur laquelle je bosse j'ai une erreur à la compilation "Can't find project or library".
J'ai vérifié que j'avais bien activé les meme control est c'est bien le cas...
Le reste dépasse mes compétence en informatique. si vous pouviez m'indiquer d'où vient le problème
merci par avance
voici ledit code : dans l'appli que j'ai chopé elle fonctionne... mais pas quand je recopie (ou meme importe) le module dans la mienne
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 Option Explicit Public Function Crypt(Value As String) As String Dim b() As Byte Dim iPnt As Integer b = StrConv(Value, vbFromUnicode) For iPnt = 0 To UBound(b) If iPnt Mod 2 Then b(iPnt) = b(iPnt) + 1 Else b(iPnt) = b(iPnt) - 1 End If Crypt = Crypt & Chr(b(iPnt)) Next End Function







Répondre avec citation





Partager