Discussion :

[Michelk12]

Bonjour,

Voilà un bout de code "mystère" :

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
Dim objexcel
Dim objworkbook
Set objexcel = CreateObject("Excel.Application")
 
objexcel.visible = false
 
Set objworkbook = objexcel.workbooks.open("D:\Temp\TESTfusion.xls")
 
objworkbook.Save
 
objexcel.WorkBooks.Close
 
objexcel.Application.Quit
 
Set objexcel = Nothing

Le fichier .xls est bien créé mais je ne l'ai qu'en "lecture seule".
Si je veux le supprimer : impossible.
Et de plus ça fait ramer le petit serveur (sous Windows 2000) que je suis contraint de redémarrer.

Pour info : il s'agit d'Excel 2000.

Si vous idée, je suis preneur!!

Michel

[roro06]

Bonjour

L'utilisation des programmes des suites offices est fortement déconseillée dans des environnements serveur car risque d'instabilité. En gros, "c'est pas fait pour". (lien)

Néanmoins, essaye peut-être plutôt :

Code :

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

Set objexcel = Server.CreateObject("Excel.Application")

et:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Set objworkbook = objexcel.workbooks.open("D:\Temp\TESTfusion.xls")
 
objworkbook.Save
 
objworkbook.Close
 
objworkbook.Quit
 
set objworkbook=Nothing
Set objexcel = Nothing

(je m'avance peut-être un peu, ne connaissant pas ce modèle objet)