Sauvegarder un classeur Excel actif

Version imprimable

07/09/2011, 17h14
silvin

Sauvegarder un classeur Excel actif

Bonjour,

J'utilise les scripts depuis peu de temps et je bloque un peu là.

En fait j'utilise un script qui ma fait une extraction depuis une base de données vers Excel.
Mais mon soucis est que ce classeur ainsi crée n'est pas sauvegardé, il est juste actif dans Excel.
Je peux le sauvegarder manuellement mais comme je voudrais pouvoir enchainer plusieurs script créeant à chaque fois un classeur excel, je voudrais automatiser la sauvegarde.

Donc, j'essaie de trouver comment réaliser la sauvegarde du classeur exporté.
Comme il n'y a pas de chemin d'accès, je ne trouve pas la solution :cry:

Vous auriez une idée ?

Merci d'avance
07/09/2011, 22h24
SfJ5Rpw8

Il ressemble à quoi ce script ? .. il lance excel comment ?
08/09/2011, 12h04
silvin

Le script est un script créer par un record des actions faites sur SAP, un peu comme on peut enregistrer des macros dans excel.

Et la dernière action du script actuel est de cliquer sur le menu et de choisir d'exporter les données dans Excel.

Mais ce n'est pas le script qui ouvre Excel, mais SAP, et sans le sauvegarder, c'est pour cela que je bloque....
08/09/2011, 21h31
l_autodidacte

Quand bbil a dit

Citation:

Il ressemble à quoi ce script ? .. il lance excel comment ?

cela veut dire qu'il(et les gens du forum) veut voir la partie du code qui cause le problème !!!!!
09/09/2011, 09h11
silvin

Oui j'avais bien compris.

Mais par ma réponse j'expliquais que mon script ne lançait pas excel.
Mon script demande juste à Sap d'exporter des données vers un classeur Excel.

Après c'est Sap qui ouvre Excel, pas mon script, donc le voir n'apportera rien...

Ce que je n'arrive pas à faire faire à mon script c'est de lui faire sauvegarder ce fichier Excel sans l'ouvrir puisque Sap le fait déja.

Je ne sais pas si je suis clair ?
09/09/2011, 12h31
hackoofr

:salut:
Pouvez-vous SVP faire un petit copier coller ici de votre code source en le mettant entre :tagcode:
:merci:

J'ai finalement contourner le problème en exportant les données vers un fichier locale, donc avec un fichier sauvegardé que je peux ouvrir avec mon script.

Par contre j'ai un soucis sur les formats de mes cellules...

Mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Set objExcel = CreateObject("Excel.Application" ) 
objExcel.Visible = False 
'permet d'enregistrer sans confirmation 
objExcel.DisplayAlerts = FALSE 
'on ouvre le fichier 
Set objWorkbook = objExcel.Workbooks.Open("C:\Thourotte\Sap\RECEPTION.XLS" ) 
'on ouvre la premiere feuille 
Set objWorksheet = objWorkbook.Worksheets(1) 
'on selectionne la premiere colonne 
set Selection = objWorksheet.Columns(1)
'on supprime la colonne selectionnée 
Selection.EntireColumn.Delete
set Selection = objWorksheet.Columns(1)
Selection.EntireColumn.Delete
set Selection = objWorksheet.Rows(1)
Selection.EntireRow.Delete
set Selection = objWorksheet.Rows(1)
Selection.EntireRow.Delete
set Selection = objWorksheet.Rows(1)
Selection.EntireRow.Delete
'60
set Selection = objWorksheet.Rows(2)
Selection.EntireRow.Delete
objWorksheet.Range("H1").Value = "Quantity"
 
set Selection = objWorksheet.Columns(10)
Selection.replace ".", "/"
Selection.NumberFormat = "dd/mm/yyyy" 
objWorkbook.Worksheets(1).Columns(4).NumberFormat = "@"
 
objWorkbook.Save() 
objWorkbook.close() 
'on ferme le fichier 
objExcel.Quit

Le problème se produit ligne 29.
Je pensais que cela fonctionnait pour me modifier le format de mes cellules de la colonne 4 en texte. (actuellement en format standard).

Cela ne devrait-il pas marcher ?