Résultats pour "fermer classeur temps inactivite"

2'333 résultats pour cette recherche

Bonjour à vous,

Travaillant en entreprise sur un fichier partagé, il arrive que certains collaborateurs "s'endorment" sur le fichier bloquant l'accès à celui-ci aux autres collaborateurs.

Je recherche un code pour fermer ce fichier Excel (fichier A) après un certain temps d'inactivité sur celui-ci et uniquement sur celui-ci.

Je m'explique :

J'ai déjà trouvé un code permettant cela. Au bout de 30 secondes par exemple d'inactivité, le fichier (fichier A) se ferme.

Sauf que, si un autre fichier Excel est ouvert (fichier B), et que l'on travaille dessus, le fichier qui m'intéresse (fichier A), même sans activité dessus, ne se ferme pas au bout des 30 secondes car il y a une activité sur un autre fichier.

Quelqu'un aurait-il la réponse ?

Je vous remercie de votre aide

Jérôme

Cette fonctionnalité peu servir pour de multiple raisons par exemple...

  • Un affichage sensible que vous ne souhaitez pas être vu pas d'autre si l'opérateur quitte sans fermer
  • Tout simplement pour fermer tout seul.
  • Et tout autre impératif

Tant que l'opérateur travail sur le classeur rien ne se passe, s'il n'y a plus d'action pendant un temps déterminer un message d'alerte est afficher pour prévenir la fermeture imminente du classeur.

Si toujours pas d'action après ce message le classeur est sauver et fermer.

Mais il est possible de modifier le code pour par exemple Fermer le PC, changer de session etc..

Tempo programmable pour

  • e delais d'inactivité.
  • Le délais entre le 1er message et la fermeture
  • Le temps d'affichage du message

La première feuille explique le mode d'emploi.

Téléchargement :

Bonjour à tous,

J'ai un fichier calc en mode partagé sur serveur.

Or, il se trouve que régulièrement l'accès au fichier ne soit possible qu'en mode "lecture seule" bien que la partage soit paramétré. Pire, l'accès est parfois impossible sur une longue durée (ficher resté ouvert sur un écran ??).

Il faut alors se résoudre à tuer les ".~sharing" et ".~lock", ce qui rétablit l'accessibilité au fichier !

N'y aurait-il pas une solution plus "élégante" : Fermeture automatique après une durée minimale d'inactivité ? Je précise SUR FICHIER PARTAGE !

Je vous remercie d'avance de la solution que vous me proposerez pour résoudre ce problème ; je ne suis pas expert en Ooo/calc ni en VBA ! donc, il faudrait que votre solution soit documentée pour que je puisse la mettre en place.

A vous lire....

Cordialement.

moeglrol

Bonjour a tous

j'ai déclaré plusieurs boutons dans le bandeau complements a partir d'un fichier .xlam.

Chaque bouton exécute une macro différente .xlm qui se trouve sur mon disque.

Donc, quand j'ouvre mon doc de travail excel, j'utilise mes macros ( mise en page, trie, saisie suivant un template..) et certaines ouvrent des userforms.

A chaque macro de lancé, j'ai une nouvelle fenêtre qui s'ouvre, c'est celle de la macro que j'ai lancé, mais je n'arrive pas a les fermer, j'ai toujours un msg d'erreur du type :

" impossibilité d’exécuter la macro"c:\...." . l est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées.

Le lien c;\ dans le msg d'erreur , c'est celui pour lancer ma macro qui est dans le fichier xlam pour exécuter la macro.

Donc il ne me reste a fermer la fenêtre de ma macro manuellement, et je peu continuer mon travail sur ma page.

reponse = MsgBox("Etes vous sur de vouloir quitter ?", vbYesNo)

If reponse = vbYes Then End

Merci pour votre aide .-)

Bonjour le Forum,

Déjà première question est-il possible de faire tourner une macro sur un fichier partager ?

J'ai un fichier sur le réseau avec plusieurs utilisateurs

Donc je voudrais limiter le temps d'utilisation sur le fichier

???? José

Bonjour à tous,

