Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Combien de classeur ouvert ?

Combien de classeur ouvert ?

6 réponses
Avatar
Steph
Bonjour,

Je cherche une macro qui me permettrait de savoir combien de classeur sont
ouvert.

Le but est de savoir si il y a plus d'un classeur ouvert car je ferme le
classeur grace au code ci-dessous
qui ferme Excel sans alert. Le problème est que lorsque j'ai un autre
fichier excel ouvert également il le ferme sans se poser de question.

J'ai donc pour l'instant ce code:
------------------------------------------------
Application.DisplayAlerts = False
Application.Quit
-------------------------------------------------

Et je souhaiterais quelque chose dans le genre:
-------------------------------------------------
If nombredeclasseur <= 1 then
Application.DisplayAlerts = False
Application.Quit

Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Quit
End If
--------------------------------------------------
Afin qu'il me propose de sauvegarder les autres classeur

Si vous avez d'autres idées n'hésitez pas...


D'avance merci,

Steph
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Tu peux te servir de :
Workbooks.Count
pour connaître le nombre de classeurs ouverts (il compte naturellement le
classeur PERSO.xls s'il y en a un).
Cordialement.
Daniel
"Steph" a écrit dans le message de news:
45436fa3$0$31469$
Bonjour,

Je cherche une macro qui me permettrait de savoir combien de classeur sont
ouvert.

Le but est de savoir si il y a plus d'un classeur ouvert car je ferme le
classeur grace au code ci-dessous
qui ferme Excel sans alert. Le problème est que lorsque j'ai un autre
fichier excel ouvert également il le ferme sans se poser de question.

J'ai donc pour l'instant ce code:
------------------------------------------------
Application.DisplayAlerts = False
Application.Quit
-------------------------------------------------

Et je souhaiterais quelque chose dans le genre:
-------------------------------------------------
If nombredeclasseur <= 1 then
Application.DisplayAlerts = False
Application.Quit

Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Quit
End If
--------------------------------------------------
Afin qu'il me propose de sauvegarder les autres classeur

Si vous avez d'autres idées n'hésitez pas...


D'avance merci,

Steph



Avatar
JB
Bonjour,

Function ListeClasseursOuverts()
Application.Volatile
For Each c In Workbooks 'on parcourt la collection des classeurs
ListeClasseursOuverts = ListeClasseursOuverts & c.Name & "*"
Next c
End Function

Sub SauvTousClasseursOuverts()
For Each c In Workbooks 'on parcourt la collection des classeurs
c.Save
Next c
End Sub

JB

Bonjour,

Je cherche une macro qui me permettrait de savoir combien de classeur sont
ouvert.

Le but est de savoir si il y a plus d'un classeur ouvert car je ferme le
classeur grace au code ci-dessous
qui ferme Excel sans alert. Le problème est que lorsque j'ai un autre
fichier excel ouvert également il le ferme sans se poser de question.

J'ai donc pour l'instant ce code:
------------------------------------------------
Application.DisplayAlerts = False
Application.Quit
-------------------------------------------------

Et je souhaiterais quelque chose dans le genre:
-------------------------------------------------
If nombredeclasseur <= 1 then
Application.DisplayAlerts = False
Application.Quit

Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Quit
End If
--------------------------------------------------
Afin qu'il me propose de sauvegarder les autres classeur

Si vous avez d'autres idées n'hésitez pas...


D'avance merci,

Steph


Avatar
lSteph
Bonjour,

pourquoi poser ces conditions et ne pas
plutôt fermer simplement le classeur
au lieu de l'application?

Cordialement.

lSteph






Steph vient de nous annoncer :
Bonjour,

Je cherche une macro qui me permettrait de savoir combien de classeur sont
ouvert.

Le but est de savoir si il y a plus d'un classeur ouvert car je ferme le
classeur grace au code ci-dessous
qui ferme Excel sans alert. Le problème est que lorsque j'ai un autre fichier
excel ouvert également il le ferme sans se poser de question.

J'ai donc pour l'instant ce code:
------------------------------------------------
Application.DisplayAlerts = False
Application.Quit
-------------------------------------------------

Et je souhaiterais quelque chose dans le genre:
-------------------------------------------------
If nombredeclasseur <= 1 then
Application.DisplayAlerts = False
Application.Quit

Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Quit
End If
--------------------------------------------------
Afin qu'il me propose de sauvegarder les autres classeur

Si vous avez d'autres idées n'hésitez pas...


D'avance merci,

Steph


--
- -

Avatar
lSteph
.. si je comprend ,
le but serait donc plutôt de fermer l'application
et en tous cas ce classeur, qu'il soit sauvegardé ou non!
Si la macro est contenue dans ce classeur:
(Laisser les alertes actives, pour les autres classeurs)

thisworkbook.saved = true
Application.Quit


Si la macro est dans un autre classeur qui vient d'activer celui-ci

Activeworkbook.saved=true
Application.Quit

'Cordialement.

lSteph

Steph a couché sur son écran :
Bonjour,

Je cherche une macro qui me permettrait de savoir combien de classeur sont
ouvert.

Le but est de savoir si il y a plus d'un classeur ouvert car je ferme le
classeur grace au code ci-dessous
qui ferme Excel sans alert. Le problème est que lorsque j'ai un autre fichier
excel ouvert également il le ferme sans se poser de question.

J'ai donc pour l'instant ce code:
------------------------------------------------
Application.DisplayAlerts = False
Application.Quit
-------------------------------------------------

Et je souhaiterais quelque chose dans le genre:
-------------------------------------------------
If nombredeclasseur <= 1 then
Application.DisplayAlerts = False
Application.Quit

Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Quit
End If
--------------------------------------------------
Afin qu'il me propose de sauvegarder les autres classeur

Si vous avez d'autres idées n'hésitez pas...


D'avance merci,

Steph


--
- -

Avatar
Jacquouille
Bonjour Stéphane
Dans le cadre de ma question "Liens" du 27/10, est-il possible de fermer à
distance par macro comandée depuis ma partition privée et qui fermerait le
fâââmeux fichier qui me fait ch et qui serait sur la partition commune et
ouvert par un autre utilisateur? (ce qui a pour effet de me le mettre en
lecture seule)?
Au plaisir de te lire
Jacques.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"lSteph" a écrit dans le message de news:

Bonjour,

pourquoi poser ces conditions et ne pas
plutôt fermer simplement le classeur
au lieu de l'application?

Cordialement.

lSteph






Steph vient de nous annoncer :
Bonjour,

Je cherche une macro qui me permettrait de savoir combien de classeur
sont ouvert.

Le but est de savoir si il y a plus d'un classeur ouvert car je ferme le
classeur grace au code ci-dessous
qui ferme Excel sans alert. Le problème est que lorsque j'ai un autre
fichier excel ouvert également il le ferme sans se poser de question.

J'ai donc pour l'instant ce code:
------------------------------------------------
Application.DisplayAlerts = False
Application.Quit
-------------------------------------------------

Et je souhaiterais quelque chose dans le genre:
-------------------------------------------------
If nombredeclasseur <= 1 then
Application.DisplayAlerts = False
Application.Quit

Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Quit
End If
--------------------------------------------------
Afin qu'il me propose de sauvegarder les autres classeur

Si vous avez d'autres idées n'hésitez pas...


D'avance merci,

Steph


--
- -





Avatar
lSteph
Hello
...
y voir...
ad
.."Liens" du 27/10


Jacquouille avait écrit le 29/10/2006 :
Bonjour Stéphane
Dans le cadre de ma question "Liens" du 27/10, est-il possible de fermer à
distance par macro comandée depuis ma partition privée et qui fermerait le
fâââmeux fichier qui me fait ch et qui serait sur la partition commune et
ouvert par un autre utilisateur? (ce qui a pour effet de me le mettre en
lecture seule)?
Au plaisir de te lire
Jacques.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"lSteph" a écrit dans le message de news:

Bonjour,

pourquoi poser ces conditions et ne pas
plutôt fermer simplement le classeur
au lieu de l'application?

Cordialement.

lSteph






Steph vient de nous annoncer :
Bonjour,

Je cherche une macro qui me permettrait de savoir combien de classeur sont
ouvert.

Le but est de savoir si il y a plus d'un classeur ouvert car je ferme le
classeur grace au code ci-dessous
qui ferme Excel sans alert. Le problème est que lorsque j'ai un autre
fichier excel ouvert également il le ferme sans se poser de question.

J'ai donc pour l'instant ce code:
------------------------------------------------
Application.DisplayAlerts = False
Application.Quit
-------------------------------------------------

Et je souhaiterais quelque chose dans le genre:
-------------------------------------------------
If nombredeclasseur <= 1 then
Application.DisplayAlerts = False
Application.Quit

Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Quit
End If
--------------------------------------------------
Afin qu'il me propose de sauvegarder les autres classeur

Si vous avez d'autres idées n'hésitez pas...


D'avance merci,

Steph


-- - -





--
- -