Sujet Précédent Sujet Suivant

Date mise a jour excel

Fermé
anne26 Messages postés 35 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 15 octobre 2008 - 13 oct. 2008 à 10:57
 anne26 - 13 oct. 2008 à 14:52
Bonjour,
une nouvelle petite question..
j'aimerais savoir s'il etait possible d'inserer sur excel la date de la derniere mise à jour du classeur qui restera inchanger jusqu'a la prochaine mise a jour meme si on ouvre le fichier entre temps(et non pas la date du jour qui changerais a chaque ouverture du fichier).
merci d'avance
A voir également:

7 réponses

Réponse 1 / 7
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
13 oct. 2008 à 11:41
pourquoi ll'as tu coller dans thisworkbook ?

Si tu veux que ca apparaisse à l'ouverture du fichier ( tu n'avais pas préciser...c'est çà?)

Private Sub Workbook_Open()
range("A1")= ActiveWorkbook.BuiltinDocumentProperties(12)
End Sub
1
Réponse 2 / 7
anne26
13 oct. 2008 à 14:52
j'ai toruver quelque chose mais est ce possible d'adapter ce code pour que si on modifie la feuil3 par exemple la date change mais si on modifie une autre que la feuil3 la date ne bouge pas??du genre" if modif feuil3.....".
La pour le moment quelque soit la feullie sur laquelle une modif est faite la date change.

Voila le code : 

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")
Sheets("Feuil2").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
Sheets("Feuil3").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


merci d'avance
0
Réponse 3 / 7
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
13 oct. 2008 à 11:20
Bonjour,

en VBA:
range("A1")l = ActiveWorkbook.BuiltinDocumentProperties(12)
-1
Réponse 4 / 7
anne26 Messages postés 35 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 15 octobre 2008 1
13 oct. 2008 à 11:23
merci pour ta réponse mais ne connaissant pas le langage VBA pourrais tu me dire ce qu'il faut mettre avant et apres
"range" (sub ou quelque chose comme ca je crois??)
merci
-1

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
13 oct. 2008 à 11:25
sub dater_dernièremodif()
range("A1")= ActiveWorkbook.BuiltinDocumentProperties(12)
end sub
-1
Réponse 6 / 7
anne26 Messages postés 35 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 15 octobre 2008 1
13 oct. 2008 à 11:34
je ne comprend pas j'ai copier/coller ton code dans this workbook mais ca ne marche pas . il n'y a pas de message d'errreur mais rien ne s'affiche??
-1
Réponse 7 / 7
anne26 Messages postés 35 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 15 octobre 2008 1
13 oct. 2008 à 12:02
ca y est ca marche mais je vois que en faite ca change des qu'on enregistre le fichier et je voudrais savoir si c'etait possible de faire la meme chose mais comme ca : je m'explique : en faite mon fichier Excel est alimenté grace a des importations de fichier access (vers excel). j'aimerais que la date change à chaque importation et non pas a chaque enregistrement est ce possible??
-1