High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Date enregistrement excel

Dernière réponse le 27 oct 2009 à 17:47:22 aurel51, le 18 sep 2007 à 15:21:02 
 Signaler ce message aux modérateurs

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

Configuration: Windows 2000
Internet Explorer 5.5

Meilleures réponses pour « date enregistrement excel » dans :
Travailler sur les dates avec Excel VoirVous avez une date en C3 par exemple, et vous voulez connaitre : le N° de la semaine correspondant à cette date : = NO.SEMAINE(C3;2) Nota : 2 correspond à un système de semaines commençant le Lundi, et 1 pour le Dimanche. ...
VBScript - Les fonctions de date et de temps VoirLes fonctions de date et de temps Fonction Description Date Retourne la date du système DateAdd(interval, number, date) Ajoute un intervalle de temps (interval) à une...
Posez votre question Répondre

1

jetset30, le 18 sep 2007 à 17:23:19

Salut,

Tapes dans ta cellule choisie : =AUJOURDHUI()

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

a+

   
Répondre à jetset30

2

aurel51, le 18 sep 2007 à 17:26:58

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.

   
Répondre à aurel51

3

Anonyme, le 18 sep 2007 à 17:38:51

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 =>
http://www.commentcamarche.net/forum/affich-33238-excel-macro-date-derniere-modification-du-doc#0

à+

   
Répondre à Anonyme

12

fox1987, le 3 mai 2008 à 12:48:42

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

   
Répondre à fox1987

4

aurel51, le 18 sep 2007 à 18:09:11

Merci ça marche.

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

A+

   
Répondre à aurel51

5

aurel51, le 18 sep 2007 à 18:26:27

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

   
Répondre à aurel51

6

Anonyme, le 18 sep 2007 à 19:31:24

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 :
http://silkyroad.developpez.com/VBA/EvenementsClasseur/

merci .

à+

   
Répondre à Anonyme

7

Anonyme, le 18 sep 2007 à 22:38:30

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 :

http://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.)

à+

   
Répondre à Anonyme

8

Anonyme, le 18 sep 2007 à 23:17:36

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.

à+

   
Répondre à Anonyme

9

aurel51, le 19 sep 2007 à 10:09:20
  • +1

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

   
Répondre à aurel51

10

aurel51, le 20 sep 2007 à 10:02:21

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

   
Répondre à aurel51

11

alprog, le 23 jan 2008 à 22:52:45
  • +1

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

   
Répondre à alprog

13

 petit dragon, le 27 oct 2009 à 17:47:22

Bonjour,

Peut on m'éclairer pour que le changement s'éffectue au moment de l'enregistrement.
Merci

   
Répondre à petit dragon
Posez votre question Répondre
Ils ont besoin de votre aide