Bonjour
Y a-t-il plus simple comme code car en réseau d'entreprise le départage mais un certain temps pour agir
merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Départage()
'
' Mode SHARED "OFF" à l'ouverture
If ActiveWorkbook.MultiUserEditing Then
 Application.DisplayAlerts = False ' Pas de message d'erreur
 ActiveWorkbook.ExclusiveAccess ' Accès exclusif activé !
 Application.DisplayAlerts = True
End If
End Sub
Sub Partarge()
 
'Sauvegarde en réactivant le partage !
If Not ActiveWorkbook.MultiUserEditing Then
 Application.DisplayAlerts = False
 ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared
 Application.DisplayAlerts = True
End If
End Sub