Discussion :

[bitou_77]

Bonsoir à tous,

Voilà dans ma base j'ai intégré un petit système de sauvegarde automatique.
Pour ce faire j'utilise la commande shell.

La commande m'ouvre cmd, ça c'est normal, mais quand je lance la sub KillApp de la faq http://access.developpez.com/faq/?pa...tion#close_exe
les instances lancées reste quand même.
J'ai tenté aussi un killApp par titre de fenêtre (toujours par la faq) mais cela ne marche touours pas !

A noter que ce code doit pouvoir être exécuté dans win 98 et win Xp
Voici le code :

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
        chori = """C:\Progra~1\GESTAD\RTC\gestad.mdb"""
        chori2 = """C:\Progra~1\GESTAD\RTC\Données\GESTAD_donnees.mdb"""
        'Chemin et chemin2 sont les chemins de sauvegarde que j'ai recherché auparavant
 
        If VersionWindows(sp) = "98" Then
            'je ne cache volontairement pas la fenêtre que je lance pour voir si ça marche
             it = Shell("c:\windows\command.com   copy " & chori & " """ & Chemin & """ /Y", 1)
            ou = Shell("c:\windows\command.com   copy " & chori2 & " """ & Chemin2 & """ /Y", 1)
        Else
            it = Shell("c:\windows\system32\cmd.exe   copy " & chori & " """ & Chemin & """ /Y", 1)
            ou = Shell("c:\windows\system32\cmd.exe   copy " & chori2 & " """ & Chemin2 & """ /Y", 1)
        End If
        'it et ou contiennent les identifiants des processus lancés
        KillApp (it)
        KillApp (ou)

En espérant avoir été clair
Merci beaucoup

[marot_r]

Si tu utilise "cmd /c copy ..." Windows va fermer le fenêtre par lui même pas besoin de tuer le process. Ça marce aussi avec Command il me semble.

Pour le détail faire "Help cmd" dans une fenêtre dos.

A+

[bitou_77]

Merci ça marche

@+