Mettre un comptage d'excution d'une macro dans This workbook [Résolu/Fermé]

Signaler
Messages postés
37
Date d'inscription
mercredi 9 octobre 2013
Statut
Membre
Dernière intervention
5 avril 2018
-
Messages postés
37
Date d'inscription
mercredi 9 octobre 2013
Statut
Membre
Dernière intervention
5 avril 2018
-
Bonjour à tous.

J'ai un petit problème et je voudrai savoir si c'est réalisable avec VB.
Dans "ThisWorkbook" de mon document, je souhaiterai:

à l'ouverture du document: (je sais faire)
dans Sub Workbook_Open()
run("macro1")
puis sauvegarder le changement du document (ça aussi)
ActiveWorkbook.Save
enfin je ferme le document (là pareil je sais)
ActiveWorkbook.Close True

Voilà ou cela ce complique:

Je voudrai que cette ouverture de document ne soit faites que 5 fois.

2 réponses

Messages postés
15726
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 avril 2021
1 481
Bonjour,
Une facon de faire

VBA, a adapter,dans ThisWorkbook

Private Sub Workbook_Open()
    With Worksheets("feuil1")
        If .Range("A1") > 4 Then
            MsgBox "Attention: fichier ouvert 5 fois, fermeture "
            Application.DisplayAlerts = False
            Application.Quit
        End If
        .Range("A1") = .Range("A1") + 1
    End With
End Sub
Messages postés
37
Date d'inscription
mercredi 9 octobre 2013
Statut
Membre
Dernière intervention
5 avril 2018

Merci c'est exactement ce que j'avais besoin. Merci