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

VBA Access Discussion :

Vérification si un fichier est ouvert


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Février 2008
    Messages
    100
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 100
    Par défaut Vérification si un fichier est ouvert
    Bonjour à tout le monde,

    J'ai une petite question.
    Je voudrais savoir s'il est possible en VBA de le moment où un fichier est ouvert après une commande objShell.Open sur un chemin.
    Je m'explique. A partir d'un bouton et d'un champ où est inscrit la référence d'un schéma électrique d'une machine, je fais la recherche, sur notre réseau interne, de cette référence.pdf ou .doc puis l'ouvrir. Cette procédure prend quelques secondes et les utilisateurs on tendance à appuyer plusieurs fois, provoquant une ouverture multiple du document.
    Je voudrais pour indiquer à l'utilisateur que la recherche est en cours et que le fichier est en cours d'ouverture soit par une barre de progression, sablier où message à l'écran (ex: veuillez patienter).

    Voici mon code actuelle de recherche et d'ouverture :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    Private Sub Btn_Ouvrir_Schem_Elec_Click()
     
    Dim objShell As Object, RefNotice_doc As String, RefNotice_pdf As String, Path_RefNotice As String
     
    Path_RefNotice_Temp = ""
     
    If IsNull(SCHEMA_ELEC) Then
    MsgBox ("Veuillez entrer une référence de Schéma Electrique")
    GoTo Sub3
     
    Else
     
    RefNotice_doc = SCHEMA_ELEC & ".doc" 'Creation du nom du fichier
    RefNotice_pdf = SCHEMA_ELEC & ".pdf" 'Creation du nom du fichier
    End If
     
    'Recherche du chemin des documentation dans la table TABLE_CHEMIN_DOCUMENTATION
    Path_RefNotice = DLookup("[LIEN_CHEMIN_NOTICE]", "TABLE_CHEMIN_DOCUMENTATION", "[TYPE_MACHINE] = [MACHINE]")
     
    If Path_RefNotice = "0" Then
    MsgBox "Veuillez entrer le chemin de recherche dans la table TABLE_CHEMIN_DOCUMENTATION."
    GoTo Sub3
    End If
     
    'Recherche si le fichier en .pdf existe
    Explorer RefNotice_pdf, Path_RefNotice
     
     
    If IsNull(Path_RefNotice_Temp) Or Path_RefNotice_Temp = "" Then
    GoTo Sub4
     
    Else
     
    Set objShell = CreateObject("Shell.Application")
    objShell.Open (Path_RefNotice_Temp)
    GoTo Sub3
    End If
     
     
    Sub4: 'Recherche si le fichier en .doc existe
    Explorer RefNotice_doc, Path_RefNotice
     
    Set fso = New Scripting.FileSystemObject
     
    If IsNull(Path_RefNotice_Temp) Or Path_RefNotice_Temp = "" Then
    MsgBox ("Le Schéma Electrique référence " & SCHEMA_ELEC & " que vous essayez d'ouvrir n'existe pas sur le serveur. Veuillez vérifier la référence que vous avez inscrite ou le nom du schéma sur le serveur.")
    GoTo Sub3
     
    Else
     
    Set objShell = CreateObject("Shell.Application")
    objShell.Open (Path_RefNotice_Temp)
    End If
     
    Sub3:
     
    End Sub
    J'ai essayer d'insérer différant code trouver dans la FAQ, notamment celui du sablier ou de la barre de progression quelconque. Lorsque j'appuie sur le bouton rien ne se passe car je pense que, vu la rapidité du code, ça n'a pas le temps de s'afficher à l'écran. Je voudrais pouvoir vérifier le moment où le fichier est ouvert et mettre un tempo jusqu'à cette ouverture et pendant ce temps un sablier (message ou barre de progression) s'affiche à l'écran.

    Si vous avait d'autre idée pour simplifier mon code et arriver au résultat voulu, il n'y a pas de soucis.
    Merci d'avance

    Cordialement

    Gaetan

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 682
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 682
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Migrer les applications VBA Access et VBA Excel vers la Power Platform
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

Discussions similaires

  1. [VB]Savoir si un fichier est ouvert ou non
    Par voileux dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 21/01/2006, 16h01
  2. savoir si un fichier est ouvert
    Par niclalex dans le forum Access
    Réponses: 2
    Dernier message: 12/10/2005, 19h19
  3. Unix - Comment savoir si un fichier est ouvert
    Par freddyboy dans le forum C
    Réponses: 7
    Dernier message: 06/10/2004, 15h53
  4. 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, 07h51
  5. Comment tester si fichier est ouvert ?
    Par fusef dans le forum Langage
    Réponses: 7
    Dernier message: 11/08/2004, 18h51

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