Désactivation d'une macro à la fermeture du fichier

[rounil09]

Bonjour à la liste,

Je dois expédier un rapport d'activité tous les jours.
A cet effet, j'utilise un fichier support que je renomme tous les jours.

Avec l'aide d'exemples repiqués sur le forum, j'ai réalisé une macro qui insère la date de réalisation du rapport sur les 3 feuilles de mon classeur par copie de la valeur de la fonction "aujourd'hui", afin de figer cette date du jour.

Je souhaite que cette macro se désactive aprés que j'ai renommé le fichier lors de sa fermeture par "enregistré sous", mais qu'elle reste active sur le fichier support. Mais je plante désespérément, je n'y arrive pas.

Pour me faire bien comprendre, mon fichier support (que je joins) nommé "CR test_ED" doit garder sa macro toujours active ; lorsqu'il sera renommé (par exemple "Rapport du 29:12:2009") cette macro sera désactivée.

Merci par avance de votre aide.

 

[Papou-net]

Re : Désactivation d'une macro à la fermeture du fichier

Bonjour à la liste,

Je dois expédier un rapport d'activité tous les jours.
A cet effet, j'utilise un fichier support que je renomme tous les jours.

Avec l'aide d'exemples repiqués sur le forum, j'ai réalisé une macro qui insère la date de réalisation du rapport sur les 3 feuilles de mon classeur par copie de la valeur de la fonction "aujourd'hui", afin de figer cette date du jour.

Je souhaite que cette macro se désactive aprés que j'ai renommé le fichier lors de sa fermeture par "enregistré sous", mais qu'elle reste active sur le fichier support. Mais je plante désespérément, je n'y arrive pas.

Pour me faire bien comprendre, mon fichier support (que je joins) nommé "CR test_ED" doit garder sa macro toujours active ; lorsqu'il sera renommé (par exemple "Rapport du 29:12:2009") cette macro sera désactivée.

Merci par avance de votre aide.

Bonsoir rounil07,

Je te propose cette solution :

Tu effaces la formule dans la cellule AA1, et tu modifies ton code comme ça :

Private Sub Workbook_Open()


If Feuil1.Range("A2")="" Then Feuil1.Range("A2")=Date
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Feuil2").Select
    ....

Espérant avoir répondu.

Cordialement, et bonnes fêtes.