Je fais appel à votre aide car je suis à la recherche d’une macro qui sauvegarde et ferme automatiquement le fichier Excel ouvert au bout de x minutes d'inactivité (inactivité = aucun clique ou modification de cellule dans aucune des feuilles du fichier Excel).

J’ai fait de nombreuses recherches sur les forums/livres et j’ai trouvé plusieurs codes VBA qui correspondent à peu près à ma demande. Cependant lorsque j’essaye de personnaliser ces codes, je dois mal m’y prendre car après ça ne fonctionne plus… J’ai fait de nombreux essais et je désespère…

Voici donc ce que je recherche à faire :

La macro devrait appartenir à ce fichier uniquement et être active dès l'ouverture du fichier, sans intervention humaine...

On ouvre le fichier

Le décompte du temps d’inactivité démarre (15 min)

Il est réinitialisé à chaque clique ou modification de cellule de n’importe quelle feuille du fichier

Au bout de 10 min d’inactivité, j’aimerai qu’une pop-up s’ouvre en indiquant : « Attention, le fichier se fermera dans : » avec un Timer qui s’affiche et qui fait découler les 5min restantes.

Au bout des 15min, la pop-up et le fichier Excel se ferment.

Je suis persuadée que cela n’est pas impossible !

Merci d’avance pour vos retours et conseils ! Si quelqu'un a une proposition de macro à me proposer je serai trèèèèèèèèès reconnaissante.

bonsoir

impossible j'ai essayé plein de code vba que j'ai trouvé mais ça ne marche pas

j’aimai que mon fichier excel se ferme au bout de X minute si il n'est pas utilisé

merci

Bonjour le forum,

Je souhaite avoir une formule ou un code VBA pouvant me démontrer combien de temps une tournée à été inactive pendant x minutes.

Ci joint un fichier avec des infos complémentaires, en espérant qu'il y a une solution à mon problème.

D'avance merci pour votre aide

8inactivite.zip (4.69 Ko)

Bonjour a vous les expert ^^

je cherche comment pouvoir lancer une macro " verouiller et enregistrer " toutes les x min d inactivitee ou bien l executer toutes les x min.

je vous remercie d avance de votre aide et de votre s avoir faire.

cordialement

Bonjour à tous.

Je crée en ce moment un tableau pour quelqu'un de plus nul que moi (il y en a quelques uns) et j'ai besoin que son fichier se sauvegarde et se ferme automatiquement au bout d'une heure d'inactivité (pour que son fichier soit synchronisé sur Google Drive même s'il a oublié de le fermer et puisse être utilisé/modifier d'un autre terminal ensuite).

Je pense que cette fois-ci, je ne vais pas pouvoir faire l'impasse de VBA mais je n'y connais absolument rien.

La macro devrait appartenir à ce fichier uniquement, et être active dès l'ouverture du fichier, sans intervention humaine...

J'ai déjà vu quelques exemples sur le net mais je n'y comprends pas grand chose pour le moment alors je préfère demander ici pour l'appliquer directement à mon fichier.

Si vous avez moyen de m'aider, vous aurez droit à toute ma reconnaissance.

Merci.

Bonjour j'aurais voulu savoir s'il était possible de créer une macro qui permettrait au bout de 5 min d'inactivité sur le fichier de revenir à une page précise (toujours la même, celle du sommaire)?

Si oui, comment?

2st-v9.xlsm (146.12 Ko)

Bonjour à tous !

Je suis à la recherche d'un code VBA empêchant la fermeture d'excel par la croix rouge en haut à droite, tout inscrivant comme message box : " Retournez sur la page "SOMMAIRE" puis cliquez sur fermer. Je complique un peu encore... lorsque l'on clique sur le bouton macro fermer (page "sommaire"), un message box s'afficherait pour nous informer de notre intention de sauvegarder avant fermeture. Si oui alors sauvegarde puis fermeture, si non alors fermeture aussi.

Ci-joint le fichier.

Merci beaucoup pour votre retour.

Bonjour le forum

Comment vous allez

J'ai mon code ci-dessous qui me permet d'ouvrir un classeur automatiquement quand j'ouvre l'autre

