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

Résolu

anakin_74 Messages postés 42 Date d'inscription Statut Membre Dernière intervention -
anakin_74 Messages postés 42 Date d'inscription Statut Membre Dernière intervention - 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
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Hijack this - Télécharger - Antivirus & Antimalwares

2 réponses

Réponse 1 / 2

f894009 Messages postés 17272 Date d'inscription Statut Membre Dernière intervention 1 713

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 42 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro

Câbles PCIe non détectés

Arrêt d'exécution d'un code vba

EXCEL transformer chiffres en lettre -facture

Votre réponse

Discussions similaires