Bonjour,
J'utilise ça et ça marche !
' J'ouvre mon fichier qui est en partagé
' 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
' Mon fichier est en mode exclusif; je peux appeler mes autres macros
Macro1
Macro...
' Et avant de sortir
' 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
Sinon pour une sauvegarde en mode exclusif : ActiveWorkbook.Save
(pratique pour récupérer la dernière ligne, colonne utilisée d'une feuille !)
Bon Courage
Armel