Comment fermer un fichier excel si il est ouvert mais sans bug s'il n'est pas ouvert

Version imprimable

04/06/2009, 20h02
Avinetor

Comment fermer un fichier excel si il est ouvert mais sans bug s'il n'est pas ouvert

Bonjour à tous,

2/ Comment fermer un fichier excel si il est ouvert mais que ça ne fasse pas beuguer le programme si il ne l'est pas?

Merci beaucoup

Salut Avinetor et le forum

Code:

1
2
3
4
5
6
7
8
9
Dim WB As Workbook
Dim Flg As Boolean
For Each WB In Workbooks
    If WB.Name = "Classeur.xls" Then 
        Flg = True
        exit for
    end if
Next WB
If Flg Then WB.Close

A+

05/06/2009, 08h41
Krovax
Bonjour,
Une autre solution plus simple mais beaucoup moins élégante et peut être moins robuste
Code:

1 2 3 4 On Error Resume Next Workbooks("Classeur1.xls").Close On Error GoTo 0
05/06/2009, 08h52
Godzestla

Bonjour,

Gorfael, 2 remarques sur ton code, en toute naîveté :
1) Pourquoi fais tu le .close en dehors de la boucle et pas dedans directement ?
2) J'aurais personnelement aussi positionné l'attribut .saved à True avant le close, mais il est vrai que ce n'est pas demandé.

Désolé. le vendredi j'ai souvent des remarques stupides.

Excellent week-end à toi.
05/06/2009, 10h10
Gorfael

Salut Godzestla et le forum

Citation:

Pourquoi fais tu le .close en dehors de la boucle et pas dedans directement ?

C'est plutôt pour décrire un principe de fonctionnement dans une macro, pour effectuer un traitement sur un objet dont je n'ai pas d'autre moyen de vérifier l'existence.
Il est vai qu'on peut faire le traitement directement, mais ça permet un traitement en cas d'absence, que tu ne peux effectuer directement, dans la boucle, à travers le if Flg.... Else .... endif, ce qui n'est pas demandé.
Et puis à minuit passé... :P

Citation:

J'aurais personnelement aussi positionné l'attribut .saved à True avant le close, mais il est vrai que ce n'est pas demandé.

Oui, c'est une possibilité, mais si tu veux conserver la date de la dernière modif et pas de la dernière consultation...

Citation:

Désolé. le vendredi j'ai souvent des remarques stupides.

Moi, c'est sans distinction de jour ;)
A+
05/06/2009, 14h09
Avinetor

Merci à tous,

Je n'ai essayé que la première solution qui fonctionne très bien

Cordialement

Avinetor