Private Sub Workbook_Open()
    ThisWorkbook.Application.Visible = False
    Application.WindowState = xlMaximized
    Load UserForm2
    UserForm2.Show 0
    Workbooks.Open ThisWorkbook.Path & "\C-CLIENT.xlsm"
    ThisWorkbook.Activate
End Sub

je voudrais savoir si c'est possible de fermer aussi le classeur quand je ferme le classeur principal

Merci de votre reponse

Bonjour forum,

J'ai un classeur nommé classeur x ou dans le ThisWorkBook j'ai ce code là, pour ouvrir donc un nouveau classeur (fichier_1.xls) dans une autre instance excel quand j'ouvre classeur x. Ce que je cherche c'est quand je ferme classeur x il ferme aussi classeur (fichier_1.xls) sans enregistrer.

Private Sub Workbook_Open()
On Error GoTo Erreur

    'définitions des variables
    Dim MonClasseur As String
    Dim objExcel As Excel.Application
    Set objExcel = CreateObject("Excel.Application")

    'définition du Classeur à ouvrir
    MonClasseur = "C:\Users\nom_du_pc\Desktop\Nouveau dossier\fichier_1.xls"

    'ouverture du Classeur dans une nouvelle instance d'Excel
    objExcel.Workbooks.Open Filename:=MonClasseur
    objExcel.Visible = True
Exit Sub
Erreur:
    MsgBox "Une erreur est survenue..."
End Sub

J'ai essayé ceci dans ThisWorkBook de classeur x mais cela ne fonctionne absolument pas.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Workbooks("C:\Users\nom_du_pc\Desktop\Nouveau dossier\fichier_1.xls").Close SaveChanges:=False
End Sub

Pouvez vous m'aider ?

Bonjour,

mon problème peut paraître stupide mais je ne parviens pas à freezer la première colonne d'un fichier que j'ouvre puis ferme en vba.

En fait, il réalise parfaitement l'opération, mais au moment de fermer, il ne sauvegarde rien. Alors que pour toute autre modif, il le fait.

Voici mon code:

Source = Application.Workbooks.Open(fichier)

For Each feuille In Source.Worksheets
If feuille.Name <> "Date effet Res Fisc CRS" Then
    feuille.Activate
    feuille.Range("B1").Select
    ActiveWindow.FreezePanes = True
End If
Next feuille
Source.Close savechanges:=True

Par avance merci

Salut tout le monde!

Nouveau jour, nouveau problème!

Je recherche une méthode pour fermer et ouvrir le classeur actif (ThisWorkbook) pour une raison que je vous épargne, et je me suis mis à bricoler un truc qui fonctionne a moitié :

