Excel macro date derniere modification du doc
bastoun
Messages postés
56
Statut
Membre
-
alexbarre Messages postés 173 Statut Membre -
alexbarre Messages postés 173 Statut Membre -
comment faire en excel pour obtenir la date de dernière modif du classeur dans une cellule
vite de l'aide
vite de l'aide
7 réponses
-
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-
-
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
-
-
a tout hasard si ca peut t'aider ?
=aujourdhui( )
=maintenant ( )
a verifier dans l'aide en tapant : maintenant, aujourdhui. -
-
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
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 !
