Mise a jour

[bororo]

Bonjour
Il m'arrive de noter sur un fichier excel,des sommes d'argent a régler tous les mois par une tierce personne.
comme je ne fais pas cette opération régulièrement,j'aimerais ,au moment ou je ferme le fichier apres avoir inscrit une nouvelle opération,que s'inscrive la dernière mise a jour,afin de retrouver celle ci au moment de la réouverture du fichier quelques jours ou mois plus tard.
Merci

 

[Gardien de phare]

Re : Mise a jour

Bonjour,

Pour mettre la date dans la cellule A1 de Feuil1

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Feuil1.Range("A1") = Now()
End Sub

 

[JBARBE]

Re : Mise a jour

Bonjour,

On peut faire cette macro qui à la fermeture enregistre dans les cellules A1 ( la date) et en B1 (l'heure) de la feuille 1

Sub Auto_Close()
Feuil1.Range("A1") = DateSerial(Year(Now), Month(Now), Day(Now))
        Selection.NumberFormat = "dd/mm/yy"
Feuil1.Range("B1") = TimeValue(Time)
    ActiveWorkbook.Save
    Application.Quit
End Sub

 

[bororo]

Re : Mise a jour

rebonjour et merci de vos réponses.
j'essaye bien de me documenter sur l'insertion d'une macro dans une cellule mais je m'arrache un peu les cheveux(le peu qu'il me reste)pour que ça fonctionne.
Je continue a chercher en fonction de vos réponses mais je pense qu'il est préférable de vous envoyer le fichier lui meme pour que l'un d'entre vous ait la gentillesse de me l'inserer en C48
Merci de votre patience

 

[Gardien de phare]

Re : Mise a jour

Re,

La macro n'est pas dans une cellule, c'est une procédure événementielle du classeur.

Un exemple joint.

 

[JBARBE]

Re : Mise a jour

Je pense que cela va te satisfaire ! La macro enregistre et se ferme automatiquement !

A+

 

[bororo]

Re : Mise a jour

merci.c'est plus facile d'avoir la reponse pour faire des recherches que l'inverse
ça va m'occuper ce dimanche!