Bonjour,

j'ai créé une application VB.NET qui effectue les tâches suivantes :
1-Renommer des fichiers Excel,
2-Copier des fichiers Excel dans des dossiers précis,
3-Exécuter un lot DTSX hébergé sur un serveur SQL,
4-supprimer les fichiers Excel traités.

Les points 1, 2 et 4 fonctionnent parfaitement.

En revanche, le point 3 ne marche pas malgré ce que j'ai lu dans le forum.

Est-ce que quelqu'un pourrait m'aider à résoudre ce point.

Ci-dessous code réalisé :

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
Module Module1
 
    Sub Main()
        Dim ValeurEntree
        Dim NumSemaine
        Dim Annee
        Dim RepertoireSauve
        Dim RepertoireTemp
        Dim NomFichier
        Dim CheminFichier
        Dim TableauCS(6, 1)
        Dim oFSO
        Dim oFl
        Dim TestPos
 
        RepertoireTemp = "\\SERVDC\Public$\Integration CRH"
        RepertoireSauve = "C:\Synchronisation\Force_de_Vente\Interne "
        oFSO = CreateObject("Scripting.FileSystemObject")
        TableauCS(0, 0) = "BAUDY"
        TableauCS(0, 1) = "Olivier"
        TableauCS(1, 0) = "BELLARD"
        TableauCS(1, 1) = "Fabienne"
        TableauCS(2, 0) = "BELLET"
        TableauCS(2, 1) = "Géraldine"
        TableauCS(3, 0) = "BONAL"
        TableauCS(3, 1) = "Michel"
        TableauCS(4, 0) = "MARES"
        TableauCS(4, 1) = "Patrick"
        TableauCS(5, 0) = "POUYES"
        TableauCS(5, 1) = "Alain"
        TableauCS(6, 0) = "SECQ"
        TableauCS(6, 1) = "Sébastien"
 
        Do
            Console.WriteLine("Saisir l'année de la semaine traitée")
            ValeurEntree = Console.ReadLine()
            'Tourne tant que ce n'est pas un nombre
        Loop Until IsNumeric(ValeurEntree)
 
        Annee = ValeurEntree
 
        Do
            Console.WriteLine("Saisir le numero de la semaine traitée")
            ValeurEntree = Console.ReadLine()
            'Tourne tant que ce n'est pas un nombre
        Loop Until IsNumeric(ValeurEntree)
 
        NumSemaine = ValeurEntree
 
        If oFSO.FolderExists(RepertoireTemp) Then
            For Each oFl In oFSO.GetFolder(RepertoireTemp).Files
                NomFichier = oFl.Name
                For i = 0 To 6
                    TestPos = InStr(NomFichier, TableauCS(i, 0), CompareMethod.Text)
                    If TestPos > 0 Then
                        CheminFichier = RepertoireSauve & TableauCS(i, 0) & " " & TableauCS(i, 1) & "\CRH\" & TableauCS(i, 0) & " - CRH " & Annee & "\" & TableauCS(i, 0) & " - CRH " & Annee & " - S" & NumSemaine & ".xls"
                        oFl.copy(CheminFichier)
                        CheminFichier = RepertoireTemp & "\" & TableauCS(i, 0) & " - CRH.xls"
                        oFl.Move(CheminFichier)
                    End If
                Next
            Next
        End If
    End Sub
 
End Module