Discussion :

[Stargate SG1]

Bonjour à tous,
je compte installer une voir plusieurs application ACCESS sur une réseau.
Les données sur le serveur et sur chaque poste une application qui se connecte au serveur. Jusque là pas de problème.
Mon problème est que je ne suis qu'un utilisateur sans droit administrateur.
Donc voici ma question: comment faire pour installer mon application empaqueter avec l'utilitaire adapté (setup , fichier dépendant,etc)? (le runtime est déjà présent sur les postes)
Merci

[Stargate SG1]

Ma question n'intéresse personne ou n'a est elle pas de réponse

[Dolphy35]

Salut,

J'ai été contraint par la même problème que toi pour la difusion de mes bases. L'avantage était un déploiement au sein d'une même entreprise donc même réseau, je me suis dans un premier temps tourné ver un fichier Batch puis j'ai créé un fichier Visual Basic Scripting (vbs), celui-ci vient sur un dossier réseau, en partage caché, copier les différents fichiers pour les mettre sur le post Utilisateurs. VBS permet de gérer les erreurs et est très facile à mettre en oeuvre.

Dolphy

[Stargate SG1]

Merci mais tu aurais pas un exemple

[Dolphy35]

pour le retard

voici un petit exemple:

Code vbs :

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
Set fso = CreateObject("Scripting.FileSystemObject")
Set net = CreateObject("Wscript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
 
If fso.FileExists ("C:\Documents and Settings\" & net.username & "\Base\Base.mdb") Then
 
    msgbox "La base est déjà présente sur votre Ordinateur", vbExclamation, "installation Base.mdb"
 
Else
    If msgbox ("Voulez-vous installer la base sur votre Poste ?", vbQuestion + vbYesNo,"installation Base.mdb") = vbYes Then
 
        If fso.FileExists ("\\Serveur\Base.mdb") Then
 
                fso.CopyFile "\\Serveur\Base.mdb","C:\Documents and Settings\" & net.username & "\Base\Base.mdb"
 
                If msgbox ("Installation de la base terminée. Voulez-vous ouvrir la Base ?", vbInformation + vbYesNo, "installation Base.mdb") = vbYes Then
 
                    intReturn = WshShell.Run("C:\Documents and Settings\" & net.username & "\Base\Base.mdb" , 1, TRUE)
 
                End If
 
        Else
 
            msgbox "Problème de connexion au serveur", vbCritical, "Génération erreur"
 
        End If
 
    Else
 
        msgbox "Vous venez d'annuler l'installation de la base", vbExclamation,"Génération erreur"
 
    End If
 
End If

Ce code permet de tester si la base est présente sur le Pc dans la session de l'utilisateur puis si elle ne l'ai pas copie du serveur vers la session de l'utilisateur.
Ensuite je demende si on ouvre la base ou non.

ci-joint le fichier

Dolphy