date automatique [RESOLU ]

Posez ici toutes les questions concernant un ou plusieurs logiciels, payants ou gratuits. Pour les demandes spécifiques aux systèmes d'exploitation, passez plutôt par les sections dédiées.

Modérateur: Modérateurs

date automatique [RESOLU ]

Messagepar bororo » 19 Mar 2011 03:24

Bonjour
Il m'arrive de metre a jour régulierement un fichier excel
comment peut on inserer dans une case d'Excel automatiquement la date en cours au moment de la fermeture de celui ci
je sais que celle ci apparait automatiquement dans les propriétés du fichier quand on l'enregistre mais si on ne modifie pas le fichier,il reste à l'ancienne date.
merci
J'ai utilisé la fonction MAINTENANT mais elle ne m'affiche que la date actuelle en cours.
Avatar de l’utilisateur
bororo
Modérateur
Modérateur
 
Messages: 2099
Inscription: 13 Déc 2003 21:33
Localisation: Bordeaux

Re: date automatique

Messagepar JpBbricole » 19 Mar 2011 09:42

Salut bororo

peut-être une petite macro

dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Select
Range("A4").Select
Selection.Value = Date
End Sub

Bonne journée
L'expérience est la seule chose qu'il ne faut acheter que d'occasion!

A bientôt.
Avatar de l’utilisateur
JpBbricole
Libellulien Junior
Libellulien Junior
 
Messages: 233
Inscription: 06 Aoû 2007 17:04
Localisation: Corsier-sur-Vevey

Re: date automatique

Messagepar Erbo » 19 Mar 2011 11:19

Bonjour
Pour l'automatisme je ne sais pas mais pour rappel (que beaucoup connaissent je pense):
les touches :
CTRL/SHIFT et POINT VIRGULE
appuyées simultanément dans Excel mettent automatiquement la date du jour dans la case.
Avatar de l’utilisateur
Erbo
Libellulien Junior
Libellulien Junior
 
Messages: 362
Inscription: 26 Oct 2006 09:47

Re: date automatique

Messagepar TopXm » 19 Mar 2011 16:37

Salut,
Si j'ai bien pigé la question (pas certain, doute entre la date du jour et la date de la dernière ouverture)

Sélectionner la cellule et saisir la formule :
Code: Tout sélectionner
=Aujourdhui()

;)
Image
Téléchargement gratuit Give Away Of the day
Avatar de l’utilisateur
TopXm
Libellulien Junior
Libellulien Junior
 
Messages: 421
Inscription: 23 Jan 2008 00:44

Re: date automatique

Messagepar bororo » 20 Mar 2011 01:43

merci de vos reponses
pour la macro de JPbricole,je n'ai hélas rien compris donc si tu peux me donner la manière de proceder merci.
pour les 2 autres réponses,j'ai sans doute été incomplet:
je voudrais ,quand j'ouvre mon fichier Excel,que s'affiche dans une cellule:dernière mise à jour le "jj/mm/année"
merci
Avatar de l’utilisateur
bororo
Modérateur
Modérateur
 
Messages: 2099
Inscription: 13 Déc 2003 21:33
Localisation: Bordeaux

Re: date automatique

Messagepar bororo » 20 Mar 2011 01:49

Erbo a écrit:CTRL/SHIFT et POINT VIRGULE
appuyées simultanément dans Excel mettent automatiquement la date du jour dans la case.

Salut
Je pense que c'est simplement l'appui sur les touches CTRL POINT VIRGULE qui remplissent cette fonction.(sans SHIFT)
Avatar de l’utilisateur
bororo
Modérateur
Modérateur
 
Messages: 2099
Inscription: 13 Déc 2003 21:33
Localisation: Bordeaux

Re: date automatique

Messagepar JpBbricole » 20 Mar 2011 10:44

Salut bororo
Je ne sais pas quel Excel tu utilises ni quel est ton niveau de conaissance en ce qui concerne les macro.
Pour répondre à ton désire, une macro est quasiment indispensable c'est pourquoi il est nécessaire de te renseigner à ce propos.
J'explique le fonctionnement de ma proposition (Légèrement modifiée):

Avant d'afficher la date à l'ouverture, il faut la noter au moment de l'enregistrement.
Celà se produit à chaque fois que tu sauveras ton document.
La sauvegarde provoque, au niveau de ton document (ThisWorkbook), un événement Workbook_BeforeSave
C'est à ce moment que la macro met dans une cellule la date et l'heure.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Feuil1").Range("C4").Value = Format(Date, "yy mmmm yyyy") & " " & Format(Now, "hh:mm:ss")
End Sub


Ainsi à chaque sauvegarde la date sera mise à jour.
A chaque ouverture tu retrouves la date dans Feuil1 cellule C4.

PS: je ne sait pas comment, mais je peux te faire parvenir une feuille Excel exemple.
Dernière édition par JpBbricole le 20 Mar 2011 14:10, édité 2 fois.
L'expérience est la seule chose qu'il ne faut acheter que d'occasion!

A bientôt.
Avatar de l’utilisateur
JpBbricole
Libellulien Junior
Libellulien Junior
 
Messages: 233
Inscription: 06 Aoû 2007 17:04
Localisation: Corsier-sur-Vevey

Re: date automatique

Messagepar krz125 » 20 Mar 2011 11:03

