Bonjour je déclare une procédure avec des arguments que j'appelle ensuite et cela ne marche pas. Cela me dit que j'ai une erreur au caractère 35 sur le Sub qu'il manque une ")":

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
36
 
Dim n1
Dim n
Dim strSearchFor
Dim z 
Dim m
Dim o
Dim x
Dim a
Dim WshShell
Dim demander
Dim nomdefichier
Dim NewFichier
Dim OrigineFichier
Dim Txt_tbl
Dim Newfichier2
Const ForReading = 1, ForWriting = 2
Sub ConstruitTableau2D(ByVal arg1 As String, ByVal arg2 As String)
 
strSearchFor = "ODP3"
    'ChemNomFichier = InputBox("Quel est le chemin du fichier à exporter au format npm ? (Ne rentrez pas l'extension du fichier)", "Chemin du fichier à importer")
    'NewFichier = ChemNomFichier & ".txt"
    'OrigineFichier = ChemNomFichier & ".TRA"
 
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    'fso.MoveFile OrigineFichier, ChemNomFichier & ".txt"
    'Rename (OrigineFichier, ChemNomFichier & ".txt")
    arg1 = Replace(arg1, ".TRA", ".txt")
    ChemNomFichier = arg1
    Set fichier = fso.opentextfile(ChemNomFichier, 1)
    ContenuFichier = fichier.ReadAll
    fichier.Close
    Set fichier = Nothing
    Set fso = Nothing
End Sub
PS: Je n'ai pas mis l’intégrité du code