Date enregistrement excel

Résolu/Fermé
Signaler
-
 So -
bonjour,

je voudrai afficher la date de mise a jour d'une feuille excel dans une cellule lorsque j'ai effectué des modifications et que je quitte excel.

lorsque je quitte excel et que j'ai apporté des modifications a ma feuille, je voudrais que la date de la mise a jour se mette dans une cellule. je voudrais qu'elle se change automatiquement.

merci de votre aide

12 réponses

Messages postés
68
Date d'inscription
jeudi 16 août 2007
Statut
Membre
Dernière intervention
8 février 2009
6
salut,

j'ai toujours pas réussi à changer la date de modification à l'enregistrement independement dans chaque feuille.

j'ai repris ce code mais cela ne marche que pour une feuille. si je le recopie pour une autre feuille, cela me crée des erreurs.

Dim modif As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub
9
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

dans VBA work book:

'Date de mise à jour par feuille
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
titre = ActiveSheet.Name
reponse = MsgBox("Actualiser la date de mise à jour de la feuille " + titre + " avant d'enregistrer le fichier?", vbOKCancel)
If reponse = vbOK Then
Dim fs, f
nom = ActiveWorkbook.FullName
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(nom)
Cells(1, 1) = "Mis à jour le " + Left(f.DateLastModified, 10)
End If
If reponse = vbCancel Then
End If
End Sub
Merci, ça marche très bien, ça ma permis de régler un problème dont je cherchait la solution depuis un bon moment.
Salut

Dans la section "This Workbook" de Microsoft Windows Excel, placez :

Dim modif As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub

Source =>
https://forums.commentcamarche.net/forum/affich-33238-excel-macro-date-derniere-modification-du-doc#0

à+
Bonjour,
jai lu ton message pour afficher la dernière mise à jour d'un document excel, mais je ne sais pas quelle est la section "this workbook' dont tu parles? je ne m'y connais pas très bie cette question doit te paraître un peu bête..
merci pr ton aide
Salut

Afficher la date et l'heure de modification, dans une cellule d'une feuille de calcul Microsoft Windows Excel :

Soit pour une modification dans l'ensemble d'un document Microsoft Windows Excel ...
Soit pour une modification dans une feuille de calcul déterminée, d'un document Microsoft Windows Excel ...

Une excellente piste déjà pour commencer ; la solution mâchée ensuite par moi-même ou d'autres :
http://www.info-3000.com/vbvba/evenementclasseur.php

Les événements de classeur (WorkBook) ont une équivalence dans Sheet (= feuille) ; (Microsoft Windows Excel) !
Workbook_SheetActivate(ByVal Sh As Object), peut peut-être servir à la place de Workbook_BeforeClose(Cancel As Boolean) ...

Les évènements du module objet ThisWorkbook, dans Microsoft Windows Excel ; sur www.developpez.com :
https://silkyroad.developpez.com/VBA/EvenementsClasseur/

merci .

à+
Salut

Afficher la date et l'heure de modification, dans une cellule d'une feuille de calcul Microsoft Windows Excel :

Cet exemple incrémente d'une unité la cellule A1, à chaque modification dans la feuille :
Vba ; Programmation ; Microsoft Windows Excel :

https://silkyroad.developpez.com/VBA/EvenementsFeuille/

Private Sub Worksheet_Change(ByVal Target As Range)
... 'Désactive l'évènement
... Application.EnableEvents = False
... 'modification dans la cellule A1
... Range("A1") = Range("A1") + 1
... 'Réactive l'évènement
... Application.EnableEvents = True
End Sub

N'oubliez pas d'enlever, les "..." ;-) ; faites les modifications suivant votre cas particulier. merci.
(Je ne programme pas assez ; pour vous aider directement ; merci d'indiquer des solutions ci-dessous. merci.)

à+
Si tu n'as toujours pas réussi, essaie ca pour voir... désolé du retard

'Dans ThisWorkBook
'========================================
Dim modifFeuil1 As Boolean
Dim modifFeuil2 As Boolean
Dim modifFeuil3 As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
If modifFeuil1 = True Then
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
If modifFeuil2 = True Then
Sheets("Feuil2").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
If modifFeuil3 = True Then
Sheets("Feuil3").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
Application.EnableEvents = True
End Sub

Public Sub feuil1change()
modifFeuil1 = True
End Sub

Public Sub feuil2change()
modifFeuil2 = True
End Sub

Public Sub feuil3change()
modifFeuil3 = True
End Sub

'Dans Feuil1
'============================
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.feuil1change
End Sub

'Dans Feuil2
'============================
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.feuil2change
End Sub

'Dans Feuil3
'============================
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.feuil3change
End Sub
Messages postés
68
Date d'inscription
jeudi 16 août 2007
Statut
Membre
Dernière intervention
8 février 2009
6
merci ça marche.

j'avais vu ce sujet de discution mais ne savais pas ou insérer le code

A+
Salut

Afficher la date et l'heure de modification, dans une cellule d'une feuille de calcul Microsoft Windows Excel :

Private Sub Worksheet_Change(ByVal Target As Range)
    'Désactive l'évènement pour évité une boucle sans fin (modification de la modification ...)
    Application.EnableEvents = False
    'modification dans la cellule A1
    Range("A1") = MAINTENANT()
    'Réactive l'évènement ; était là pour évité une boucle sans fin (modification de la modification ...)
    Application.EnableEvents = True
End Sub

Merci à vous de faires les modifications suivant votre cas particulier. merci.

à+

Bonjour,

Peut on m'éclairer pour que le changement s'éffectue au moment de l'enregistrement.
Merci
Messages postés
68
Date d'inscription
jeudi 16 août 2007
Statut
Membre
Dernière intervention
8 février 2009
6
merci du conseille mais ce n'est pas ce que je désire faire.

je voudrai que la date change seulement lorsque je modifie et enregistre ma feuille excel.
Messages postés
68
Date d'inscription
jeudi 16 août 2007
Statut
Membre
Dernière intervention
8 février 2009
6
une autre petite question,

j'ai plusieurs page et je voudrai quelles soient indépendante pour la date d'enregistrement, j'ai essayé en recopiant le code et changement le nom de la feuille mais ca ne marche pas.

merci de votre aide
Messages postés
68
Date d'inscription
jeudi 16 août 2007
Statut
Membre
Dernière intervention
8 février 2009
6
personne peut m'aider, ca doit bien être possible de modifier la date de mise à jour indépendament sur chaque feuille d'un classeur excel
Messages postés
29
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
12 février 2009

salut,

Tapes dans ta cellule choisie : =AUJOURDHUI()

et voilà! la date du jour sera insérée automatiquement dans ta cellule.

a+