Fermer un classeur session fermé

Maksime568 Messages postés 142 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je fais compléter un tableau par 3 utilisateurs.
il arrive qu'un utilisateur oubli de fermer le fichier en question et ne laisse donc que la lecture seule au suivant l'empêchant ainsi de pouvoir compléter ce tableau à son tour.
Comment éviteriez-vous ce soucis?
est-ce possible de forcer la fermeture d'excel (et la sauvegarde) même si la session n'est pas ouverte?


Configuration: Windows / Chrome 87.0.4280.141
A voir également:

3 réponses

Réponse 1 / 3
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

J'ai changer le nom des feuilles car je n'ai pas de feuilles 1 et 2 mais j'ai toujours l'erreur.
Comment veux-tu que je devine sans fichier ?

autre point, chaque jour j'ajoute une nouvelle feuille, comment le prendre en compte dans ce cas?
Et bien fait l'inverse, liste les feuilles à ne pas protéger : 
Private Sub Workbook_Open()
    Dim sh As Worksheet, f As String
    f = ",Feuil2,Feuil3," ' liste feuilles à ne pas protéger
    For Each sh In Worksheets
        If InStr(f, "," & sh.Name & ",") = 0 Then sh.Protect Password:="mdp", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True
    Next sh
End Sub


j'avais déjà une private sub workbook_open.
il me dit alors, nom ambigü. comment passer outre?
Ne choisis pas trop la facilité, ça doit se trouver rapidement sur google ça...
eric
1
Réponse 2 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voir ceci pour mettre dans le classeur

https://www.mediaforma.com/vba-excel-executer-procedure-a-fermeture-dun-classeur/

et ceci pour l'enregistrement:

https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbook.save

et puis pour fermer tous les classeurs:

https://support.microsoft.com/fr-fr/office/fermer-des-classeurs-ou-des-fen%C3%AAtres-de-classeur-ca74dca4-8d2f-43f9-84e1-f9a1b1621d26

0
Maksime568 Messages postés 142 Date d'inscription   Statut Membre Dernière intervention  
 
pour les 2 premiers onglets je connaissais et j'ai appliqué la procédure de sauvegarde automatique à la fermeture.

cependant,
si l'utilisateur ne ferme pas sont classeur excel et que l'on change de session windows, le fichier reste bloqué en lecture seule jusqu'à ce que le premier utilisateur ferme ce classeur.
c'est ce point là que je souhaiterais bloquer.
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > Maksime568 Messages postés 142 Date d'inscription   Statut Membre Dernière intervention  
 
et quand tu cliques sur Quitter Excel à partir d'un autre classeur, cela ne ferme pas tous les classeurs ouverts?

0
Maksime568 Messages postés 142 Date d'inscription   Statut Membre Dernière intervention   > cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention  
 
non car l'opération ne serait faite qu'avec un second utilisateur qui n'est pas celui qui a ouvert le classeur à la base.
il y a une macro qui force la fermeture d'excel au bout de X minutes après une saisie, ce qui serait applicable ici mais pas forcément la meilleur solution. Cela pourrait éviter qu'un utilisateur oubli de ferme un classeur malgré tous.
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > Maksime568 Messages postés 142 Date d'inscription   Statut Membre Dernière intervention  
 
il y a une macro qui force la fermeture d'excel au bout de X minutes après une saisie, ce qui serait applicable ici mais pas forcément la meilleur solution

Voir cela

https://www.tutoderien.com/comment-fermer-un-classeur-apres-un-delai-dinactivite/

@+ Le Pivert
0
Réponse 3 / 3
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

je suppose le fichier sur un réseau.
Dans ce cas tu peux partager (ancienne fonctionnalité !) le classeur que chacun puisse faire ses modifs.
Ca demande une certaine discipline, qu'un utilisateur n'écrase pas les modifs d'un autre, mais à 3 c'est jouable.
Le mieux est d'enregistrer le fichier avant de démarrer une modif. Ca force excel à rapatrier les modifs des autres en suspend et limites les collisions.
eric
0
Maksime568 Messages postés 142 Date d'inscription   Statut Membre Dernière intervention  
 
C'est une bonne idée sauf que cette fonction n'est pas compatible avec l'utilisation de macro malheureusement.
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276 > Maksime568 Messages postés 142 Date d'inscription   Statut Membre Dernière intervention  
 
Mais si.
Le message te dit qu'il faut départager si tu veux modifier les macros et le repartager ensuite, c'est tout.
eric
0
Maksime568 Messages postés 142 Date d'inscription   Statut Membre Dernière intervention   > eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention  
 
c'est vrai oui,
j'ai oublié,
mais j'ai dans une macro une fonction de retrait et ajout de protection et c'est cela qui n'est pas pris en compte pas le partage de fichier.
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276 > Maksime568 Messages postés 142 Date d'inscription   Statut Membre Dernière intervention  
 
Ah bon, je ne me rappele pas... Tu as testé et ?
De toute façon il vaut mieux protéger ses feuilles à l'ouverture par macro avec le paramètre UserInterfaceOnly:=True
Ainsi les macros ont accès aux feuilles sans les déprotéger, seuls les utilisateurs sont bloqués.
eric
0
Maksime568 Messages postés 142 Date d'inscription   Statut Membre Dernière intervention   > eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention  
 
oui j'avais tenté cette méthode dans un premier temps mais le portect / unprotect bloque.

je ne connais pas le paramètre "UserInterfaceOnly = True" tu saurais m'en dire plus par rapport au protect / unprotect?

voici le code d'une macro qui posait problème de mémoire. 

Sub ajoutProduction()
'
' ajoutProduction Macro
'
   Dim nomF As String
    nomF = Format(Date, "dd-mm-yy")
    If FExist(nomF) Then
      avertissement 'appel de la MsgBox pour avertir que la feuille existe déjà
      Exit Sub
    End If

'    ActiveWorkbook.Unprotect
    Sheets("Suivi Production").Select
'    ActiveSheet.Unprotect
    Sheets("Suivi Production").Copy Before:=Sheets(1)
    
    ActiveSheet.Name = nomF
    With [G3]
    ActiveSheet.Unprotect 
    .Value = Now
    .NumberFormat = "dd/mm/yy"
    End With
    ActiveSheet.protect
0

Discussions similaires

Samsung Z Flip 4 s'éteint lorsque je le plie.
BOBJENNY -
Tinoon -

4 réponses