Date

[Dominique]

Bonjour tout le monde et encore mille fois merci pour toute les infos et l'aide que vous apportez tous.

Voilà j'ai un classeur et je désire avoir l'affichage de la première feuille qui s'appelle Menu au moment ou je démarre mon fichier excel.
Ensuite dans une cellule qui s'appelle A1 par exemple de la feuille Menu j'aimerais avoir un message de bienvenu avec la date et l'heure (heure,minute,seconde) du jour.

Exemple

>>> Bonjour et bienvenu aujourd'hui Mardi 8 mars 10:04:29

D'avance super merci

 

[Jam]

Bonjour Dominique,

1. d'abord le message; Comme tu ne précises pas ce que tu veux exactement, je te propose 2 solutions:

Dans une cellule tu saisis:
='Bonjour et bienvenu aujourd'hui ' & TEXTE(AUJOURDHUI();'jjjj mmm aaaa')
(deuxième solution ci-après)

2. Dans le module Thisworkbook tu peux coller le code suivant

Private Sub Workbook_Open()
Dim Msg As String
Worksheets('NomMaFeuille').Select
Msg = 'Bienvenu aujourd'hui ' & Now()
MsgBox Msg, vbOKOnly, 'Hello'
End Sub

Bon courage

 

[Abel]

Bonjour Dominique,

Va dans l'éditeur de macro (Alt+F11)

Double clique sur 'Thisworkbook' dans l'explorateur de projet et dans le projet qui correspond au fichier où tu veux l'exécution de cette macro.

une fenêtre va s'ouvrir où tu pourras entrer du code.

En haut de cette fenêtre, deux listes déroulantes.

Dans celle de gauche, sélectionne 'Workbook' et dans celle de droite 'Open', s'il ne la pas fait tout seul.

Deux lignes de code vont apparaitre correspondant à une macro évennementielle.
En l'occurence, lorsque l'évennement 'Ouverture du fichier se produit, alors faire ...' :
Private Sub Workbook_Open()

End Sub

Entre ces deux lignes, tape le code suivant :
sheets ('Menu').select
Range('a1') = 'Bonjour et bienvenu aujourd'hui ' & Format(Now, 'dddd d mmmm yyyy')

En espérant que cela te dépanne.

Abel

 

[Abel]

Re,

Oups !

Pardon MrExcel. Pas rafraichi.

Abel.

 

[MrExcel]

Salut Abel,

Pas de problème car dans ton code y'a une ch'tite subtilité que j'ai omise. Donc bienvenu à ta soluce 😉

Pour Dominique -> j'ai omis dans le msgbox le format(...) et dans la formule un j en plus pour faire apparaître la date du jour.

 

[Dominique]

Super super super merci car çà fonctionne concernant le code j'ai bien le message d'acceuil au démarrage.
j'aurais bien aimé auusi d'avoir l'affichage de l'heure dans la cellule E16 de ma feuille Menu

 

[Dominique]

Lorsque je saisis dans la cellule E16 >>>>
='Bonjour et bienvenu aujourd'hui ' & TEXTE(AUJOURDHUI();'jjjj mmm aaaa')

çà fonctionne pas et il m'indique #NAME? et je n'ai pas l'heure ni avec le code et ni avec la formule ci dessus

 

[Abel]

Re,

#NAME : aurais tu une version Excel en anglais ?

Si c'est le cas, il faut mettre la formule en anglais.

Thierry, si tu passes par là ...

Abel.

 

[Dominique]

C'est Exel 2000 en anglais mais je sais pas la formule j'ai aucun message me donnant l'heure ni avec le code ni avec la formule pour la cellule E16

 

[Jam]

Salut Dominique,

En anglais ça donne:
=... & TEXT(NOW();' d dddd mmmm yyyy hh:mm')

HTH

 

[Jam]

re salut Abel et Dominque,

P'tit truc pour les trad de formule ou VBA (valable pour les version non anglaise).
Il existe un fichier XL qui propose TOUTES les trad (Fr>Gb) directement accessible sur le disque dur de votre PC...eh oui !

C:\\Program Files\\Microsoft Office\\1036 qui se dénomme VBALIST.XLS
(chemin pouvant différer en focntion de votre install, mais pas le nom du dernier répertoire et le nom du fichier).
Y'a même un oglet pour les vieilles macro XL4.

Chô

 

[Dominique]

Salut j'ai écrit ceci dans ma cellule E15
='Bonjour et bienvenu aujourd'hui ' & TEXT(NOW();'d dddd mmmm yyyy hh:mm')

Et il m'affiche ceci :

='Bonjour et bienvenu aujourd'hui ' & TEXT(NOW();'d dddd mmmm yyyy hh:mm')

Je n'ai pas l'heure ni la date ni le message :silly:

 

[Dominique]

Avec le code çà fonctionne mais je n'ai pas l'heure qui est indiquée mais avec la formule dans la cellule j'ai rien du tout :ermm:

 

[_Thierry]

Bonjour Dominique, Abel, HTH, le Forum

Oui si tu es en anglais pas de séparateur ; dans les formules...

Essaie comme ça ici en version US c'est OK :

='Bonjour et bienvenu aujourd'hui ' & TEXT(NOW(),'d dddd mmmm yyyy hh:mm')

Bon App
@+Thierry

 

[Dominique]

Bon benh merci et excusez moi de vous avoir dérangé

Je resterai sans heure :S