Cacher excel/Afficher la date et lancement automatique le jour jRésolu

Question

Bonjour,

J'ai mon userform, et malgré la formule suivante utilisée :

Public Sub demo()
   Application.Visible = False
   FM_accueillir.Show
End Sub

Lorsque je lance celui-ci, excel est toujours apparent en fond, 
comment dois-je faire alors pour qu'a l'ouverture du fichier .xls , on arrive directement sur mon userform ?

De plus, j'aimerais afficher la date du jour au format européen dans mon userform, comment dois-je faire ?

Derniére question, j'aimerai qu'une fenetre s'ouvre tous les premiers mercredi du mois, que dois je mettre?

Merci beaucoup pour votre aide.

bricoyeye · Accepted Answer

Salut, 
tu crés un label:

label.Caption = Format$(Date, "dddd d mmmm yyyy")

If Format$(Date, "dddd ") = "mercredi"  Then
Tapage.Show
end if

mortalino · Answer

Salut, bricoyeye, avec ta fonction, la form s'ouvrira TOUS les mercredis, et non pas le Premier mercredi du mois. voici la bonne syntaxe : If Weekday(Date) = vbWednesday And Day(Date) < 7 Then TaForm.Show ~ Mortalino ~ @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

treizia · Answer

Ok merci a vous tous, je vais tester et je vous tiens au courant.

bricoyeye · Answer

salut,
Pardon, j'avais mal lu
Mille excuses.

bricoyeye · Answer

Lorsque je lance celui-ci, excel est toujours apparent en fond, 
comment dois-je faire alors pour qu'a l'ouverture du fichier .xls , on arrive directement sur mon userform ?

Par défaut, les fichiers .xls s'ouvrent avec excel dans windows.

Je pense que là, il faudra trafiquer ta base de registre pour l'ouvrir avec ton application.

(Mais je me trompe peut être !)

treizia · Answer

Par contre j'arrive pas à créer ce label ?

Il ne m'affiche rien, peut dire me dire la procédure stp ?

Je dois le faire dans mon userform ?

Merci pour ton aide.

bricoyeye · Answer

Tu crés un label, là dans l'exemple il s'appelle label, mais tu peux lui donner m'importe quel nom!(en principe, c'est label1 si c'est le premier etc..) 
Tu le mets ou tu veux voir ta date!
Si c'est le bon nom, quant tu mets le . aprés, tu dois avoir un choix.
Pas de choix, pas le bon nom!

treizia · Answer

Oui mais comment le créer , par une procédure de type Public Sub ?
C'est ça mon probléme en fait, car je n'ai jamais vu comme créer un label.

Merci et désolé pr ces questions /ridicules/.

bricoyeye · Answer

Tu vas dans général (à gauche), tu choisis le GRAND A,et tu positionnes ton label sur ta feuille (qui n'est pas en mode code!!!!!)

treizia · Answer

Ok ça marche niquel, merci beaucoup !

treizia · Answer

Par contre je viens de me rendre compte que la date s'affiche dans mon userform uniquement si je clique sur le label.
comment faire pour que ca s'affiche sans click ?

Merci et désolé pr ce dernier embettement

bricoyeye · Answer

il faut mettre le code dans  Private Sub Form_Load()
et non pas dans   Private Sub Label1_Click()

treizia · Answer

je l'ai mis dans cette procédure:

Private Sub Form_Load()
Label5.Caption = Format$(Date, "dddd d mmmm yyyy")
If Weekday(Date) = vbWednesday And Day(Date) < 7 Then FM_statistiques.Show
End Sub

Mais quand je lance mon userform, toujours pas de chargment automatique de la date.
Désolé, vraiment, de t'embetter avec mes problémes.

J'ai tout testé, en faisant un call form_load dés le début de la procédure générale et tout, mais rien ne marche ?

mortalino · Answer

UserForm = VBA (et non VB) donc : Private Sub UserForm_Initialize() ' l'évènement pour charger la Form diffère entre VBA & VB Label5.Caption = Format$(Date, "dddd d mmmm yyyy") If Weekday(Date) = vbWednesday And Day(Date) < 7 Then FM_statistiques.Show End Sub ~ Mortalino ~ @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

bricoyeye · Answer

tu l'as mis ou ton label!! çà doit marcher.
Sinon suprime le, mets en un autre et dirige le code vers lui (tu as peut etre touché aux propriétés du label!!!!!

bricoyeye · Answer

Oups on c'est croisé

treizia · Answer

Mortalino, ta solution marche, et je t'en suis reconnaissant.
Merci aussi pour toute ton aide Bricoyeye !

Cacher excel/Afficher la date et lancement automatique le jour j

17 réponses

Votre réponse

Discussions similaires