Discussion :

[oliver75]

bonjour,

je cherche un code pour insérer la date du jour.

Qui a cela dans sa boutique ?

Par avance merci

Olivier

[Balou64]

Tu peux essayer ceci

Tu definis une variable x, puis tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 x = Format(Date , "mmmmyyyy")

en précisant le format de date que tu veux.

Ensuite il ne te reste plus qu'a choisir une feuille une cellule et lui donner la valeur de ta variable

[mordrhim]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateDuJour = Format(Date, "dd mmmm yyyy")

[oliver75]

ca marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub chargement_date_du_jour()
 
Dim datedujour As Date
 
Sheets("recap v2 - b").Activate
Range("D2").Select
Range("D2") = Format(Date, "dd mmmm yyyy")

En fait je cherche à insérer dans la cellulle D2 de ma sheet ("recap v2 - b"), la date du jour

[jfontaine]

Une autre méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("D2").FormulaLocal = "=AUJOURDHUI()"

Il te reste a formater ta cellule au format de date souhaité

[oliver75]

merci à tous