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.
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
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro word - Guide
- Hijack this - Télécharger - Antivirus & Antimalwares
2 réponses
Bonjour,
Une facon de faire
VBA, a adapter,dans ThisWorkbook
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