Discussion :

[phil666]

Bonjour

J'ai écrit un script qui me permet de transformer un fichier XLS en VBS (cfr autre discussion sur ce forum). le problème que j'ai maintenant est que pour chaque worksheet que je veux transformer, je reçois le message:

"Do you want to save the changes you made to my_file.xls"


Comme le script doit s'exécuter du Week-end, je souhaiterai ne pas avoir ces messages. Quelqu'un peut il me dire si c'est possible?


Merci

[SfJ5Rpw8]

on peu voir l'instruction qui te permet de quitter excel... pour quitter sans sauver ... mettre application.Saved à true

[phil666]

voici le code du script

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Option Explicit
 
Dim objExcel, strExcelPath, objSheet, intRow, intCol
Dim objUser
DIM fso, CSVFile
Dim str
Dim csv_path, xls_path
 
'Bind to Excel object
On error Resume Next
Set objExcel = CreateObject("Excel.Application")
If Err.Number <> 0 Then
   On Error Goto 0
   Wscript.Echo "Excel application not found."
   Wscript.Quit
End If
On Error Goto 0 
 
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
csv_path = "c:\csv\"
xls_path = "c:\xls\"
 
 
'***********************************************************************ok
strExcelPath = xls_path & "my_file.xls"
 
Set CSVFile = fso.CreateTextFile(csv_path & "my_file.CSV", True)
 
'Open specified spreadsheet and select the worksheet.
objExcel.WorkBooks.Open strExcelPath
Set objSheet = objExcel.ActiveWorkbook.Worksheets("Actieve Dossiers")
LOGFile.Writeline("Worksheet: Actieve Dossiers")
 
' Iterate through the rows of the spreadsheet after the first, until the
' first blank entry in the first column. For each row, bind to the user
' specified in the first column and set attributes.
intRow = 2
 
Do while objSheet.Cells(intRow, 3).text <> ""
   str = ""
   FOR intCol = 1 to 18
      str = str & outstr(objSheet.Cells(intRow, intCOL).text) & ";"       
   NEXT
   Str = str & "x"
   On Error Resume Next
 
   IF instr (str, "#VALEUR!") = 0 AND instr (str, "#REF!") = 0 AND instr (str, "#NUM!") = 0 AND instr (str, "#NAME?") = 0 THEN
      CSVFile.Writeline(str)
      nbr_rec_ok = nbr_rec_ok + 1      
   END IF
 
   On error Goto 0
 
   intRow = intRow + 1
Loop
 
' Close file
CSVFile.Close
' Close workbook
objExcel.ActiveWorkBook.Close
'Clean up
Set objSheet = Nothing
 
' quit Excel
objExcel.Application.Quit
 
'Clean up
Set objExcel = Nothing

[SfJ5Rpw8]

essai :

Code :

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

1
2
3
4
5
6
7
8
 
 
(..)
' quit Excel
objExcel.Application.DisplayAlerts = False 
objExcel.Application.Quit
 
(..)

pour inhiber les messages d'alertes..

[phil666]

Comme dans ce script j'ai plusieurs workbook d'ouvert, chaque fois qu'un csv est créé je fais un close de l'active workbook mais avant je fais un saved = TRUE

Code :

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

1
2
3
4
5
' Close file
CSVFile.Close
' Close workbook 
objExcel.ActiveWorkBook.saved = TRUE
objExcel.ActiveWorkBook.Close

et ça marche très bien, je n'ai plus le message "voulez vous sauvegarder ..."


Cependant, je reçois un autre message, dans le cas où la feuille Excel contient des liens vers d'autres feuilles Excel:

the workbook you opened contains automatic links to information in another workbook. Do you want to update this workbook with changes made to other workbook?
to update all linked information, click Yes
to keep the existing information, click No

existe t il une méthode commme saved = true qui permet de ne pas montrer ce message?

J'ai essayé la méthode DisplayAlerts = False appliqué à objExcel.ActiveWorkBook mais ça ne marche pas

[SfJ5Rpw8]

..J'ai essayé la méthode DisplayAlerts = False appliqué à objExcel.ActiveWorkBook mais ça ne marche pas

il faut l'appliquer à lobjet excel application...

Code :

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

objExcel.Application.DisplayAlerts = False

[phil666]

j'ai testé avec le code

Code :

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

objExcel.Application.DisplayAlerts = False

mais je reçois toujours le message:

the workbook you opened contains automatic links to information in another workbook. Do you want to update this workbook with changes made to other workbook?
to update all linked information, click Yes
to keep the existing information, click No

[phil666]

Existe t il quelque chose d'équivalent au VB pour vbscript de:

Code :

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

ActiveWorkbook.UpdateLinks = False

j'ai essayé cette méthode mais je reçois une erreur lors de l'exécution du script. peut être que je l'utilise mal, dans ce cas, quelle est la syntaxe correct?

[AlainTech]

D'instinct, sans avoir testé, je dirais:

Code :

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

objExcel.ActiveWorkbook.UpdateLinks = False

[phil666]

j'ai déjà essayé ça mais ça ne marche pas

[SfJ5Rpw8]

à priori ton message doit apparaitre à l'ouverture du classeur ... essai :

Code :

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

1
2
3
4
 
...
objExcel.WorkBooks.Open strExcelPath, false
...

[phil666]

ça marche, merci beaucoup