Discussion :

[jerem7w]

Bonjour,

Est-il possible de tester le fait qu'un classeur soit partagé ou pas ?

BUT : s'il ne l'est pas, avertir l'utilisateur pour qu'il partage son classeur.

Merci.

[jerem7w]

Bjr,

je remonte ce topic, je n'ai pas été assez précis dans ma question :

Est-il possible de tester par un événement en VBA le fait qu'un classeur soit partagé ou pas ?

merci

[Krovax]

Bonjour,
Je n'ai jamais utilisé de classeur partagé mais j'ai ta solution, je te dis quand même comment je l'ai trouvé pour que la prochaine fois tu puisse trouver tout seul

J'ai tapé thisworkbook.
et la dans la petite liste déroulante qui contient les différente méthode te propriété j'en ai cherché une qui faisait pensé a ton problème j'ai trouvé
ExclusiveAccess (ca avait lair pas mal)
je lance l'aide et j'obtiens

ExclusiveAccess, méthode
Voir aussiS'applique àExempleDétails
Cette méthode attribue à l'utilisateur en cours un accès exclusif au classeur ouvert en tant que liste partagée.

expression.ExclusiveAccess
expression Obligatoire. Expression qui renvoie un objet Workbook.

Notes
La méthode ExclusiveAccess enregistre toute modification apportée au classeur et oblige les autres utilisateurs qui ont ouvert ce dernier à enregistrer leurs modifications dans un fichier différent.

Si le classeur spécifié n'est pas ouvert en tant que liste partagée, cette méthode échoue. Pour déterminer si un classeur est ouvert en tant que liste partagée, utilisez la propriété MutiUserEditing.

Exemple
Cet exemple montre comment déterminer si le classeur actif est ouvert en tant que liste partagée et, si tel est le cas, comment attribuer un accès exclusif à l'utilisateur en cours.

If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ExclusiveAccess
End If

Donc voila ta réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If ActiveWorkbook.MultiUserEditing Then
   msgbox "Le classeur est partagé"
else
   msgbox "le classeur n'est pas partagé"
End If

[jerem7w]

Bonjour Krovax

Merci pour ton aide, c'est ce dont j'avais besoin. Etant loin d'être expérimenté en la matière VBA, je te remercie du conseil et l'appliquerai dès la prochaine fois. Mais les propriétés sont en anglais, c'est pas toujours facile à traduire.

@+