B
BERANGERE
Guest
Bonjour le forum !!!
Une petite question svp, histoire d'éclairer ma chtite lanterne....
Je veux qu'au lancement de mon fichier Excel, ces 2 boites de dialogue s'ouvrent.
Voici les deux codes ci dessous :
1ere (cette dernière disparait de l'écran au bout de 5 secondes)
la deuxième (cette dernière doit etre validée par un OK)
(les USF sont OK)
Voici mon problème :
Comment, dans l'objet ThisWorkbook, placer ces deux commandes ensemble pour qu'elle ne créées aucun conflits, autrement dit, comment les faire "vivre" ensemble ?
1er code
Function Message_Temporaire(Message As String, TpsenSeconde As Integer, TitreMessage As String)
CreateObject("WScript.Shell").PopUp Message, TpsenSeconde, TitreMessage
End Function
Private Sub Workbook_Open()
nib = Message_Temporaire("Bonjour " & Application.UserName & "," & Chr(10) & " Ce fichier a été réalisé par bibi premier", 5, "Bienvenue !")
End Sub
************************************
2eme code
Option Explicit
Sub workbook_open()
Accueil.Show
End Sub
Merci pour vos réponses !
Une petite question svp, histoire d'éclairer ma chtite lanterne....
Je veux qu'au lancement de mon fichier Excel, ces 2 boites de dialogue s'ouvrent.
Voici les deux codes ci dessous :
1ere (cette dernière disparait de l'écran au bout de 5 secondes)
la deuxième (cette dernière doit etre validée par un OK)
(les USF sont OK)
Voici mon problème :
Comment, dans l'objet ThisWorkbook, placer ces deux commandes ensemble pour qu'elle ne créées aucun conflits, autrement dit, comment les faire "vivre" ensemble ?
1er code
Function Message_Temporaire(Message As String, TpsenSeconde As Integer, TitreMessage As String)
CreateObject("WScript.Shell").PopUp Message, TpsenSeconde, TitreMessage
End Function
Private Sub Workbook_Open()
nib = Message_Temporaire("Bonjour " & Application.UserName & "," & Chr(10) & " Ce fichier a été réalisé par bibi premier", 5, "Bienvenue !")
End Sub
************************************
2eme code
Option Explicit
Sub workbook_open()
Accueil.Show
End Sub
Merci pour vos réponses !