Pb Creation code pour execution fichier vbs [Résolu]

[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 :

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

[Philippe JOCHMANS]

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

[Aladin_23]

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