Bonjour,

J'ai un petit souci avec un code en vbscript lancé dans un lot DTS.

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
'**********************************************************************
'  Script Visual Basic ActiveX
'************************************************************************
 
Function Main()
 
Dim objet_fso
Dim sysDate
Dim Source
Dim Dest
 
	sysDate = now()
	Set objet_fso = CreateObject("Scripting.FileSystemObject")
	Source="\\serveur\groups$\Direction_RH\Anomalies de pointage\anomalies.xls"
	Dest="\\serveur\groups$\Direction_RH\Anomalies de pointage\anomalies" & right("00" & DatePart("d",sysDate ),2) & Right("00" & DatePart("m", sysDate ),2) & DatePart("yyyy", sysDate ) & ".xls" 
	 If objet_fso.FileExists(Source) Then
   		objet_fso.MoveFile Source, Dest
	End If
 
	Source="\\serveur\groups$\Direction_RH\Anomalies de pointage\Nepasdetruire_anomalies.xls"
	Dest="\\serveur\groups$\Direction_RH\Anomalies de pointage\anomalies.xls"
  	objet_fso.CopyFile Source, Dest
	Main = DTSTaskExecResult_Success
End Function
Si je lance la tache par bouton droit/exécuter cela fonctionne, y compris avec le profil utilisé pour lancer l'agent sql. Si je planifie le lot, cela ne fonctionne pas.

Une idée?