Message à l'ouverture

[matrix]

Bonjour as-tous,

J'ai un fichier excel au travail, dont nous somme au moins 8 personnes à tour de rolle à travailler dessus.

Le problème est que si une personne à déja ouvert le fichier excel et que la 2ième personne ouvre ensuite le fichier en même temps, la personne ne comprenant pas que le fichier excel et déja ouvert sur un autre pc, fais une copie du fichier sur un autre nom et du même coup, crée 2 fichier différent.

Je voudrais pouvoir faire apparaitre un message très très très voyant à l'ouverture du fichier s'il est déja ouvert sur un autre poste.

Avez-vous des idées?

Comment faire svp ?

Merci de votre aide

 

[Pierrot93]

Re : Message à l'ouverture

Bonsoir Matrix

peut être comme ceci, une macro événementielle qui teste à l'ouverture si le classeur est en lecturer seule, si c'est le cas, message d'alerte et fermeure de ce classeur...

code à placer dans le module "thisworkbook :

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly = True Then
    MsgBox "attention fichier déjà ouvert"
    ThisWorkbook.Close
End If
End Sub

bonne soirée
@+

Edition, il faut bien sur que l'utilisateur active les macros...

 

[matrix]

Re : Message à l'ouverture

Merci, ça fonctionne très bien.