date dernier lancement macro

[Ke@ry]

Bonjour !

Est-il possible de faire apparaître, au début de ma macro, un msgbox mentionnant la date du dernier lancement de cette macro ?
Cela permettrait à l'opérateur d'avoir un moyen de contrôle et de ne pas lancer la macro alors qu'elle ne devrait pas l'être...

Si oui, comment faire ?

Merci d'avance pour votre aide !

Bonne fin d'après-midi 😱)

 

[Jean-Marie]

Bonsoir, Ke@ry

Le fichier contient une macro commande XL4, pas de VBA, si vous voulez regarder la macro, c'est à votre libre choix.

Bonne soirée

@+Jean-Marie

 

[zon]

Bonsoir à tous,



Keary, moi c en VBA avec des conseils de Jean Marie sur le chat pour la fonction Maintenant()...

L'info est dans la feuil1 qui est cachée


A+++

 

[Vériland]

Tout est dit...loool

 

[Ke@ry]

Salut !

Merci pour vos réponses !

Jean-Marie : les macros commande XL4, je ne sais pas ce que c'est en fait...

Zon : comment est-ce que je fais pour visualiser la Feuil1 ?

 

[Ke@ry]

Non c'est OK, j'ai trouvé...

Mais est-ce que c'est normal s'il n'y rien sur cette feuil1 ?


Babaille !

 

[zon]

Bonjour à tous,


Keary, il y a qqch dans la feuil1 pour l'atteindre tu tapes F5 puis IV65536, ou avec Ctrl et les fleches de direction...


A+++

 

[Ke@ry]

Ok, merci !

 

[Ke@ry]

Bonjour,

Lors d'un dernier message, Zon m'a réalisé une macro Bonjour qui me permettait de voir quelle était la date de dernière exécution de Bonjour.

Elle fonctionne très bien, mais je n'arrive pas à l'adapter de sorte que :

- lorsque je lance la macro Ajouter
- un message s'affiche :"la macro Ajouter a été exécutée (ou pas) le jj/mm/aa à 00h00. Voulez-vous continuer ?"
- Oui => continuer la procédure
- Non => Exit procédure

Merci pour vos réponses.

Bonne journée.

 

[ZON]

Bonsoir Keary et le forum,

Dans le msgbox qui t'annonces si elle a été lancée tu rajoutes un VbyesNO

comme suit

rep = MsgBox("La macro Bonjour a été lancée le " & Left(Sheets(1).[IV65536].Text, 10) & Chr(13) & "à " & Right(Sheets(1).[IV65536].Text, 5), vbYesNo)


ensuite tu testes Rep;

If Rep=6 then 'ta proc à exceuter
else exit sub pour sortir


A+++

 

[Ke@ry]

Salut !

Je vais commencer par faire des excuses à Zon pour l'embêter encore... !

Je comprend bien ce qu'il faut faire mais je ne sais pas comment et où mettre la partie du code, je ne connais pas trop le VBA, je ne fais que des enregistrements de macros.

Est-ce que tu peux poster le code modifié dans Keary.zip ?

Merci encore.

 

[ZON]

Bonsoir Keary et tout le monde,


Tiens voila le fichier modifié, j'ai ajouté les commentaires dans le code.....


A+++

 

[Ke@ry]

Merci pour ton aide !!!!

Have a nice day 🙂