Effacer toutes les macros à une date donnée
Bonjour à tous !
Je cherche une méthode pour supprimer toutes les macros d'un fichier excel (xlsm) à une date prédéfinie. Je précise que les macros sont protégées (par moi, j'ai donc le code bien sûr).
Il y en a de partout, dans des modules (plusieurs), dans des "codes d'onglets" (plusieurs onglets).
Le petit plus serait également de virer tous les boutons sur toutes les feuilles à la même date prédéfinie (ceux qui appellent des macros).
Je suis certain que le sujet a déjà été abordé, j'étais tombé dessus il y a quelques temps, mais impossible de remettre la main dessus, je dois mal formuler mes recherches....
Par avance, merci !
Bonjour
Exemple
La date choisie pour l'effacement en A1
Code dans thisWorkBook
Private Sub Workbook_Open()
Dim today As Date
today = Date
If [a1] = Date Then
Call Effacer
End If
End Sub
Cordialement
Bonjour Amadéus, et merci beaucoup !
2 questions toutefois :
- Puis-je remplacer directement dans le code " [a1] " par une date ? Si oui, sous quelle forme ?
- Si les macros sont protégées par un code (que j'ai bien sûr), cela fonctionne-t'il ? Ne faut-il pas "déprotéger" les macros dans cette macro précédemment (en lui faisant "saisir" le fameux code)??
Merci par avance !!
Bonjour
pour la date dans le Code
Date = "05/09/2012"
Pour le reste, je ne sais pas faire
Cordialement
Merci encore Amadèus,
Tu en à déjà fait beaucoup !
Je vais créer un autre post pour la "déprotection du projet vba"... par vba
Merci encore !!
Bonsoir à tous,
je reviens sur ce vieux post d'Amadeus concernant l'effacement de toutes les macros d'un fichier à une date donnée.
Les macros s'effacent bien mais immédiatement, même si on a mis une date d'effacement ultérieure...
Ou bien j'ai mal compris ou je ne sais pas faire.
Par exemple j'ai un fichier avec des tarifs de pièces que les utilisateurs activent par le biais d'une macro (afficher tarifs)
En 2016, les tarifs vont changer et pour être sur qu'ils ne vont pas utiliser celui de 2015, je voudrais que les macros du fichier de 2015 soient désactivées à une date de début 2016 que j'aurai indiquée.
Merci pour votre aide.
HMA
REVUE DU SUJET: EFFACER TOUTES LES MACROS À UNE DATE DONNÉE
Re: Effacer toutes les macros à une date donnée Sujet résolu
Message par Kirikou » 05 Sep 2012, 20:45
Merci encore Amadèus,
Tu en à déjà fait beaucoup !
Je vais créer un autre post pour la "déprotection du projet vba"... par vba
Merci encore !!
Re: Effacer toutes les macros à une date donnée
Message par Amadéus » 05 Sep 2012, 18:46
Bonjour
pour la date dans le Code
Date = "05/09/2012"
Pour le reste, je ne sais pas faire
Cordialement
Re: Effacer toutes les macros à une date donnée
Message par Kirikou » 05 Sep 2012, 18:13
Bonjour Amadéus, et merci beaucoup !
2 questions toutefois :
- Puis-je remplacer directement dans le code " [a1] " par une date ? Si oui, sous quelle forme ?
- Si les macros sont protégées par un code (que j'ai bien sûr), cela fonctionne-t'il ? Ne faut-il pas "déprotéger" les macros dans cette macro précédemment (en lui faisant "saisir" le fameux code)??
Merci par avance !!
Re: Effacer toutes les macros à une date donnée
Message par Amadéus » 05 Sep 2012, 17:22
Bonjour
Exemple
La date choisie pour l'effacement en A1
Code dans thisWorkBook
Private Sub Workbook_Open()
Dim today As Date
today = Date
If [a1] = Date Then
Call Effacer
End If
End Sub