suppression des messages Warning Excel lors de l'exécution d'un vbscript

Version imprimable

04/07/2006, 12h51
phil666

suppression des messages Warning Excel lors de l'exécution d'un vbscript

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
04/07/2006, 18h46
SfJ5Rpw8

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

voici le code du script

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

essai :

Code:

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

pour inhiber les messages d'alertes..

05/07/2006, 12h12
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:

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:

Citation:

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
05/07/2006, 12h26
SfJ5Rpw8

Citation:

Envoyé par phil666

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

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

Code:

objExcel.Application.DisplayAlerts = False
05/07/2006, 20h56
phil666

j'ai testé avec le code

Code:

objExcel.Application.DisplayAlerts = False

mais je reçois toujours le message:

Citation:

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
06/07/2006, 05h21
phil666

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

Code:

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?
07/07/2006, 09h56
AlainTech

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

Code:

objExcel.ActiveWorkbook.UpdateLinks = False
07/07/2006, 17h59
phil666

j'ai déjà essayé ça mais ça ne marche pas :cry:
07/07/2006, 18h28
SfJ5Rpw8
à priori ton message doit apparaitre à l'ouverture du classeur ... essai :
Code:

1 2 3 4 ... objExcel.WorkBooks.Open strExcelPath, false ...
07/07/2006, 19h24
phil666

ça marche, merci beaucoup :D