Discussion :

[JulienCEA]

Bonjour,
J'ouvre une application Excel avec la commande :

Code :

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

Set xlApp=New Excel.Application

Dans mon gestionnaire des taches windows, j'ai bien le processus EXCEL qui apparait.
Ensuite, je ferme l'application en faisant :

Code :

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

Set xlApp=nothing

Dans mon gestionnaire, le processus EXCEL disparait. Jusque là tout va bien.
Mais voilà mon problème : après l'ouverture d'excel, j'ouvre un classeur avec la commande :

Code :

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

Set xlModele = xlApp.Workbooks.Open(FileName:=Fichier_modele, UpdateLinks:=0)

Après, je veux fermer l'application de la même façon que précédemment. Mais malgré ça, le processus EXCEL reste actif. Que dois-je faire pour le décharger ?

[romrai]

Salut,

sinon essaie

Code :

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

1
2
3
4
5
6
 
xlapp.activeworkbook.save 'si tu veux sauver le fichier
xlapp.activeworkbook.close true
set xlmodele=nothing
xlapp.quit
set xlapp=nothing

[JulienCEA]

OK, ça marche après l'ouverture du classeur. Mais j'ai encore un problème de fermeture qui persiste. Voici mon code :

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
Set xlApp = New Excel.Application
Set xlModele = xlApp.Workbooks.Open(FileName:=Fichier_modele, UpdateLinks:=0)
xlModele.Activate
        
bMemo = xlApp.DisplayAlerts
xlApp.DisplayAlerts = False
On Error Resume Next
For Each MySheet In xlModele.Worksheets
  MySheet.Unprotect ""
Next
xlApp.DisplayAlerts = bMemo
On Error GoTo 0
        
xlApp.ActiveWorkbook.Close True
Set xlModele = Nothing
Set MySheet = Nothing
xlApp.Quit
Set xlApp = Nothing

Si je met ce code en gras avant le "for each", l'application se ferme bien, mais si je le met après comme ici, l'application ne se ferme pas ??

[SfJ5Rpw8]

et si avant tes lignes en gras tu palce :

Code :

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

xlModele.close true

[romrai]

Il ne te manque pas un truc du style

Code :

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

set mysheet=xlmodele.worksheets(1)

?

et avant jne sais pas si t'a fais les déclarations suivantes:

Code :

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

1
2
3
set xlapp        as excel.application
          set xlmodel     as excel.workbook
          set mysheet    as excel.worksheet

essaie t'introduire ça dans ton code et test le à nouveau

[JulienCEA]

Après plusieurs essais, je me suis rendu compte que c'est le for..each qui à l'origine de mon problème. En effet, avec le code suivant mon application excel est bien désactivée (les déclarations sont OK) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set xlApp = New Excel.Application
Set xlModele = xlApp.Workbooks.Open(FileName:=Fichier_modele,   UpdateLinks:=0)
Set MySheet = xlModele.Worksheets(1)
 
bMemo = xlApp.DisplayAlerts
xlApp.DisplayAlerts = False
MySheet.Unprotect ""
xlApp.DisplayAlerts = bMemo
 
xlModele.Close True
Set MySheet = Nothing
Set xlModele = Nothing
xlApp.Quit
Set xlApp = Nothing

Mon objectif est de déprotéger toutes les feuilles du classeur, ce que je veux faire avec un for...each. Mais apparemment si j'utilise cette méthode je ne peux plus fermer mon application après. Quelqu'un a une idée ?

[romrai]

pour tout à l'heure, à la place des Set, c'est Dim

Code :

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

1
2
3
 Dim xlapp        as excel.application
Dim xlmodel as excel.workbook
Dim mysheet as excel.worksheet

Désolé pour l'erreur

[JulienCEA]

J'ai trouvé une solution pour mon problème avec le for each : je l'ai remplacé par un simple for...next en itérant sur le nombre de worksheets.

Par contre nouveau problème du même ordre (les déclarations sont OK):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set xlApp = New Excel.Application
Set xlModele = xlApp.Workbooks.Open(FileName:=Fichier_modele, UpdateLinks:=0)
Set CellName = xlModele.Names(1)
 
bMemo = Range(CellName).Worksheet.ProtectContents
 
xlModele.Close False
Set MySheet = Nothing
Set xlModele = Nothing
xlApp.Quit
Set xlApp = Nothing

Ici cest la propriété Range(CellName).Worksheet.ProtectContents qui pose problème mais je ne sais pas pourquoi. Il doit y avoir une sorte de création d'objet temporaire qui fait que la fermeture de l'application est impossible par la suite. Une idée ?

[romrai]

Salut,

je ne comprend pas pourquoi tu ne déclares pas tes objets comme suit:

Code :

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

1
2
3
 Dim xlapp        as excel.application
Dim xlmodel as excel.workbook
Dim mysheet as excel.worksheet

parce que ce que t'a fait c les définir (avec le set), mais tu ne les a pas déclaré. jne sais pas si le problème vient de là, mais ce serait bien de le faire tout de même