Discussion :

[Stargate SG1]

Bonjour

Je souhaiterais en VBA fermer mon application puis la réouvrir automatiquement

Bien sur pour fermer je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.quit

mais que faire pour la réouvrir et est ce faisable


Merci

[pgz]

Bonjour.

Pour faire cela, j'utiliserais une 2ème application. La principale lance la deuxième et lui demande d'exécuter une procédure (App2.Run ...). La deuxième appli ferme la principale puis la relance.
La deuxième appli pourrait être une appli Excel et utiliser la méthode OnTime...
Mais c'est juste une idée.

Bon courage,

PGZ

[mikeGo20]

Lue dans une contribution dernièrement (ne me souviens plus par qui !!!) une solution ... qui fonctionne

Créer un mini formulaire (disons 'Formulaire2') dans lequelle tu inscrits le code pour relancer ton application sur l'événement Close

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Form_Close()
Dim ret As Integer
ret = Shell("C:\Program Files\Office\OFFICE11\MSACCESS.EXE" & " " & "C:\Répertoire\NomDB.mdb", 1)
End Sub

Puis, sur l'événement click de ton Bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub cmdCommande_Click()
On Error GoTo Err_cmdCommande_Click
 
DoCmd.OpenForm "Formulaire2"
 
Application.Quit
 
Exit_cmdCommande_Click:
    Exit Sub
 
Err_cmdCommande_Click:
    MsgBox Err.Description
    Resume Exit_cmdCommande_Click
 
End Sub

Le Formulaire2 s'ouvrira avant la commande Quit, qui elle fera fermer le Formulaire2, et le code placé sur l'événement Close s'exécutera ....