Discussion :

[subzero25]

Mon problème est le suivant :
- Je voudrais enregistrer sous un fichier Excel que j'obtiens en faisant une extraction depuis SAP.

Voici mon le bout de code qui doit faire sa :

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
 
 
Set WSHShell = CreateObject("WScript.Shell") 
WSHShell.Run "wscript c:\user\U538819\VBS\Reception.vbs"
 
WScript.Sleep 10000
 
Dim chemin 'As String
Dim fichier 'As String
Dim jour
 
chemin = "c:\user\U538819\"
 
jour = Day(Now) & "/"& Month(Now) & "/" & Year(Now) & "_" & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
fichier = "Reception_" & jour  & ".xls"
 
 
ActiveWorkbook.SaveCopyAs chemin & fichier
 
save.hide
 
MsgBox "Save faite !"

Si quelqu'un pouvais m'indiquer mes erreurs et les solutions à mettre en place.
Merci.


Edit:

Voici l'erreur que sa produit;