Vérification qu'un fichier est ouvert

[Leskwal]

Bonjour le forum.

Sans doute un problème simple mais je sèche.

Pour faire simple, j'ai créé une application qui à un moment créer un fichier qui par défaut s'appelle "classeur1", normal c'est ce que me propose Windows.

Je voudrais, afin de commencer ma macro, m'assurer qu'un fichier intitulé "classeur1" n'existe pas déjà (N'est pas déjà ouvert !).

Comment vérifier en Français :

Si un fichier appelé "classeur1" est déjà ouvert = FAUX ALORS

je lance ma macro

Sinon j'affiche un message du type :

MSG " Veuillez fermer tous vos fichiers Excel en cours, Merci".

Pour résumer : Comment savoir qu'un fichier est ouvert et en conséquence agir.

Grand Merci d'avance

Pascal

 

[Dull]

Re : Vérification qu'un fichier est ouvert

Salut Leskwal, le Forum

Le code suivant te permet d'activer le Classeur1 si celui-ci est déjà ouvert sinon il l'ouvre et l'active

Sub EssAi()
Dim ClassDest As String
ClassDest = "Classeur1" & ".xls"
    On Error Resume Next
        Workbooks(ClassDest).Activate
    If Err <> 0 Then
        On Error Resume Next
        Workbooks.Open (ThisWorkbook.Path & "\" & ClassDest)
    End If
End Sub

A condition que ton Classeur1 est dans le même dossier que le Classeur Actif sinon change le ThisWorkbook.Path par le chemin en Dur

Bonne Journée

 

[Leskwal]

Re : Vérification qu'un fichier est ouvert

Bonjour et merci pour ta réponse si rapide.

Je pense qu'il 'y'a de ça mais c'est pas ça.

Si j'ai bien compris :

Je cherche dans un premier temps à activer le fichier : "Classeur1" & ".xlsm" ' (je suis en 2007)

Si j'y arrive alors je mets un message pour dire à l'utilisateur de fermer tous ses fichiers Excel car y'en a un qui s'intitule "Classeur1" & ".xlsm"


Si je n'y arrive pas, cela veut dire, qu'actuellement aucun fichier "Classeur1" & ".xlsm" n'est ouvert et que je peux donc appliquer ma macro.?
Est-ce bien cela 😕

Pascal