Discussion :

[laurent27530]

Bonjour mon code me retourne une erreur que j'arrive pas a supprimer sur la ligne 24 "GoTo FichierSuivant"

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Option Explicit
 
Dim fso, dossier, fichier, ligne, lignes, i
Dim cheminDossier, colonnes, idxHeure, idxStatut, valeurHeure, valeurStatut
Dim tsIn, tsOut, enTete
 
cheminDossier = "C:\TEMP\"
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(cheminDossier)
 
For Each fichier In dossier.Files
 
    If LCase(fso.GetExtensionName(fichier.Name)) = "csv" Then
 
        ' Gérer les erreurs pour ce fichier uniquement
        On Error Resume Next
 
        Set tsIn = fso.OpenTextFile(fichier.Path, 1, False, -1)
        If Err.Number <> 0 Then
            WScript.Echo "Erreur ouverture : " & fichier.Name
            Err.Clear
            On Error GoTo 0
            GoTo FichierSuivant
        End If
 
        On Error GoTo 0 ' Réactiver les erreurs
 
        If Not tsIn.AtEndOfStream Then
            enTete = tsIn.ReadLine
            colonnes = Split(enTete, ",")
            idxHeure = -1
            idxStatut = -1
 
            For i = 0 To UBound(colonnes)
                If Trim(colonnes(i)) = "Heures" Then idxHeure = i
                If Trim(colonnes(i)) = "Statut d’approbation" Then idxStatut = i
            Next
 
            If idxHeure = -1 Or idxStatut = -1 Then
                WScript.Echo "Colonnes manquantes dans : " & fichier.Name
                tsIn.Close
                GoTo FichierSuivant
            End If
 
            lignes = Array()
            ReDim Preserve lignes(0)
            lignes(0) = enTete
 
            Do Until tsIn.AtEndOfStream
                ligne = tsIn.ReadLine
                If Trim(ligne) <> "" Then
                    Dim champs
                    champs = Split(ligne, ",")
                    If UBound(champs) >= idxStatut Then
                        valeurHeure = Trim(champs(idxHeure))
                        valeurStatut = Trim(champs(idxStatut))
                        If valeurHeure <> "" And valeurHeure <> "0" Then
                            If valeurStatut = "Approuvé" Then
                                ReDim Preserve lignes(UBound(lignes) + 1)
                                lignes(UBound(lignes)) = ligne
                            End If
                        End If
                    End If
                End If
            Loop
        End If
 
        tsIn.Close
 
        ' Écriture sécurisée
        On Error Resume Next
        Set tsOut = fso.CreateTextFile(cheminDossier & "filtré_" & fichier.Name, True, True)
        If Err.Number <> 0 Then
            WScript.Echo "Erreur écriture : " & fichier.Name
            Err.Clear
            On Error GoTo 0
            GoTo FichierSuivant
        End If
        On Error GoTo 0
 
        For i = 0 To UBound(lignes)
            tsOut.WriteLine lignes(i)
        Next
        tsOut.Close
 
        WScript.Echo "Fichier filtré : " & fichier.Name
 
    End If
 
FichierSuivant:
Next
 
WScript.Echo "Traitement terminé."

[umfred]

et que dit le message d'erreur ?

Après une recherche rapide, il n'y a pas de Goto en VBscript (sauf dans le cadre de On Error (https://stackoverflow.com/questions/...cted-statement)
Donc il faudrait "inverser" tes conditions et tests de manière à poursuivre le programme si les bonnes conditions sont remplies (ou si les mauvaises conditions ne sont pas remplis)

[Mat.M]

Mettez en commentaires les on error.
S'il y a une erreur d'exécution vous obtiendrez une messagebox d'erreur.
Mais n'utilisez pas on error avant d'avoir résolu les erreurs retournées