Fermeture automatique fichier si inactif

A

antiphot

XLDnaute Occasionnel

• 26 Octobre 2006

• #2

Re : Fermeture automatique fichier si inactif

Bonjour à toutes et à tous

Je refais simplement monter le post au cas ou ? Si mon explication vous semble confuse ou impréçise, n'hésitez pas à me le signaler.

A bientôt j'espère
Merci par avance
Philippe

 

Vote positif 0 Vote négatif

A

antiphot

XLDnaute Occasionnel

• 28 Octobre 2006

• #3

Re : Fermeture automatique fichier si inactif

Bonjour à toutes et à tous

En désespoir de cause, une dernière relance

Bon WE
Philippe

 

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 28 Octobre 2006

• #4

Re : Fermeture automatique fichier si inactif

Bonjour à tous
Bonjour Philippe

As tu essayé ceci :

Sheets("feries").Visible = True
With Sheets("feries")
an = .Cells(1, 1)
End With
ActiveWindow.SelectedSheets.Visible = False

je pense que tu n'a pas accès car la feuille n'est pas active (sans essai)

A+

 

Vote positif 0 Vote négatif

A

antiphot

XLDnaute Occasionnel

• 28 Octobre 2006

• #5

Re : Fermeture automatique fichier si inactif

Bonjour Eric 45

Merci pour ta réponse, mais malheureusement cela ne fonctionne pas. Si tu veux, imagine 2 ou trois fichiers excel ouverts. Celui qui est actif à l'écran, n'est pas celui qui contient la macro. Or lorsque la macro de fermeture se déclenche, celle-ci doit fermer le classeur qui contient cette fameuse macro et non pas le classeur actif à l'écran.

Si il suffisait de nommer ce classeur ce serait simple, mais le pb c'est que la macro doit récupérer le nom de ce classeur dans la cellule A1 de la feuille feries du même classeur.

Dans le cas ou il n'y a que le classeur 2006 d'ouvert tout va bien, mais si j'en ai deux ou trois, la macro recherche désespèrement la feuille feries dans la classeur tartempion actif et ne la touvant pas me met (l'indice n'appartient pas à la sélection).

Et moi du coup, je me fais des noeuds au cerveau à trouver une solution.
J'ai essayé un truc style boucler d'abord sur tous les classeurs puis sur chaque feuille mais cela ne fonctionne pas.

Donc quelqu'un a une idée géniale à me proposer (ou un tube d'aspirine) ce serait super.

Philippe

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 28 Octobre 2006

• #6

Re : Fermeture automatique fichier si inactif

Bonjour Antiphot, Eric, re le Forum,

J'espère que tu vas avoir une solution à ton problème.

Sinon, poses directement la question à notre ami Ti_ sur son site : VeriTi V 3, le site des amis d'Excel et OOo

C'est toujours un peu difficile de travailler derrière quelqu'un, et lorsque ce ou ces quelqu'un(s), font parti des plus grands, je n'ai même pas besoin de t'expliquer....

Bonne fin de journée.

PS : J'ai pas d'aspirine

Jean-Pierre

 

Vote positif 0 Vote négatif

L

lupin

Guest

• 28 Octobre 2006

• #7

Re : Fermeture automatique fichier si inactif

Salut Antiphot,

Je me demande quel est le code qui déclenche la fermeture du classeur ?

En principe si tu utilises :
ThisWorkbook.Close

ce code est valable non pas sur le classeur actif mais sur celui contenant la macro. Du moins selon les infos que j'ai. (Jamais eu besoin de l'essayer).

Lupin

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 28 Octobre 2006

• #8

Re : Fermeture automatique fichier si inactif

bojour le forum,
bonjour antiphot et les autres

je viens de faire la demande à Ti.

je vous tiens au courant dès que j'ai une réponse

@+ Laurent

 

Vote positif 0 Vote négatif

A

antiphot

XLDnaute Occasionnel

• 28 Octobre 2006

• #9

Re : Fermeture automatique fichier si inactif

Bonjour Jean Pierre, Lupin, Laurent

Merci à tous pour votre intérêt concernant mon pb.

Pour Laurent: Sympa, pour la demande à Ti.

A+ Philippe

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 28 Octobre 2006

• #10

Re : Fermeture automatique fichier si inactif

Bonjour,

essaie avec :

Code:

With ThisWorkbook.Sheets("feries")
an = .Cells(1, 1)
End With

A bientôt

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 28 Octobre 2006

• #11

Re : Fermeture automatique fichier si inactif

bonjour à tous,

après essai cela fonctionne

c'est top!!!

laurent

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 28 Octobre 2006

• #12

Re : Fermeture automatique fichier si inactif

Re,

Laurent c'est quel code qui fonctionne ?
Reste plus qu'à antiphot à venir voir.

A te lire

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 28 Octobre 2006

• #13

Re : Fermeture automatique fichier si inactif

Dan à dit:

Re,

Laurent c'est quel code qui fonctionne ?
Reste plus qu'à antiphot à venir voir.

A te lire

Cliquez pour agrandir...

re,

le code qui fonctionne est le tien

With ThisWorkbook.Sheets("feries")
an = .Cells(1, 1)
End With​

@+ laurent

 

Vote positif 0 Vote négatif

A

antiphot

XLDnaute Occasionnel

• 28 Octobre 2006

• #14

Re : Fermeture automatique fichier si inactif

Re bonjour à tous

Dan: Effectivement ça marche !! J'en rougirais 😱 tellement c'est évident ! Quand je pense que je cherchais midi à 14 heures !!

Merci à tous
Philippe

 

Vote positif 0 Vote négatif