Popup excel en premier plan windows
Résolu/Fermé
PYGOS69
Messages postés
452
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
10 octobre 2023
-
16 avril 2015 à 16:10
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 20 avril 2015 à 12:30
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 20 avril 2015 à 12:30
A voir également:
- Popup excel en premier plan windows
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Clé windows 10 gratuit - Guide
- Arrière plan - Guide
- Montage video windows - Guide
1 réponse
Thorak83
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
156
16 avril 2015 à 16:37
16 avril 2015 à 16:37
Bonjour,
Mettre le msgbox en modal pour être sûre.
MsgBox "texte", vbApplicationModal
Cordialement
Mettre le msgbox en modal pour être sûre.
MsgBox "texte", vbApplicationModal
Cordialement
16 avril 2015 à 16:46
Cela avance, excel clignote....et quand je clique sur l'îcone le popup apparait sans afficher la feuil excel....mais il faut que je clique encore sur l'icone !
Je suis obligé de laisser....ActiveWindow.WindowState = xlMaximizedavant la ligne :
MsgBox "Le client " & variable1 & " " & Chr(10) & Chr(10) & "a contacté la société " & variable2 & " " & " fois" & Chr(10) & Chr(10) & " dont " & variable3 & " " & " fois" & " dans une agence " & Chr(10) & Chr(10) & " dont " & variable4 & " " & " fois" & " par courrier " & Chr(10) & Chr(10) & " dont " & variable5 & " " & " fois" & " au téléphone ", vbApplicationModal
16 avril 2015 à 16:52
16 avril 2015 à 17:22
Sub auto_open()
Actualiser
End Sub
Sub Actualiser()
' Définit l'intervalle avec l'heure actuelle
Uneheure = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 30)
' Appel récursif
Application.OnTime Uneheure, "Actualiser"
Call Mamacro
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime Uneheure, Procedure:="Actualiser", Schedule:=False
End Sub
Sub Mamacro()
Range("a11").Select
Selection.ClearContents
ActiveSheet.Paste
Range("b11").Select
Range("c11").Select
Range("d11").Select
Range("e11").Select
Range("A11").Select
variable1 = Range("a11")
variable2 = Range("b11")
variable3 = Range("c11")
variable4 = Range("d11")
variable5 = Range("e11")
ActiveWindow.WindowState = xlMaximized
MsgBox "Le client " & variable1 & " " & Chr(10) & Chr(10) & "a contacté la société" & variable2 & " " & " fois" & Chr(10) & Chr(10) & " dont " & variable3 & " " & " fois" & " dans une agence " & Chr(10) & Chr(10) & " dont " & variable4 & " " & " fois" & " par courrier " & Chr(10) & Chr(10) & " dont " & variable5 & " " & " fois" & " au téléphone ", vbApplicationModal
End Sub
Je souhaite que MsgBox s'affiche devant toutes les autres fenêtres....
16 avril 2015 à 17:32
16 avril 2015 à 17:46
Coller ceci en haut
et faire
lien ici pour voir un peu plus
https://access.developpez.com/sources/?page=commondlg#Messagebox