Discussion :

[Aladin_23]

Bonjour le forum
J' ai un bouton dans une petitte appli sous access 2010 dont le code doit lancer un script vbs se trouvant dans le repertoire courant,j' ai créé le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim oWsh  As Object
Dim strChemin As String
strChemin = "CurrentProject.Path"
Set oWsh = CreateObject("Shell.Application")
oWsh.ShellExecute strChemin & "\sauvegardev2.vbs"
Set oWsh = Nothing

J' ai une erreur du type Windows ne trouve pas CurrentProject.oath
Merci d' avance pour toute aide
Aladin

[Invité]

Bonjour

Remplace ta ligne par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strChemin = Application.CurrentProject.Path

Quand tu mets des doubles quotes ("), ce n'est pas le chemin que tu mets dans ta variable, mais la valeur CurrentProject.Path.

Philippe

[Aladin_23]

Bonsoir Philippe et le forum
Merci pour la correction, le fonctionnemt est correct
Aladin