date fixe

D

Dan

Guest

• 22 Janvier 2004

• #2

Bonsoir,

Ce que tu peux faire c'est une macro :

1. Va dans VBA via ALT+ F11
2. appuies sur CTRL + R pour faire apparaitre VBA Project (à gauche)
3. Choisis "This workbook" et colle cette fonction dans la fenetre de droite.

Private Sub Workbook_Open()
[A1] = "=Now()"
End Sub

Voilà

Si pb n'hésite pas

@+

Dan

 

Vote positif 0 Vote négatif

N

nolwenn

Guest

• 22 Janvier 2004

• #3

J'ai bien essayé le code que vous venez de donner mais cela ne fonctionne pas quand on rouvre le document la date est bien mise mais celle du jour et pas celle du jour de l'enregistrement.
Vous pouriez me donnez un autre coup de pouce
MERCI beaucoup

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 22 Janvier 2004

• #4

Salut Nolwenn,

Essaies ce code (en partant de l'idée que ta date est en cellule A1):

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Range("A1") = Range("A1").Value

End Sub

Bon courage

Pascal

 

Vote positif 0 Vote négatif

N

nolwenn

Guest

• 22 Janvier 2004

• #5

Est ce qu'il faut mettre les deux codes !!!
Parce que ca ne fonctionne toujours pas
Sinon je te remercie déjà pour on coup de main

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 22 Janvier 2004

• #6

Re

Le code que te donnait Dan mettait la fonction aujourd'hui() dans la cellule A1 à l'ouverture.

Le code que je t'ai donné transforme la fonction aujourd'hui() de ta cellule A1 par sa valeur à la fermeture.

Donc si tu mets les 2 à chaque ouverture tu remets la fonction aujourd'hui() dans la celule donc tu annules par la même occasion la modif effectuée à la fermeture.

@+

Pascal

 

Vote positif 0 Vote négatif

D

Denis

Guest

• 22 Janvier 2004

• #7

Bonjour à tous et au Forum
voici la macro de Dan un peu modifiée, ce qui permet de ne plus modifier la cellule A1 si cette cellule est déjà remplie

Private Sub Workbook_Open()
if Range("A1") > 0 Then End
[A1] = "=Now()"
End Sub

bon courage et @+
Denis

 

Vote positif 0 Vote négatif