Bonjour
je travail actuellement sur un script qui traite la conjugaison de la phrase utilisateur
à plusieurs moments (une bonne cinquantaine de fois) je suis obligé de mettre au propre la phrase (pb avec les espaces).
pour cela je cherche a appelé une fonction dans un fichier externe.

VOICI LE L'EXEMPLE DANS LE SCRIPT PRINCIPAL
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
'-----------------------------------------------------------------------
1 Dim fsObj : Set fsObj = CreateObject("Scripting.FileSystemObject")
2 Dim vbsFile : Set vbsFile = fsObj.OpenTextFile("IruFunction.vbs", 1, False)
3 Dim IruFormat : IruFormat = vbsFile.ReadAll
4 vbsFile.Close
5 Set vbsFile = Nothing
6 Set fsObj = Nothing
7 ExecuteGlobal IruFormat
'-------------------------------------------------------------------------
'ici j'appel la fonction pour la mise au propre des espaces suite aux différents traitements que le script a appliqué sur la phrase utilisateur.
 
10 Sentence = IruFormat (Sentence)
VOICI LE FICHIER EXTERNE
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
'------------------------------------------------------------------------
Fonction IruFormat (Sentence)
Sentence = " " & Sentence & " "
Ori = Sentence
Do
Sentence = Replace (Sentence, "  ", " ")
If Ori = Sentence Then Exit Do
Loop
End If
End Function
'-------------------------------------------------------------------------
Cela donne un code erreur 1024 sur la ligne 7 du code principal

Il est honnête de ma part, de dire que je suis débutant dans la programmation.

Merci d'avance pour votre aide