[Résolu] modif macro de fermeture

[kinel]

bonjour à tous

pour fermer un classeur j'utilise les commandes suivantes :

ThisWorkbook.Save
Application.Quit

ça fonctionne très bien mais ça coince un peu quand un autre classeur est ouvert derrière

y aurait il une commande qui me permettrait de quitter l'application si aucun autre classeur n'est ouvert
et, si c'est le cas, laisser l'application active pour le ou les autres classeurs ouverts ?

merci de vos lumières
Kinel

 

[JCGL]

Re : modif macro de fermeture

Bonjour à tous,

Peux-tu essayer :

If Workbooks.Count = 1 Then Application.Quit

A + à tous

 

[kinel]

Re : modif macro de fermeture

bonjour jcgl

merci pour cette proposition
j'ai essayé mais excel est resté ouvert alors que je n'avais qu'un seul classeur
voici la totalité de cette macro:

Sub fermer()
ActiveWindow.DisplayWorkbookTabs = True 'rétablit les onglets
ThisWorkbook.Save
ThisWorkbook.Close
If Workbooks.Count = 1 Then Application.Quit
End Sub

 

[kinel]

Re : modif macro de fermeture

Arrrfff

j'ai enlevé le ThisWorkbook.Close
et là ça fonctionne
je vais essayé avec un second classeur ouvert

 

[Paritec]

Re : modif macro de fermeture

Bonjour Kinel JC le forum,
j'ai recopié le code mais je ne sais pas ce que j'ai fait j'ai des color partout !!
bref si cela marche je laisse mais je vais essayer de comprendre les color partout😕
a+
Papou😱

 

[kinel]

Re : modif macro de fermeture

Bonjour paritec

merci à vous deux
j'ai modifié un peu et ça fonctionne dans les deux situations
Sub fermer()
ActiveWindow.DisplayWorkbookTabs = True 'rétablit les onglets
If Workbooks.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else:
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub

merci encore
bon dimanche !
kinel

 

[Paritec]

Re : [Résolu] modif macro de fermeture

re Kinel l'e forum
oui c'est exactement le code que j'ai envoyé à la virgule prêt!!!!!!!!!!!
a+
Papou😱

 

[JCGL]

Re : [Résolu] modif macro de fermeture

Bonjour à tous,
Salut Papou,

Papou : Je ne vois pas ton code envoyé à la virgule prêt...

A++
A + à tous

 

[Paritec]

Re : [Résolu] modif macro de fermeture

Bonjour JC😱 le forum
le code que j'avais mis me mettais des colors etc partout alors je l'ai retiré mais c'était le code que kinel a noté deux posts plus bas, et comme il avait dit que cela marchait je ne l'ai pas retapé au propre
a+
Papou😱

 

[kinel]

Re : [Résolu] modif macro de fermeture

quoi qu'il en soit
merci à vous deux puisque maintenant, grâce à vous, absence de conflits entre mes fichiers !

amitiés
kinel

 

[Staple1600]

Re : [Résolu] modif macro de fermeture

Bonjour à tous

Paritec: un petit coup de main en passant

Bonjour JC😱 le forum
le code que j'avais mis me mettais des colors etc partout alors je l'ai retiré mais c'était le code que kinel a noté deux posts plus bas, et comme il avait dit que cela marchait je ne l'ai pas retapé au propre
a+
Papou😱

Pour éviter ce genre de désagrément, quand tu sélectionnes un code "en couleurs" sur XLD, copies le dans le bloc-notes.
Ainsi tu perds le formatage BBCODE
Tu fais tes modifs dans le bloc-notes et tu peux même ajouter [NOPARSE]

[/NOPARSE] ou [NOPARSE]

[/NOPARSE] dans le bloc-notes avant de faire ton copier/coller sur XLD.
C'est comme cela que je procède et adieu les problèmes de COLOR partout 😉

EDITION: Bonjour JCGL

 

[JCGL]

Re : [Résolu] modif macro de fermeture

Bonjour à tous,
Salut l'Agrafe,

Tu peux aussi rendre visible les balises en cliquant sur la première icône de la BO en mode simple :



A + à tous

 

[Paritec]

Re : [Résolu] modif macro de fermeture

Re à Tous,
n'ayant jamais eu à me poser la question et devant l'aspect disgracieux du code, je l'ai supprimé c'était plus simple
mais si d'aventure un jour j'ai le même coup, j'essaierai de me rappeler la copie
a+
Papou😱