Sub CloseOpen()
Dim X As Integer
Dim fi, fi2, ch As String
Dim Cl As Workbook
Dim VBComp As VBComponent
Set Cl = Workbooks.Add
fi = Cl.Name
fi2 = ThisWorkbook.Name
ch = ThisWorkbook.Path
Set VBComp = Cl.VBProject.VBComponents.Add(1)
VBComp.Name = "ModuleTemp"
With VBComp.CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Sub FermeFichier ()"
    .InsertLines X + 2, "Application.DisplayAlerts = False"
    .InsertLines X + 3, "Workbooks(""" & fi2 & """).Close savechanges:=False"
    .InsertLines X + 4, "Workbooks.Open Filename:=""" & ch & "\" & fi2 & """"
    .InsertLines X + 5, "ThisWorkbook.Close SaveChanges:= False"
    .InsertLines X + 6, "Application.DisplayAlerts = True"
    .InsertLines X + 7, "End Sub"
End With
Application.Run ("" & fi & "!ModuleTemp.FermeFichier")
End Sub

Voilà, donc mon fichier ce ferme bien, correspond à la ligne X+3 , mais il ne s'ouvre pas :/

C'est pas une urgence mais si quelqu'un savait d'où vient le problème, ou même une méthode pour ouvrir / fermer le fichier actif, sa serait cool !

Merci d'avance!

Salut chers compagnons du forum

J'ai deux classeurs avec Userform.

Il se trouve que quand le userform de l'un est ouvert et qu'on passe sur le second classeur , excel se plante. Il faut donc revenir sur le userform ouvert ,le fermer avant de poursuivre.

Est-il possible de fermer tout userform actif avant de d'ouvrir ou activer autre classeur?

Merci et à plus

Bonjour à tous,

j'ai un code VBA, qui me permet de récupérer les données d'une feuille dans un classeur, et de me transferer ces données vers une feuille de mon classeur actif.

Jusque là pas de problème.

Seulement, je souhaiterais qu'après ce transfert, la feuille qui m'a permis de récupérer ces données, ce ferme sans enregistrement.

Voici le code en question :

Sub RecuperationDesDonnees()

Dim ClasseurActif As String

Dim FichierAOuvrir As String

'Note le nom du classeur actif

ClasseurActif = ActiveWorkbook.Name

'Ouvre le fichier cible

FichierAOuvrir = Application.GetOpenFilename()

Workbooks.Open Filename:=FichierAOuvrir

'Copie les données de l'onglet désiré

Sheets("Sauv").Select

Cells.Select

Selection.Copy

'Colle les données dans le classeur actif

Windows(ClasseurActif).Activate

Sheets("Sauv").Cells(1, 1).Select

ActiveSheet.Paste

End Sub

merci encore de votre aide

titi32600

Bonjour à Tous

j'ai un soucis avec un code vba

Code :

Sub test()

Dim wkA As Workbook, wkB As Workbook

Dim chemin As String, fichier As String

'classeur A qui contient la macro

Set wkA = ThisWorkbook

'chemin ou se trouve le fichier B

chemin = "\\Chemin"

'nom du fichier B

fichier = "PLANNING.xlsx"

'ouvre le fichier B

Workbooks.Open chemin & fichier

'met en variable le classeur B

Set wkB = ActiveWorkbook

'copie la feuille "feuil1" du classeur A avant la feuille 1 dans le classeur B

wkA.Sheets("S09").Copy before:=wkB.Sheets("OTI")

MsgBox ("La feuille est maintenant copiée") 'message pour dire que la feuille est copiée.

wkB.Close True 'ferme et enregistre le classeur B

End Sub

==> Le code doit copier les données depuis un Classeur Excel ouvert (en lecture seul) ou fermer un onglet ... vers le classeur cible et l'onglet désigné ... MAIS j'ai un Bug .... qui dit "Erreur 9 : L'incident n'appartient pas à la sélection"

Merci d'avance pour votre aide les AMIS

Cheeers

Bonjour à tous,

Je suis en train de travailler sur une macro qui me permettrait de faire la mise à jour de mes connexions à l'ouverture de mon fichier maître. J'ai fait des recherches sur comment ouvre/fermer un fichier, pour ouvrir pas de soucis mais impossible de le fermer. J'ai l'impression qu'il essaye d'abord de fermer le fichier avant même de l'avoir ouvert (Erreur 424 : Objet requis sur le premier Workbooks.().close, puis les fichiers s'ouvrent mais ne se ferme pas)

Voici le code que j'ai utilisé

Sub Ouverture_MaJ_Fermeture()
'
' Ouverture_MaJ_Fermeture Macro

' Ouvre tous les plans de charges à l'ouverture du classeur Master_Project
' Réalise la mise à jour des plans de charges dans le classeur Master_Project
' Ferme les plans de charges
'

'
    With ThisWorkbook

        CreateObject("Shell.Application").Open ("C:\Users\nom\Documents\Plan de charge\Picard.xlsx")
        CreateObject("Shell.Application").Open ("C:\Users\nom\Documents\Plan de charge\Sephora_RTLE.xlsx")
        CreateObject("Shell.Application").Open ("C:\Users\nom\Documents\Plan de charge\Sephora_UPGRADE.xlsx")

        ActiveWorkbook.RefreshAll

        Workbooks(Picard.xlsx).Close False
        Workbooks(Sephora_RTLE.xlsx).Close False
        Workbooks(Sephora_UPGRADE.xlsx).Close False

    End With
End Sub

Merci d'avance pour votre aide !

Recherches récentes

pmuchronomsg boxmodifier filtressinonlundi ferieuserformgmaomariolocativemailprotectioncdblcocherdatebaie informatiquemfccopier collercuveriesuivi