Mettre un comptage d'excution d'une macro dans This workbook
Résolu
anakin_74
Messages postés
43
Statut
Membre
-
anakin_74 Messages postés 43 Statut Membre -
anakin_74 Messages postés 43 Statut Membre -
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.
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
-
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 -
