Bonjour à tous,

J'ai un fichier excel, que je dois remplire régulièrement en entrant des données.

J'ai des onglets avec le nom de tous les mois de l'années.

Je voudrait crée un message à l'ouverture du document me disant la derniere journée et l'heure qu'il y a eu des modifications dans le document.

Pas pour une ouverture du document mais bien un rajout dans une celule du document.

Est-ce réalisable?

merci beaucoup de votre aide!!!

Une exemple de message du genre:

msg = "Dernière modification éffectué le 1 janvier 2007 à 13:30?"

re-bonjour,

Je me suis rendu jusque ici:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Range("F1").Select
ActiveCell.Value = "Dernière mise à jour le " & Format(Date, "dd/mm/yyyy") & " " & Time

End Sub

par contre même si je ne fait aucun changement dans le dossier, la date change.

Je veux que la date change seulement si j'ai écrit quelque chose dans une célule du fichier excel

Date et Time te renvoie la date et l'heure actuelle.

si tu veux la date de la modif, il faut que tu trouve un moyen de la sauvegarder au moment de la modif. Ensuite c'est cette date sauvegardée que tu devra afficher.


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Salut,

utilise BeforeSave plutôt que BeforeClose :


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("F1").Select
    ActiveCell.Value = "Dernière mise à jour le " & Format(Date, "dd/mm/yyyy") & " " & Time
    
    ' ^^ équivalent :
    Range("F1").Value = "Dernière mise à jour le " & Now
End Sub

~ Mortalino ~


@++

---

Merci mortalino

Mon dernier problème est que la date change même s'il n'y a pas eu de rajourt d'info dans un des onglets

Y'a t_il une façon que la date change seulement dans ce temps là?

J'ai essaié avec quelque chose comme ça mais sans résultat car il me donne une erreur dans « if fichiermodifier = True»:

---

PrivateSub Workbook_BeforeClose(Cancel AsBoolean)
if fichiermodifier = True
Sheets("ACCUEIL").Select
ActiveSheet.Unprotect
Range("E1").Select
ActiveCell.Value = "Dernière mise à jour " & " " & Format(Date, "dddd le dd mmmm yyyy") & " - " & Time 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
EndIf
EndSub

Alors remplace If fichiermodifier = True par

If ThisWorkbook.Saved = True Then

@++

---

Je n'ai pas excel, mais, si ma vielle mémoire pas trop abîmée est encore bonne, je crois me souvenir d'un défaut majeut des applications Office (toutes) :

Si l'on ouvre un fichier, que l'on ajoute part exemple la lettre "a" ou "n" ou... n'importe où et que l'on efface ce rajout, la taille du fichier enregistré est différente de sa taille originelle bien que, finalement, aucune modification n'ait été apportée (puisque supprimée).

Il ne serait donc pas totalement idiot de se servir de ce défaut- là ! La comparaison des tailles devrait permettre de savoir si le fichier a été "tripoté" puisque dans les 2 cas de figure (modification définitive ou modification ensuite annulée), la taille du fichier s'en trouve modifiée, alors qu'elle ne le serait pas si l'on se contentait d'ouvrir et de fermer le fichier....

ça me semble vraiment interessant jmfmarques,

Comment puis-je tester çela maintenant car je suis sure que ça marcherait?

Sous VB, nous avons la fonction Filelen dont la syntaxe est :

FileLen(pathname)

Sous VBA, je ne sais pas (je ne travaille plus avex VBA depuis de trop nombreuses années), mais un VBAiste passera par là pour te le dire, j'en suis certain.