Sauvegarde d'un fichier Excel obtenu par extraction via SAP

Version imprimable

1 pièce(s) jointe(s)

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:

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;

Pièce jointe 365280

28/03/2018, 13h51
omen999

bonjour,

en début de script ajouter :

Code:

Set appExcel = CreateObject("Excel.Application")

ensuite remplacer la ligne 18 par :

Code:

appExcel.ActiveWorkbook.SaveCopyAs chemin & fichier

devrait fonctionner... (pas testé)
28/03/2018, 13h58
subzero25

1 pièce(s) jointe(s)

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

Elle est identique à la précédente:

Pièce jointe 365293

Le problème vient de ActiveWorkbook :?
28/03/2018, 14h22
Cachlab

Bonjour,

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

Code:

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

Par exemple ...
++
28/03/2018, 14h28
subzero25

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

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:

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 !"

29/03/2018, 08h24
subzero25

Cette méthode fonctionne bien mais c'est pas le résultat que je cherche à avoir enfaite.
Mon script fait une extraction de données depuis l'erp de mon entreprise, une fois l'extraction terminé j'exporte le contenu en Excel. Cela me génère un Excel temporaire le temps que je l'enregitre.
Ce que moi je voudrais c'est de recuperer cette fenetre Excel géneré et de l'enregistrer.
30/03/2018, 09h12
Cachlab

Salut !
Je pourrais t'aider en VBA, mais pas en VBS (à cause de la notion d'ActiveWorkBook).
Est-ce qu'une macro Excel te conviendrait ?
30/03/2018, 11h19
subzero25

J'ai pu résoudre mon problème merci.

Mais toutefois maintenant je suis en train de faire des recherches pour mettre en place une macro.
J'aurais voulu savoir, puis je créer une macro excel sur plusieurs excel d'un même dossier avec le bouton associé (chaque fichier on la même trame c'est juste les donnée qui change) ??

Et deuxième question je voudrais filtrer des donnée spécifique dans une colonne ( par exemple une colonne produit; je voudrais filtrer tout les produit ayant le nom vélo et voiture ) et les placés tout en bas dans mon Excel serais ce possible ??

Merci.

Motif de l'édit:
Pour la suite, nouvelle discussion [XL-2016] Filtre et tri d'une colonne dans le forum Macros et VBA Excel.
30/03/2018, 13h14
Marc-L

Bonjour !

Citation:

Envoyé par Cachlab

Je pourrais t'aider en VBA, mais pas en VBS (à cause de la notion d'ActiveWorkBook).

Comme Excel peut se piloter en VBScript, ce n'est pas un souci !

Tout dépend déjà d'où doit se situer le code, au sein d'un classeur ou initié en VBScript …
En VBA, voir déjà les discussions similaires dans le forum approprié.

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour,

Il me reste un tout petit soucis a corriger dans mon code. Tout marche parfaitement sa sauvegarde nickel.
Le petit problème maintenant c'est qu'il me faut les sauvegarder en .xlsm mais une fois rentré en dur dans le code et lancé cela m'affiche une erreur. J'ai fait quelque recherche me disant qu'il fallait directement choisir le type de fichier quand on enregistre le fichier.
Savez vous s'il est possible de sauvegarder un fichier Excel avec l'extension .xlsm à partir de mon scprit VBS ?

Voici ma méthode d'enregistrement pour l'instant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Set WSHShell = CreateObject("WScript.Shell") WSHShell.Run "wscript c:\user\U538819\VBS\Reception.vbs" chemin1 = "c:\user\U538819\Reception\" jour = Day(Now) & "_"& Month(Now) & "_" & Year(Now) & "_" & Hour(Now) & "h" & Minute(Now) & "mn" & Second(Now) &"s" fichierR = "Reception_" & jour & ".xlsx" 'Set objWorkbook = appExcel.Workbooks.Add() WScript.Sleep 25000 Set appExcel = getObject(, "Excel.Application") appExcel.ActiveWorkbook.SaveAs(chemin1 & fichierR) appExcel.quit
Merci.

08/06/2019, 12h13
Midos555

Salut subzero

Salut
Je suis bloquer a l ouverture de la boite de dialogue
Enregistrer sous
Comment a tu contourne et par quel code
Peut tu partager ton excel stp
08/06/2019, 13h29
l_autodidacte

Si tu veux avoir une réponse à ton cas de problème, ouvre une nouvelle discussion et expose ton problème avec le plus de détails possibles.
Pour enregistrer le fichier, en VBscript tu n'as pas besoin d'ouvrir (voir) la boîte de message Enregistrer sous...
08/06/2019, 17h22
Midos555

Merci de ta réponse j'ai ouvert une nouvelle discussion mais elle reste, malheureusement, vide.
Tout y est décrit.
J'ai repris la suite sur celle-ci car ça correspond à ce que je cherche.
Je te situe où je me trouve :
C'est quand j'arrive à la sauvegarde de mon extract.
J'ai 2 solutions par spreadsheet qui ouvre la boite de dialogue Save as de Windows et par la solution %Pc qui ouvre la box SAP pour sauvegarder.
Je cherche la solution avec la boite de dialogue Save as de Windows.

Citation:

Envoyé par subzero25

Il me reste un tout petit soucis a corriger dans mon code. Tout marche parfaitement ça sauvegarde nickel. ......J'ai fait quelque recherche me disant qu'il fallait directement choisir le type de fichier quand on enregistre le fichier.
Savez vous s'il est possible de sauvegarder un fichier Excel avec l'extension .xlsm à partir de mon scprit VBS ?

Essaie avec chacune des deux méthodes suivantes :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Option Explicit ' 2 solutions possibles : Dim appExcel, wBook, FileName Const xlDialogSaveAs = 5 Const xlOpenXMLWorkbookMacroEnabled = 52 ' pour *.xlsm Set appExcel = CreateObject("Excel.Application") Set wBook = appExcel.Workbooks.Open("C:\SrcTest.xlsx") ' 1ère solution : Boite de dialogue Save As ( Enregistrer sous) et choisir l'extension : appExcel.Dialogs(xlDialogSaveAs).Show ' 2ème solution : enregistrement sans boite de dialogue tout en choisissant le format de sortie ' avec la syntaxe (réduite) : Object.SaveAs FileName, xlFileFormat FileName = "C:\Temp\Test.xlsm" wBook.SaveAs FileName, xlOpenXMLWorkbookMacroEnabled
Pour ce dernier cas, voir : https://docs.microsoft.com/en-us/off...l.xlfileformat