faire venir excel devant les autres applications par macro VBA

Question

Bonjour à tous, 
Je travaille sur le code ci dessous dans Excel2003 dans le but de fermer un fichier Excel inutilisé depuis 1 minute. Le code est contenu dans le fichier Excel à fermer. La version "brutale"(thisworkbook.FermeFichier) fonctionne bien mais je désire poser une question avant de fermer.(thisworkbook.Interroger)

Je rencontre 2 problèmes :

1)  si l'utilisateur est passé à une autre application, ma question est cachée par celle ci et il faudrait donc que j'oblige Excel à passer devant toutes les applis !

2)  si l'utilisateur ne répond pas à la question qui lui est posée (msgbox reste ouverte et attend la réponse donc bloque le déroulement du code macro) alors j'aimerais que cette msgbox se ferme et passer à la version "brutale" qui ferme le fichier après enregistrement du fichier
 
---DEBUT CODE PRESENT DANS ThisWorkbook---

 Sub Minuteur() 'ferme le fichier si inutilisé pendant 1 minute
'Application.OnTime Now + TimeValue("00:01:00"), "thisworkbook.FermeFichier", False
Application.OnTime Now + TimeValue("00:01:00"), "thisworkbook.Interroger", False
End Sub

Sub FermeFichier()
If Application.Wait(Now + TimeValue("00:00:15")) Then 'après un délai de 15 secondes
    ThisWorkbook.Close savechanges:=True
End If
End Sub

Public Sub Interroger()
Réponse = MsgBox("Ce fichier se fermera dans 15 secondes. Acceptez-vous ?", vbYesNo)
    Select Case Réponse
    Case vbNo
        Minuteur
        Exit Sub
    Case Else
        FermeFichier
        Exit Sub
    End Select
End Sub

Private Sub Workbook_Open()
Minuteur
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Minuteur
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Minuteur
End Sub

---FIN CODE---

cs_Le Pivert · Answer

Bonjour, 

Pour la 2ème question tu peux obliger l'utilisateur à répondre en supprimant la croix de fermeture comme cela:

Dim Rep As Integer
      Rep = MsgBox("Voulez-vous continuez ?", vbYesNo + vbQuestion, "Mon appli")
    If Rep = vbYes Then
        ' ici le traitement si réponse positive
        ' ...
    Else
        ' ici le traitement si réponse négative
        ' ...
    End If

jordane45 · Answer

Bonjoue.
Pour la question 1 regardez ici :

http://social.msdn.microsoft.com/Forums/en-US/e268a4f4-2c87-4235-a89c-a6c6739f0dae/can-i-activate-a-external-window-in-vba

jordane45 · Answer

IEfram, c'est ce que l'utilisateur voulait mettre au premier plan... n gros c'est le nom de sa fenetre....
Il faut que toi tu mettes celui qui t'interesse

Il ne faut pas seulement faire du copier/coller... il faut comprendre le code que l'on recupere et l'adapter a ses besoins...
Les autres utilisateurs n'ont pas toujours fais la même chose que ce que vous cherchez à faire, mais leurs codes peuvent s'en rapprocher

cs_Le Pivert · Answer

Je te propose de faire un msgBox avec un UserForm. De cette façon ton message se fermera quand tu le désireras. voici le code:

Option Explicit
Private Sub UserForm_Activate()
Dim dtDate As Date
 dtDate = Now()
        Do Until (Now() - dtDate) > (1 / 24 / 60 / 60 * 5) 'Boucle d'attente de 5 secondes
            DoEvents 'Permet à l'utilisateur de cocher la case
        Loop
    Unload Me 'Effacer le formulaire
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
 

Je te laisse le soin d'ajouter les button Yes et No avec les procédures qui vont avec

bonne programmation.

CerberusPau · Answer

Bonjour à vous,

Juste pour information :

http://codes-sources.commentcamarche.net/source/51629-fermeture-automatique-classeur-excel-avec-alarme 

Cordialement

Faire venir excel devant les autres applications par macro VBA

5 réponses

Votre réponse

Discussions similaires