Rechercher : dans
Par :

Excel macro date derniere modification du doc

Dernière réponse le 12 nov 2009 à 11:58:01 bastoun, le 23 nov 2001 à 12:11:06 
 Signaler ce message aux modérateurs

Comment faire en excel pour obtenir la date de dernière modif du classeur dans une cellule

vite de l'aide

Meilleures réponses pour « excel macro date derniere modification du doc » dans :
[PHP] Date de dernière modification VoirGrâce à PHP il est possible d'afficher automatiquement la date de dernière modification de la page en cours : ...
Javascript - Date de dernière modification de la page VoirIl est possible, en langage Javascript, d'afficher la date de dernière modification de la page Web grâce à la propriété lastModified de l'objet document :
Télécharger MOREFUNC (Macro complémentaire EXCEL) VoirMorefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres...

1

f1aoc, le 25 nov 2001 à 11:39:44

A tout hasard si ca peut t'aider ?
=aujourdhui( )

=maintenant ( )

a verifier dans l'aide en tapant : maintenant, aujourdhui.

Répondre à f1aoc

2

Mabelle60, le 4 avr 2007 à 22:07:07

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

Répondre à Mabelle60

3

Baz, le 3 jui 2007 à 16:56:14

Merci bcp!

Répondre à Baz

9

@lex, le 12 jui 2009 à 08:26:16

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

Répondre à @lex

4

stef, le 4 jan 2008 à 09:17:29

Question bête, que faut-il modifier pour rajouter l'heure?

Merci

Répondre à stef

8

titeuf_007, le 26 fév 2009 à 12:59:45

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.

Répondre à titeuf_007

5

Mabelle60, le 4 jan 2008 à 22:10:21

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

Répondre à Mabelle60

7

merlin, le 29 nov 2008 à 11:06:32

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

Répondre à merlin

6

niko, le 19 nov 2008 à 10:08:30

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...

Répondre à niko

10

petit dragon, le 27 oct 2009 à 17:27:02

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

Répondre à petit dragon

11

 alexbarre, le 12 nov 2009 à 11:58:01

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 !

Répondre à alexbarre