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;

[omen999]

bonjour,

en début de script ajouter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set appExcel = CreateObject("Excel.Application")

ensuite remplacer la ligne 18 par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

appExcel.ActiveWorkbook.SaveCopyAs chemin & fichier

devrait fonctionner... (pas testé)

[subzero25]

Je viens d’essayer et ça ne fonctionne toujours pas voici l'erreur qu'il m'affiche.

Elle est identique à la précédente:



Le problème vient de ActiveWorkbook

[Cachlab]

Bonjour,

A première vue tu souhaites enregistrer un fichier avec un nom du type : "Reception_28/3/2018_14:16:4.xls"
Essai déjà sans les / ni les :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

jour = Day(Now) & "."& Month(Now) & "." & Year(Now) & "_" & Hour(Now) & "h" & Minute(Now) & "mn" & Second(Now)

Par exemple ...
++

[subzero25]

Oui malheuresement le probleme ne vient pas de là j'ai fais les essais mais toujours la même erreur avec le ActiveWorkbook

[Cachlab]

Re,

A vrai dire je ne sais pas trop ce que tu essayes de faire.
Néanmoins, voici comment générer et enregistrer un fichier Excel au format que tu souhaites :

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
 
Set WSHShell = CreateObject("WScript.Shell") 
Set appExcel = CreateObject("Excel.Application")
WSHShell.Run "wscript c:\user\U538819\VBS\Reception.vbs"
WScript.Sleep 10000
 
Dim chemin, fichier, jour
 
chemin = "c:\user\U538819\"
jour = Day(Now) & "."& Month(Now) & "." & Year(Now) & "_" & Hour(Now) & "h" & Minute(Now) & "mn" & Second(Now)
fichier = "Reception_" & jour  & ".xls"
 
'appExcel.Visible = True
 
Set objWorkbook = appExcel.Workbooks.Add()
objWorkbook.SaveAs(chemin&fichier)
 
appExcel.quit
 
MsgBox "Save faite !"

++