comment assignér une date a une cellule

[voldemort]

bonsoir à tous,

je voudrais assigner la date du jour, de façon non volatile , à une cellule dans une feuille excel, pour pouvoir ensuite la réutiliser pour créer le nom du fichier pour son enregistrement.

avec "aujourd'hui" la date est volatile....

Merci de votre aide.

à vous lire,
Bien codialement.

 

[Hulk]

Re : comment assignér une date a une cellule

Hello,

Ben sauf erreur, tu tapes simplement ta date dans la cellule. Avec le format date.

 

[voldemort]

Re : comment assignér une date a une cellule

OK, mais je souhaiterais que cela se fasse de façon automatique à l'ouverture
du fichier par l'utilisateur.
en quelque sorte une fonction "aujourd'hui" qui ne marcherait qu'a la première ouverture du fichier, ou qui serait figée apres la premier ouverture.

a vous lire.

Cordialement,

 

[jeanpierre]

Re : comment assignér une date a une cellule

Bonjour voldemort, Hulk,

Ou plus simplement avec Ctrl et ; les deux touches en même temps.

Bonne fin d'après-midi.

Jean-Pierre

 

[jeanpierre]

Re : comment assignér une date a une cellule

Re, salut CC,

Avec un test sur A1 si vide et ce sera parfait. Il faut que cela fonctionne que la première fois....

Bonne fin d'AM.

Jean-Pierre

 

[voldemort]

Re : comment assignér une date a une cellule

Super, voici la solution inspirée du code VBA ci dessus:

Private Sub Workbook_Open()
If Sheets("Recap Prod midi").Range("f4") = "" Then
Sheets("Recap Prod midi").Range("f4") = Date
Else: Exit Sub
End If
End Sub


un grand merci à vous tous ;-)

bonne soirée....A Bientot!!!

 

[ERIC S]

Re : comment assignér une date a une cellule

Bonsoir à tous

le else ne sert à rien, sauf erreur de fatigue de ma part (pourquoi faire un exit sub alors que naturellement tu feras un end sub

 Private Sub Workbook_Open()
If Sheets("Recap Prod midi").Range("f4") = "" Then
Sheets("Recap Prod midi").Range("f4") = Date
End If
End Sub

en plus compact

 Private Sub Workbook_Open()
If Sheets("Recap Prod midi").Range("f4") = "" Then Sheets("Recap Prod midi").Range("f4") = Date
End Sub