ouvrir fichier VBS sans avertissement [Résolu]

[popofpopof]

bonjour


dans access j'ai réalise un systeme qui me teste ci on posséde la derniere mise a jour de la base que je crée. Si une nouvelle base est détécté access exécute un fichier vbs et ferme la base.
Le fichier vbs me copie la nouvelel base puis m'ouvre a nouveau la base.

Tout marche tres bien mais je souhaiterai pouvoir enleve au chargement du ficher VBS la demande que fait windows "vouler vous exécute ce programme...." je ne sais comment faire j'aimerai que access lance ce programme et qui le considére comme sain

qui a une idée??

[Dolphy35]

Salut,

Tu as regardé dans les paramètres de sécurité d'access ?

Dolphy

[popofpopof]

le probleme n'est pas je pense car j'utilise access 2007 et la version 2007 runtimes et j'ai le même probleme.

Que pense tu sinon??

[mout1234]

bonsoir,

Comment lances-tu ton script, avec un shell en vba?

[popofpopof]

voila le code que j'ai

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Open(Cancel As Integer)
If VersionNo - NoVersion <> 0 Then
    MsgBox "Une mise à jour de la base est disponible merci de cliquer sur ok la base va se mettre à jour"
 
    Shell "explorer.exe " & "C:\access pc\mise_a_jour_auto.vbs" & """"
    Application.Quit
Else
 
Set rsAlwaysOpen = CurrentDb.OpenRecordset("tbldummy")
DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE [Z_Impression_etiquettes_precripteur].* FROM Z_Impression_etiquettes_precripteur"
DoCmd.SetWarnings True
End If
End Sub

dans l'ouverture d'un formulaire cache au demarage d access

[mout1234]

Pourquoi fais-tu appel à l'explorer pour exécuter ton vbs?

[popofpopof]

je sais pas j'ai trouve sa qui marche

tu me peux me propose quoi??

le but je rappele est quand le teste dis il faut faire une mise a jour :
lance le fichier vbs
desuite quitte access pour la copier des nouveaux fichier ce face


voila

[mout1234]

Essaie

Code :

Shell "wscript " & "C:\access pc\mise_a_jour_auto.vbs" & """"

[popofpopof]

sa me faire access ok

mais sa m'ouvre une fenetre et sa me marque
Pas d'extension de fichier dans "c:access".

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Open(Cancel As Integer)
If VersionNo - NoVersion <> 0 Then
    MsgBox "Une mise à jour de la base est disponible merci de cliquer sur ok la base va se mettre à jour"
 
    Shell "wscript " & "C:\access pc\mise_a_jour_auto.vbs" & """"
    Application.Quit
Else
 
Set rsAlwaysOpen = CurrentDb.OpenRecordset("tbldummy")
DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE [Z_Impression_etiquettes_precripteur].* FROM Z_Impression_etiquettes_precripteur"
DoCmd.SetWarnings True
End If
End Sub

et dans mon dossier "C:\access pc" il y a bien le fichier "mise_a_jour_auto.vbs"

que faire,?

[mout1234]

Envoyé par popofpopof

que faire,?

Peut être prendre le temps d'analyser l'erreur.... "C:access" ... il plante sans doute à cause de l'espace dans le nom de ton répertoire...

[popofpopof]

ok merci je vai teste demain sa au travail sur un poste windows car la je suis sous vista et sa marche

merci bcp de ton aide et de m'avoir eclair sur les message en pv (j'ai compri le message)