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 ")":
PS: Je n'ai pas mis l’intégrité du code
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
Partager