IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBA-E] Verifier si un fichier est ouvert


Sujet :

Macros et VBA Excel

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    191
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 191
    Points : 194
    Points
    194
    Par défaut [VBA-E] Verifier si un fichier est ouvert
    Bonjour à tous,

    j'ai un problème assez simple mais je n'arrive pas à trouver de solution.
    J'ai besoin de savoir si un fichier excel est ouvert comme condition dans un test en si, lors d'une sub auto_open()
    En gros j'aimerais coder un truc du genre:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub auto_open()
    If Workbooks("Classeur1.xls").IsOpen = True Then
         UserForm2.Show
    Else
         UserForm1.Show
    End If
    End sub
    Auriez vous une idée ??
    Merci d'avance et bonne journée !

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    Une idée, oui ! Mais une question pour savoir si elle s'adapte : Si ton classeur n'est pas ouvert, l'ouvres-tu ?

  3. #3
    Membre habitué
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    191
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 191
    Points : 194
    Points
    194
    Par défaut
    non s'il n'est pas ouvert je n'ai pas besoin de l'ouvrir

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    Tiens, voici toujours un code qui fonctionne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub ClasseurOuvertOuNon()
    Dim CL As Workbook, Chemin as string, NomFich as string
    Dim ok as boolean
        Chemin = "D:\xls\"
        NomFich = "Classeur1.xls"
        For Each CL In Application.Workbooks
            Ok = Ok Or CL.Name = NomFich
        Next
        If Not Ok Then msgbox "Le fichier n'est pas ouvert !"
    End Sub
    Il y a plus simple avec une gestion d'erreur... mais bon, c'est pas apprécié par certains

  5. #5
    Membre habitué
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    191
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 191
    Points : 194
    Points
    194
    Par défaut
    Merci beaucoup je fais essayer et je te tiens au courant.

  6. #6
    Membre habitué
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    191
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 191
    Points : 194
    Points
    194
    Par défaut
    C'est parfait comme solution. Surtout que vu la simplicité de mon code je n'ai pas besoin de gérer d'erreurs. Alors merci pour tout !!!

    Cependant j'attire l'attention de tous sur le fait qu'il serait peut être intéressant qu'une fonction du style "IsOpen" renvoyant un boolean existe... Ca serait quand même plus simple pour savoir si un fichier est ouvert ou non

    Bonne journée à tous Et merci beaucoup ouskel'n'or !!!

  7. #7
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    Allez, pour le fun avec une gestion d'erreur (tu verras, cépasicompliké)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub ClasseurOuvertNon()
    Dim CL As Workbook
    On Error Resume Next
        Set CL = Workbooks("Classeur1.xls")
        If Err Then MsgBox "Fichier fermé"
    On Error GoTo 0
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. savoir si un fichier est ouvert
    Par niclalex dans le forum Access
    Réponses: 2
    Dernier message: 12/10/2005, 20h19
  2. Unix - Comment savoir si un fichier est ouvert
    Par freddyboy dans le forum C
    Réponses: 7
    Dernier message: 06/10/2004, 16h53
  3. Macro dans excel permettant de voir si un fichier est ouvert
    Par VirginieGE dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 12/08/2004, 08h51
  4. Comment tester si fichier est ouvert ?
    Par fusef dans le forum Langage
    Réponses: 7
    Dernier message: 11/08/2004, 19h51

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo