Excel macro date derniere modification du doc [Fermé]

Signaler
Messages postés
56
Date d'inscription
lundi 26 février 2001
Statut
Membre
Dernière intervention
16 mars 2005
-
Messages postés
170
Date d'inscription
lundi 4 février 2008
Statut
Membre
Dernière intervention
10 avril 2013
-
comment faire en excel pour obtenir la date de dernière modif du classeur dans une cellule

vite de l'aide

7 réponses

Messages postés
469
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
21 juin 2017
122
Bonjour
Dans This Workbook, place :
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
3
Merci

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

CCM 65492 internautes nous ont dit merci ce mois-ci

Bonjour,
J'aarive pas à utiliser ce code, ça me marque erreur... et g n'obtiens rien..
Faut il mettre toutes ces "Sub" comme ci dessous?
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
Messages postés
7
Date d'inscription
samedi 17 novembre 2001
Statut
Membre
Dernière intervention
25 novembre 2001
4
a tout hasard si ca peut t'aider ?
=aujourdhui( )

=maintenant ( )

a verifier dans l'aide en tapant : maintenant, aujourdhui.
Question bête, que faut-il modifier pour rajouter l'heure?

Merci
Salut Steph,

Je ne sais pas si tu as trouvé la solution mais pour rajouter l'heure voici la solution :

il te suffit de rajouter la partie en gras et soulignée à la partie suivante du code indiqué plus haut :

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") & Format(Time, " hh/mm")
End If
End Sub

Voilà, en espérant avoir pu t'aider.

Salutations.

P.S. fais attention, entre " et hh/mm il y a un espace afin de créer un espace entre la date et l'heure à l'affichage dans la cellule.
Hy Steph
Il n'y a pas de question bête. Seules les réponses peuvent l'être
Je te conseillerais de remplacer
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
par
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy hh:mm")
Mais je viens d'essayer sur ma version et ça ne fonctionne pas même la précédente alors que ça fonctionne au boullot ?!
Sinon tu peux essayer de voir sur Excelabo.net. J'ai déja trouvé pas de trucs dessus.
Bonne chance
Je voudrais savoir quelle est la procédure pour inscrire ce code visual basic?
Ce code m'intéresse beaucoup mais impossible de l'utiliser
Merci d'avance
Bonjour,

Cette macro est top, mais je pousse le vice un peu plus loin. Je ne voudrais faire apparaitre la date de modification que lorsque les données ne sont modifiées dans le classeur que sur un tableau donné... C'est possible?

Merci d'avance...

Bonjour,

La macro a fait mon bonheur....par contre, je cherche a faire en sorte que la date s'applique au moment de la sauvegarde.
qui peut m'éclairer ?


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") & Format(Time, " hh/mm")
End If
End Sub

MERCI
Messages postés
170
Date d'inscription
lundi 4 février 2008
Statut
Membre
Dernière intervention
10 avril 2013
35
Bonjour !

Merci pour cette macro sous excel qui marche très bien !

Mais maintenant moi j'aimerais insérer exactement la même chose mais cette fois dans un fichier word... Est-ce possible ?

Merci !