VBS/Excel et plannificateur de tache

[guenneguez_t]

Bonjour,

J'ai un script vbs qui converti un fichier csv en fichier Excel (faisant appel à Excel).
Quand je le mets en tache planifié Windows (2008 R2), il ne fonctionne plus. Excel se lance et reste bloqué.

Le script est le suivant :

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
infile="C:\Sources\tmp\Cdtart.csv"
outfile="C:\Sources\tmp\Cdtart_2.xls"
 
Set Fso = CreateObject("Scripting.FileSystemObject")
if (Fso.FileExists(outfile)) Then
    Set FsoFile = fso.GetFile(outfile)
    FsoFile.Delete
End If
 
Set oExcel = CreateObject("Excel.Application")
Application.Visible = True
 
oExcel.displayalerts = false
 
Set oBook = oExcel.Workbooks.Open(infile, 2, false, 4)
Set xlSheet = oBook.Worksheets(1)
 
Set destinationRange = xlSheet.Range("B:B")
 
xlSheet.Range("A:A").TextToColumns destinationRange, , , ,true
xlSheet.Range("A:A").Delete
 
oBook.SaveAs outfile, 51
 
oBook.Close False
DoEvents
oExcel.Quit
 
Set oExcel = Nothing

Merci d'avance pour vos idées
Thomas