Fermeture fichier excel

OK c'est la première fois que j'utilise ce système : je n'avais pas bien compris.

Donc ça plante :

Code:

---

Active.Workbook.Close True

---

Est-ce le fait que j'utilise "Active" ?

J'ai essayé avec

Code:

---

1 2	Dim Wrk As Workbook Wrk("Ordre affrètement.xlsm").Close True

---

mais ça plante aussi


Catherine

Jérôme a tout à fait raison de faire une gestion d’erreur, tu vois j’erreur est identifiée

Il me semble que tu n’a trop regardé la proposition de Jérôme, étudie la, il à raison

Néanmoins remplace

Code:

---

Active.Workbook.Close True

---

Par

Code:

---

ThisWorkbook.Close True

---

Tu dis


edit:

Code:

---

1 2	Dim Wrk As Workbook Wrk("Ordre affrètement.xlsm").Close True

---

Ne peut que générer une erreur Wrk n'est pas instancier
Regarde la proposition de Jérôme

J'ai essayé de tenir compte des conseils de Jérôme mais ça ne marchait pas non plus le débogueur s'arrêtait sur cette ligne :

Code:

---

1 2	Dim Wrk As Workbook Wrk("Ordre affrètement.xlsm").Close True

---

Je viens d'essayer avec

Code:

---

ThisWorkbook.Close True

---

mais le problème est le même qu'avec ActiveWorkbook.close = excel se ferme et se rouvre "Microsoft Office Excel a rencontré un problème et doit être fermé" j'ai le choix entre "envoyer le rapport d'erreur" ou "Ne pas envoyer"

Signature de l'erreur :
AppName: excel.exe AppVer: 12.0.4518.1014 AppStamp:45428263
ModName: excel.exe ModVer: 12.0.4518.1014 ModStamp:45428263
fDebug: 0 Offset: 00c46b99

ce message d'erreur s'est produit sur au moins 2 PC.

Est-ce dû à un problème de mises à jour d'Excel ?

merci

Catherine

Je viens de lire les posts précedents

Et je pense que Jérôme a raison

Citation:

---

Je ne pense pas que ce message soit lié à ta macro. (Du moins sur ce que l'on voir)
Je pencherais plus sur un problème de stabilité de l'application Excel sur ton poste

---

D’où malheureusement

Citation:

---

l'informaticien n'intervient que le jeudi !

---

Il va falloir patienter jusqu'à demain

Bon courage

merci beaucoup

J'ai des arguments maintenant pour installer à nouveau Office !

Bonne fin de journée

Catherine

a essayé en faisant la sauvegarde avant la fermeture sans sauvegarder.

Code:

---

1 2 3

Thisworkbook.Save ThisWorkbook.Close False

---

Bonjour,

Les mises à jour d'Office ont été installées : le problème est résolu.

merci pour votre aide

Catherine