probleme fermeture application excel

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

Code:

---

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:

---

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:

---

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 ?

Salut,

sinon essaie

Code:

---

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

---

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

Code:

---

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

et si avant tes lignes en gras tu palce :

Code:

---

xlModele.close true

---

;)

Il ne te manque pas un truc du style

Code:

---

set mysheet=xlmodele.worksheets(1)

---

?

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

Code:

---

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

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:

---

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 ?

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

Code:

---

1 2 3

Dim xlapp as excel.application Dim xlmodel as excel.workbook Dim mysheet as excel.worksheet

---

Désolé pour l'erreur

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:

---

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 ?

Salut,

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

Citation:

---

Envoyé par romrai

Code:

---

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