Message (MSGBOX) lorsqu'un fichier Excel vient d'être fermé

Version imprimable

04/02/2022, 12h00
Rogeure

Message (MSGBOX) lorsqu'un fichier Excel vient d'être fermé

Bonjour,

Je souhaiterai,
- depuis un fichier Excel A,

être alerté (msgbox) lorsque,

- dans un répertoire bien défini (dont le nom ne change pas)
- un fichier Excel B (seul et unique dans le répertoire, mais dont le nom n'est pas toujours le même)

ce fichier vient d'être fermé.

N'ayant pas de grandes connaissances en VBA, je m'en remets à vous.

D'avance merci et bonne journée

1 pièce(s) jointe(s)

Bonjour,

Une façon de faire est d'utiliser l'instruction OnTime au niveau du fichier A pour aller périodiquement (par exemple toutes les 15 secondes) vérifier que le fichier B est refermé, par exemple ainsi, applicable s'il n'y a que 1 seul fichier (de nom non connu) dans le dossier.

Code au niveau de ThisWorkbook pour lancer la vérification dès l'ouverture du fichier A:

Code:

1
2
3
4
5
Option Explicit
 
Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:15"), "EstRefermé"
End Sub

Code dans un module:

Code:

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
Option Explicit
 
Sub EstRefermé()
    Dim sDir As String
    Dim sFileName As String
    Dim FileNum As Integer
    Dim ErrNum As Integer
    sDir = "D:\Dossier\SousDossier\"                     '--- à adapter, bien mettre une \ en fin
    If Dir(sDir, vbDirectory) <> "." Then
        MsgBox "Ce répertoire " & sDir & vbLf & "n'existe pas ou est mal présenté."
    End If
    On Error Resume Next
    FileNum = FreeFile()
    sFileName = sDir & Dir(sDir)
    Open sFileName For Input Lock Read As #FileNum
    Close FileNum
    ErrNum = Err
    On Error GoTo 0
    Debug.Print Now
    If ErrNum = 0 Then
        '--- arrêt procédure
        MsgBox "Fichier " & sFileName & "  refermé.", , "Pour info"
    ElseIf ErrNum = 70 Then
        '--- relance procédure
        Application.OnTime Now + TimeValue("00:00:15"), "EstRefermé", , True
    Else
        MsgBox "Anomalie sur dossier " & sDir, , "Pour info"
    End If
End Sub

Cordialement.

06/02/2022, 20h19
Rogeure

Bonjour,

Le classeur que vous m'avez envoyé fonctionne à merveille et je vous en remercie.

Par contre, je souhaiterai améliorer cela en utilisant DropBox, avec deux classeurs comme suit :

L'emplacement du classeur B est (sur mon PC) :

C:\DROPBOX\Dossier1\
Et pour plus de précisions le nom de ce classeur se termine toujours par la lettre A (xxxA.xlsx)

Un second classeur C est (sur mon PC) :
C:\DROPBOX\Dossier2\
Le nom de ce second classeur se termine toujours par la lettre T (xxxT.xlsx)

Ces deux classeurs sont ouverts via Internet par deux tablettes sous Android. Et la version d'Excel qui est sur ces deux tablettes ne permet pas d'utiliser VBA.

Quant au classeur A qui est également sur mon PC, lui est enregistré dans :
D:\TOURNOI A 7\
Ce classeur est ouvert toute la durée du tournoi. Et dans ce classeur j'ai besoin d'être informé lorsque, l'un ou l'autre, des classeurs qui sont sur les tablettes, est fermé.

Je n'arrive pas à utiliser votre fichier dans cette configuration avec DropBox.
En effet, lorsque ces deux classeurs sont ouverts sur les tablettes, Excel les trouvent fermés sur mon PC.

J'espère avoir été assez précis.

Merci et bonne journée

1 pièce(s) jointe(s)

Bonjour,

D'après ce que j'ai pu comprendre, avec Dropbox celui qui ouvre le fichier sur un autre pc n'ouvre pas le fichier qui se trouve sur le pc mais travaille sur une copie qui en faite sur sa propre machine et c'est quand il referme et enregistre ce fichier qu'il y a remplacement (mise à jour, synchronisation) du fichier qui se trouve sur le pc de départ par celui qui vient d'être modifié.

N'ayant pas une configuration de machines permettant de vérifier, voir si cette autre façon de faire fonctionne: signalement quand une version modifiée du fichier apparait.

Code:

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
Option Explicit
 
Public DateFichierA As Date, DateFichierT As Date
 
Sub SuiviFichierA()
    Dim sDir As String, sFileName As String
    Dim fs As Variant, f As Variant
    sDir = "C:\DROPBOX\Dossier1\"                       '--- à adapter, bien mettre une \ en fin
    If Dir(sDir, vbDirectory) <> "." Then
        MsgBox "Ce répertoire " & sDir & vbLf & "n'existe pas ou est mal présenté."
    End If
    sFileName = sDir & Dir(sDir & "*A.xlsx")            '--- à adapter
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(sFileName)
    If DateFichierA = 0 Then
        DateFichierA = f.DateLastModified
        'Debug.Print "DateFichierA: "; DateFichierA
        Application.OnTime Now + TimeValue("00:00:15"), "SuiviFichierA", , True
    Else
        If f.DateLastModified = DateFichierA Then
            '--- relance procédure
            'Debug.Print "Relance à " & Now
            Application.OnTime Now + TimeValue("00:00:15"), "SuiviFichierA", , True
        Else
            '--- arrêt procédure
            'Debug.Print "Terminé à " & Now
            MsgBox "Fichier " & sFileName & "  modifié.", , "Pour info"
        End If
    End If
    Set f = Nothing
    Set fs = Nothing
End Sub

Cordialement.

08/02/2022, 17h04
Rogeure

Bonjour EricDgn,

Effectivement DropBox fonctionne bien comme tu l'as indiqué et ton code fonctionne très bien.

Par contre, je souhaiterai être alerté lorsque les classeurs sont fermés et pas uniquement lorsqu'ils sont enregistrés.

Cordialement.
08/02/2022, 17h23
EricDgn

A mon avis ce n'est pas possible: impossible de savoir à partir du pc ce qui se passe sur une tablette.

Cordialement.
08/02/2022, 17h26
Rogeure

Tant pis.

Merci pour ce que vous avez fait !!!!