Discussion :

[docjo]

Bonjour

Ma base frontale est hébergée sur chaque PC tandis que la dorsale est en réseau. Chaque fois que je mets à jour la frontale, je lance une routine qui compare la version que je viens de créer à celle de chaque poste. Ainsi, à l'ouverture de la base, si la version est différente, je lance le fichier script MAJ_CCVDB.vbs. C'est le seul code que j'ai pu trouver facilement

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
 
'####################################################################
'#  Permet l'installation d'une bdd d'un réseau vers user connectés #
'####################################################################
 
'instance
Set fso = CreateObject("Scripting.FileSystemObject")
Set net = CreateObject("Wscript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'Test si fichier éxistant sur serveur.
If fso.FileExists ("\\Chu06nas1\n06ane2\CCV DataBase.mdb") 			Then
 
	msgbox "Cliquez sur OK pour continuez. La copie de la base va prendre une dizaine de secondes"
 
    'Copie du Fichier du serveur vers le pc utilisateurs
		fso.CopyFile "\\Chu06nas1\n06ane2\CCV DataBase.mdb","C:\CCV DataBase\CCV DataBase.mdb"
 
	msgbox "La base à été mise à jour avec succés"
 
 
WshShell.Run """C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"" ""C:\CCV DataBase\CCV DataBase.mdb"""
 
 
 
Else
 
    'Avertissement si fichier non éxistant
    msgbox "Problème rencontré lors de la connexion au serveur.", vbExclamation, "Mise à Jour"
 
End If

Mais le vbs me pose 2 problèmes: il faut que l'utilisateur valide des autorisations pour exécuter le fichier (ce qui l'oblige à cliquez plusieurs fois, sans trop comprendre ce qui lui ai demandé et il n'y a pas de barre d'avancement de la copie de fichier, mais une dizaine de seconde pendant lesquelles il ne se passe rien.
Pensez-vous qu'il existe un autre code plus simple (batch ou exe) ou que je sois en mesure de faire ? Merci d'avance.

[marot_r]

Personnelement j'utilise Setup Generator c'est un outils gratuit qui te permets de générer un .exe d'installation avec quelques beaux écrans très professionnels et une barre de progression.

Losrque je détecte une nouvelle version j'affiche un message à l'utilisateur qui le préviens que la BD va se fermer et que la mise à jour va commencer. Il se rertouve ensuite face à un écran qui lui demande de confirmer l'installation et le processus démare.

Seul contrainte il installe seulement C:\Program Files ce qui peut poser un pb si tes utilisateurs ne sont pas admin de leurs machine. Je crois que la version payante te laisse choisir le lieux de l'instal mais ce n'est pas certain.

Ici le code qui lance l'installation.

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
    If Not versionOK Then
 
        Dim mess As String
        mess = "La version " & NUM_VERSION_APPLICATION & " n'est plus valide."
        mess = mess & vbNewLine & "Vous allez devoir installer une nouvelle version."
        mess = mess & vbNewLine
        mess = mess & vbNewLine & "L'application va se fermer et lancer le programme d'installation."
        MsgBox mess, vbInformation
 
        Shell "cmd /c """ & cheminInstallation & """"
 
        If Not (EstDev() And MODE_DEBUG) Then
            DoCmd.Quit
        End If
   End if

[docjo]

Merci pour l'astuce mais effectivement, j'ai une restriction d'installation en program files. Mais l'idée me séduit et je vais essayer de trouver le bon logiciel;
Néanmoins, je reste preneur d'un petit fichier .bat ou autre.

[Dolphy35]

Salut,

Moi je fais cela depuis Access, ta bdd t'ouvre une autre bdd qui vient écraser ta bse cliente puis tu réouvre ta bdd cliente.

sinon en soft tu as Inno Setup (2tutos à ce sujet) :

http://thierryaim.developpez.com/tut...tup/isdistrib/
http://thierryaim.developpez.com/tut...osetup/iscode/


Dolphy

[docjo]

Justement, par quel mécanisme la nouvelle bdd vient écraser l'ancienne ? Parce que c'est ce que je fais par un copier coller. Comment une base qui se fait écraser peut déclencher du code sans passer par un autre programme ? La nouvelle base est d'abord copiée puis doit détruire l'ancienne et prendre son nom ? Je peux avoir quelques précisions s'il te plait ? Merci d'avance

[lvz00]

Salut

Comme l'indique dolphy35, une solution peut être d'utiliser une base tierce. J'avais fait un truc comme ça pour un ancien travail mais je n'ai plus le code disponible. L'idée était la suivante:

Par exemple, on a une frontale ClientV1.0.0.mdb à mettre à jour vers ClientV1.0.1.mdb On va utiliser une base tierce Clientupdate.mdb

1- ClientV1.0.0.mdb ouvre ClientUpdate.mdb et se ferme
Voir la FAQ http://access.developpez.com/faq/?pa...ss#OuvrBddForm

2- ClientUpdate.mdb écrase ClientV1.0.0.mdb avec clientV1.0.1.mdb, l'ouvre et se ferme
Voir le tuto http://warin.developpez.com/access/fichiers/ pour la gestion des fichiers.

Ce schéma de base doit être adaptée aux spécificités de chaque cas concrets (dans mon exemple, à cause du changement de nom, il faudrait aussi "mettre à jour" d'éventuels raccourcis ou items du menu démarrer... ou ne pas changer le nom du fichier, ça semble plus simple :p ).


Bon courage