utilise la fonction date: aller dans le menu Insertion "fonction" rechercher "date" "aujourdh'ui" la cellule est configurée pour afficher la date du jour. C'est ce que je fais dans Open Office mais c'est identique avec Excel.
Amicalement,
Luc
krz125
krz125
Libellulien Junior
Libellulien Junior
 
Messages: 238
Inscription: 06 Jan 2007 13:38

Re: date automatique

Messagepar bororo » 30 Mar 2011 20:46

JpBbricole a écrit:Salut bororo


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Feuil1").Range("C4").Value = Format(Date, "yy mmmm yyyy") & " " & Format(Now, "hh:mm:ss")
End Sub


Ainsi à chaque sauvegarde la date sera mise à jour.
A chaque ouverture tu retrouves la date dans Feuil1 cellule C4.

PS: je ne sait pas comment, mais je peux te faire parvenir une feuille Excel exemple.

Salut
Merci de ta réponse.
Bien sur,je n'ai pas reusi a la faire fonctionner car je suis un peu nul
alors j'accepte avec plaisir que tu me fasses passer une feuille Excel avec la formule incluse.
A plus et merci encore
Avatar de l’utilisateur
bororo
Modérateur
Modérateur
 
Messages: 2099
Inscription: 13 Déc 2003 21:33
Localisation: Bordeaux

Re: date automatique

Messagepar JpBbricole » 31 Mar 2011 08:54

Salut bororo
A ta disposition sur http://cjoint.com/?1dFiUmMoyhd

j'ai fait quelques changements par rapport à l'original.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Feuil1").Range("C4").Value = Format(Now, "dd.mmmm.yyyy hh:mm:ss")
End Sub



Bonne journée
L'expérience est la seule chose qu'il ne faut acheter que d'occasion!

A bientôt.
Avatar de l’utilisateur
JpBbricole
Libellulien Junior
Libellulien Junior
 
Messages: 233
Inscription: 06 Aoû 2007 17:04
Localisation: Corsier-sur-Vevey

Re: date automatique

Messagepar bororo » 31 Mar 2011 11:53

salut Jpbricole
effectivement,apres avoir désactivé ou du moins changé le niveau de securité de la feuille Excel,la macro a fonctionné parfaitement.
Par contre,je suppose que je dois recopier cette macro dans la case de mon choix.
Ou se trouve t'elle?
Car je ne l'ai pas trouvée dans la feuille.Dois je remplacer les variables de cette macro(Feuil1,C4,dd,mmmm,yyyy,hh:mm:ss)?
Je dois dire que je patauge un peu.
Merci de ta patience.
PS
apres avoir farfouillé,j'ai trouvé la description de la macro.j'ai fait un test en changeant la case C4 et ça fonctionne.
maintenant,je vais essayer de recopier la formule sur une autre feuille ou au pire,je recopie ma feuille Excel sur celle que tu m'as envoyée avec la macro integrée...
Avatar de l’utilisateur
bororo
Modérateur
Modérateur
 
Messages: 2099
Inscription: 13 Déc 2003 21:33
Localisation: Bordeaux

Re: date automatique

Messagepar JpBbricole » 31 Mar 2011 12:54

Salut bororo
Les macros ne se trouvent pas dans des cellules mais sont accessibles par la le menu:
Excel 2007 Onglet Développeur / Visualiser le code
Excel 2003 Outils / Macro / Visual Basic Editor

En effet, on ne traite pas une cellule mais un événement qui se produit au niveau du Classeur (ThisWorkbook)
Le fait de sauver ce classeur, provque, à son niveau, un événement appelé Workbook_BeforeSave.
Ce genre de traitement ne se traite qu'au niveau des macros.

A gauche doubleclick sur l'objet ThisWorkbook
En haut à droite, selectionne l'événement BeforeClose dans la ListBox de droite
La macro se trouve ici

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Feuil1").Range("C4").Value = Format(Now, "dd.mmmm.yyyy hh:mm:ss")
End Sub


Pour paramètrer le feuille ou la cellule de destination, je pense que c'est assez clair.
L'expérience est la seule chose qu'il ne faut acheter que d'occasion!

A bientôt.
Avatar de l’utilisateur
JpBbricole
Libellulien Junior
Libellulien Junior
 
Messages: 233
Inscription: 06 Aoû 2007 17:04
Localisation: Corsier-sur-Vevey

Re: date automatique

Messagepar bororo » 31 Mar 2011 13:36

Ouf!j'ai reussi
merci de ton aide précieuse
A plus
Avatar de l’utilisateur
bororo
Modérateur
Modérateur
 
Messages: 2099
Inscription: 13 Déc 2003 21:33
Localisation: Bordeaux

Re: date automatique [RESOLU ]

Messagepar samy26 » 05 Juil 2011 15:34

Bonjour à toutes et tous,

une petite question complémentaire par apport au précédent problème.
En colonne A (mais sur toute la colonne A !), je voudrais avoir la date du jour de saisie, sans que cette dernière ne se mette à jour (répertoire de l'ensemble des appels reçus sur l'année avec la date bien sûr). Étant très peu utilisateur des codes, pouvez-vous m'aidez ?

Merci d'avance.

Samy26
samy26
 
Messages: 1
Inscription: 05 Juil 2011 15:30


Retourner vers Software - Logiciels

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités