Evité d'ouvrir le fichier déjà ouvert

[RONIBO]

Bonjour,

Je possède d'usf qui permet de voir le contenu des dossier (Facture et Devis) et le choix d'ouvrir le fichier sélectionné depuis la listbox.

Mon problème est que lorsque j´ouvre mon fichier Devis N°003*-*SOS BAT*(CORA) depuis l'explorateur Windows et que par la suite je ré-ouvre le même fichier mais cette fois ci depuis USF, Excel plante.

Pour moi c'est normal qu'il plante car le fichier est déjà ouvert. Pour éviter ce problème, j'aimerais ajouter un msgbox du genre : Vous ne pouvez pas ouvrir ce fichier car il est déjà ouvert

Et annuler l'opération.

Voici un fichier exemple (à extraire dans c: s'il vous plait)

Merci d'avance

A bientôt

 

[Staple1600]

Re : Evité d'ouvrir le fichier déjà ouvert

Bonjour à tous

RONIBO:
Ce sujet ayant été traité à maintes reprises sur le forum, utilises le moteur de recherche du forum, tu trouveras de nombreux fils avec des exemples de code te permettant de résoudre ta question.

 

[job75]

Re : Evité d'ouvrir le fichier déjà ouvert

Bonjour RONIBO,

Pas trop cherché à comprendre l'USF, mais ceci répond à la question :

Private Sub Ouvrir_Click()
Dim x As Workbook
On Error Resume Next
Set x = Workbooks(Liste.Text)
On Error GoTo 0
If Not x Is Nothing Then
  MsgBox " Vous ne pouvez pas ouvrir ce fichier car il est déjà ouvert..."
  Exit Sub
End If
Workbooks.Open (Chemin & Liste.Text)
Unload Me
End Sub

Bien sûr il y aura bug si le fichier Liste.Text n'est pas trouvé, mais à vous de voir.

Edit : salut Jean-Marie, pas rafraîchi

A+

 

[RONIBO]

Re : Evité d'ouvrir le fichier déjà ouvert

Re,

C'est exactement se que je voulais ! Merci Job75