Affichage de la date du jour

Bonsoir à toute la communauté.

Je cherche à afficher la date du jour à l'ouverture d'un dans un Textbox (réservation) dans la feuille réserve, mais je n'y parviens pas.

J'aurai donc besoin de votre aide.

Merci à vous

Bonjour,

Remplace dans l'userform en question

Private Sub UserForm_Initialize()
res1.SetFocus
End Sub

Par :

Private Sub UserForm_Initialize()
'res1.SetFocus
res1 = Format(Date, "dd/mm/yyyy")
End Sub

Je ne sais pas si tu veux conserver le focus sur la textbox.

Cordialement,

bonsoir ddetp88,

Merci du bout de code que je viens d'insérer, mais j'obtiens ce message d'erreur.

Je ne sais pas pourquoi

Merci

vois ce petit tuto.

Cordialement,

c'est pourtant simple !!! bon moi je n'avais pas compris.

Merci pour le tuto.

Par contre maintenant il ouvre directement l'USF "sélection du client" à la place de l'USF réservation ?

Comme tu peux le remarquer je débute

héhé,

Effectivement, l'ouverture du fichier lance un nouvel userform qui lui lance une procédure qui va ouvrir une base access.

Si tu n'as pas la base sur le path nommé dans la ligne surlignée, ça plantera à chaque fois.

Il faut relancer un fil car c'est l'objet d'une nouvelle question. (dans laquelle je ne me lancerai pas )

Cordialement,

Sub Connex()

Dim tbl As String

tbl = ThisWorkbook.Path & "\" & "bdplanninghotel.accdb"

'Fichier = Sheets("cacher").Range("d2").Value

'Nclass = Sheets("cacher").Range("b2").Value

Set Cn = New ADODB.Connection

Cn.Open "Provider=Microsoft.Ace.OLEDB.12.0; Persist Security Info = False;" & _

"Data Source=" & tbl & ";"

Set Cd = New ADODB.Command

Cd.ActiveConnection = Cn

Set Rs = New ADODB.Recordset

End Sub

si tu mets en remarque le lancement du l'autre userform, tu verras l'userform reverve s'ouvrir.

Le fichier pour preuve.

Bonne suite.

Un grand merci pour toutes tes explications.

Merci à la communauté.