Afficher date du jour et n° de semaine dans USF et sur feuille excel

kohta · 21 Mars 2008

Bonjour, j'aurais voulu savoir comment afficher sur mon usf la date du jour et -plus compliqué-, le numéro de semaine (calendaire) actuel.

Ainsi que dans une cellule d'une de mes feuilles excel.

Merci

Pierrot93 · 21 Mars 2008

Re : Afficher date du jour et n° de semaine dans USF et sur feuille excel

Bonjour Kohta

regarde le code ci dessous, renvoie lors de l'initialisation de l'USF, dans un textbox nommé "textbox1" la date du jour ainsi que le numéro de semaine :

Code:

Private Sub UserForm_Initialize()
TextBox1.Value = "Date : " & Date & " semaine n° " & DatePart("ww", Date, 2, 2)
End Sub

bon après midi
@+

Graxy · 20 Février 2009

Re : Afficher date du jour et n° de semaine dans USF et sur feuille excel

Super. J'étais justement a la recherche d'un petit bout de code pour mettre automatiquement le numéros de la semaine avant d'imprimer. .. Je passe mon tit bout de code des fois que ca aide qqun

Sheets("Donnée").Range("B3") = DatePart("ww", Date, 2, 2)
reponse = MsgBox(" Voulez vous imprimer vos documents?", vbYesNo, "QUESTION")
If reponse = vbYes Then
ThisWorkbook.PrintOut from:=2, To:=19, Copies:=1, Collate:=True
End If
If reponse = vbNo Then
End
End If

Ca imprime de la page 2 à 19 et juste avant ca marque juste le numeros de la semaine dans la case B3 de la feuille donnée.

Afficher date du jour et n° de semaine dans USF et sur feuille excel

kohta

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Graxy

XLDnaute Nouveau

Discussions similaires