comment evite message avertissement au demarage dun fichier VBS
bonjour
j'ai crée ce fichier VBS
Code:
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 ("\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\saisie base APPSA.mdb") Then
'Copie du Fichier du serveur vers le pc utilisateurs
fso.CopyFile "\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\saisie base APPSA.mdb","C:\access pc\"
fso.CopyFile "\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\publipostage.mdb","C:\access pc\"
fso.CopyFile "\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\Sécurité.mdw","C:\access pc\"
fso.CopyFile "\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\evenement_ribbon.XML","C:\access pc\"
fso.CopyFile "\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\modification base.txt","C:\access pc\"
msgbox "mise à jour terminée"
WshShell.Run """C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE"" ""C:\access pc\saisie base APPSA.mdb"" /WRKGRP ""C:\access pc\Sécurité.mdw"""
Else
'Avertissement si fichier non éxistant
msgbox "Problème rencontré lors de la connexion au serveur.", vbExclamation, "Mise à Jour"
End If |
Mon probleme est que sous windows XP quand on clique sur le fichier VBS il nous demande ci on est sur de vouloir exécuté ce programme et on est obliger de clique sur exécute pour continue ensuite il nous demande si connai l'éditeur et ci on accept de l'ouvrir.
Donc je voudrai evite ce deux clique et le rentre invisible pour l'utilisateur comment faire???