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

Résolu/Fermé

anakin_74 Messages postés 40 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 40 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
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Macro recorder - Télécharger - Confidentialité
Iptv smarters pro sorry this video cannot be played - Forum Box et Streaming vidéo

2 réponses

Réponse 1 / 2

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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 40 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

feuille de comptage des point pour la belote

recup couleur de cellule sans macro

Transformer un chiffre en lettres dans excel sans macro

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

download failed bc. you may not have purchased this app.