Pb Creation code pour execution fichier vbs

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:

---

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

Bonjour

Remplace ta ligne par :

Code:

---

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

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