1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2003 Tester si fichier ouvert ou l'afficher et déprotéger

Discussion dans 'Forum Excel' démarrée par papy 73 ans, 2 Décembre 2018.

  1. papy 73 ans

    papy 73 ans XLDnaute Occasionnel

    Inscrit depuis le :
    14 Janvier 2018
    Messages :
    138
    "J'aime" reçus :
    3
    Bonjour à tous,
    A partit d'un fichier ouvert, comment par macro, tester si le classeur C:\ABC\Test.xls est ouvert
    Si non : ouvrir ce fichier
    Si oui : déprotéger le fichier (multi-utilisateurs) Nom : a Mdp : a
    En vous remerciant
     
  2. Chargement...

    Discussions similaires - Tester fichier ouvert Forum Date
    Comment tester si un fichier (non Excel) est déjà ouvert ? Forum Excel 17 Décembre 2014
    Comment tester si un fichier Excel est ouvert ? Forum Excel 1 Juillet 2014
    Tester si un fichier Word est déjà ouvert à partir d'Excel Forum Excel 20 Juillet 2012
    tester si un fichier excel est déja ouvert Forum Excel 28 Juillet 2008
    tester si fichier ouvert... Forum Excel 2 Octobre 2006

  3. sousou

    sousou XLDnaute Accro

    Inscrit depuis le :
    21 Février 2005
    Messages :
    1581
    "J'aime" reçus :
    61
    Habite à:
    La Garenne Colombes
    Utilise:
    Excel 2010 (PC)
    Bonsoir
    Essaie quelque chose comme ceci:
    Sub mamacro()
    On Error Resume Next
    set fich=Workbooks("test.xls")
    If Err.Number = 9 Then Set fich = Workbook.Open("C:\ABC\Test.xls")
    On Error GoTo 0
    fich.Unprotect ("a")
    End Sub
     
  4. youky(BJ)

    youky(BJ) XLDnaute Barbatruc

    Inscrit depuis le :
    4 Février 2009
    Messages :
    2494
    "J'aime" reçus :
    120
    Sexe :
    Masculin
    Habite à:
    69 CALUIRE
    Utilise:
    Excel 2016 (PC)
    Bonjour à tous,
    Voici une solution un légèrement différente.
    Bruno
    Code (Visual Basic):
    Sub TEST()
    On Error Resume Next 'on g?re l'error
    chemfich = "C:\ABC\Test.xls"
    Workbooks("Test.xls").Activate 'si pas ouvert on va en error
    If Err <> 0 Then Workbooks.Open (chemfich) 'on ouvre si err
    ActiveWorkbook.Unprotect "a"
    End Sub
     
     
  5. papy 73 ans

    papy 73 ans XLDnaute Occasionnel

    Inscrit depuis le :
    14 Janvier 2018
    Messages :
    138
    "J'aime" reçus :
    3
    Bonjour sousou, youky,
    Je vous remercie c'est tout bon.
    Bonne journée à vous
     

Partager cette page