Mettre un comptage d'excution d'une macro dans This workbook

Résolu/Fermé

anakin_74 Messages postés 41 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 17 novembre 2022 - 15 nov. 2016 à 16:25
anakin_74 Messages postés 41 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 17 novembre 2022 - 16 nov. 2016 à 11:57

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.

A voir également:

Mettre un comptage d'excution d'une macro dans This workbook
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Impossible d'exécuter la macro il est possible qu'elle ne soit pas disponible dans ce classeur ✓ - Forum Excel

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
15 nov. 2016 à 17:35

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

Réponse 2 / 2

anakin_74 Messages postés 41 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 17 novembre 2022
16 nov. 2016 à 11:57

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

Discussions similaires

Erreur 403: You don't have permission to access on this server ?

feuille de comptage des point pour la belote

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

Effacer macro excel 2013

Discussions similaires

Newsletters