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

++

[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.

[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 ?

[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.

[Marc-L]

Bonjour !

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, …

[subzero25]

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 :

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
 
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.

[Midos555]

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

[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...​

[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.

[l_autodidacte]

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 :

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