Erreur dans mon script incompréhensible
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:
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