Discussion :

[ninouchfis]

Bonjour,

J'ai plusieurs projets .adp qui sont utilisés par une centaine de users. Je créé de temps en temps des nouvelles versions que je zip et convertis en .exe, le tout stocké sur un disque réseau.
J'aimerais éxécuter une mise à jour de la version de manière automatique avec une commande shell.
Mon problème c'est que je dois fermer mon projet pour qu'il soit mis à jour et j'aurais aimé éxécuter le code justement à partir de ce fichier .adp. Donc je suis coincé et je cherche une solution.

Une idée?

Merci par avance

[ninouchfis]

Alors je pensais avoir trouvé une solution mais je n'en suis plus très sur...

Ce que je fais à l'ouverture du projet adp est de vérifier sa version et de la comparer à la dernière existante. Si la version n'est pas la dernière alors j'ouvre un fichier excel qui contient le code vba de mise à jour.
Le problème est quel la MAJ ne peut se faire que si le projet à mettre à jour est fermé et qu'avec le code suivant access reste ouvert dans les processus du gestionnaire des tâches...

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
17
18
19
20
21
22
23
24
25
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim fichier As String
 
Access.Quit
 
fichier = Feuil1.Cells(1, 1).Value
Nom = Application.ActiveWorkbook.Name
 
Application.Wait (Now + TimeValue("00:00:01")) 'attente de 1 seconde
 
reval = Shell("\\tlstore01\hybrides\Methodes\Bases\Install\" & fichier, 1)
 
appui_touche (13) 'touche Entrée
Application.Wait (Now + TimeValue("00:00:01")) 'attente de 1 seconde
appui_touche (13) 'touche Entrée
Application.Wait (Now + TimeValue("00:00:01")) 'attente de 1 seconde
appui_touche (13) 'touche Entrée
 
Application.Windows(Nom).Activate
MsgBox ("Installation terminée!")
 
ActiveWorkbook.Close False
 
End Sub

[ninouchfis]

Bon j'ai trouvé la solution, tuer le processus access, c'est pas très propre mais bon en attendant de trouver mieux, ça fonctionne. Du coup le code si dessous fonctionne.
C'est un besoin très spécifique mais j'espère que ça pourra aider quelqu'un un jour...

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub keybd Lib "user32" Alias "keybd_event" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fichier As String
 
' Fermeture d'access puis suppression du processus dans le gestionnaire des tâches
Access.Quit
VBA.Interaction.Shell ("TASKKILL /F /IM msaccess.exe")
 
' Initialisation des variables 'fichier' et 'Nom'
fichier = Feuil1.Cells(1, 1).Value
Nom = Application.ActiveWorkbook.Name
 
' Commande Shell permettant d'ouvrir le fichier .exe
reval = Shell("\\tlstore01\hybrides\Methodes\Bases\Install\" & fichier, 1)
 
' Simulation des touches clavier et attente d'1 seconde entre chaque frappe
appui_touche (13) 'touche Entrée
Sleep 1000 'tempo d'1s
appui_touche (13) 'touche Entrée
Sleep 1000 'tempo d'1s
appui_touche (13) 'touche Entrée
Sleep 1000 'tempo d'1s
 
' Activation du fichier excel et affichage du message indiquant la fin de la MAJ
Application.Windows(Nom).Activate
reponse = MsgBox("Installation terminée!" & Chr(10) & "Vous pouvez redémarrer l'applicatif", vbOKOnly)
 
    If reponse = vbOK Then
 
        If Application.Workbooks.Count > 1 Then
            ActiveWorkbook.Close False
        Else
            Application.Quit
        End If
 
    End If
 
End Sub
 
Sub appui_touche(t As Long)
'appuie sur la touche
keybd t, 0, 0, 0
'relache la touche
keybd t, 0, 2, 0
End Sub

[nico84]

Bonjour,

Pour ma culture, changer un adp en exe se fait comment et change quoi concrètement ?

Merci d'avance !

[ninouchfis]

Bonjour,

Ce n'est pas le fichier adp que je change en .exe mais le dossier .zip dans lequel il se trouve. Le fichier adp et d'autres fichiers (text, bat, ini...) sont installés automatiquement sur un disque local préalablement choisi lors de la création du .exe. C'est donc à partir de winzip que je créé le .exe