pour l instant je transforme mes base avec le chemin access codé en dur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Shell("C:\Program Files\Microsoft Office\Office\MSACCESS.EXE " & Chr(34) _
             & strOLDDB & Chr(34) & " /Convert " & Chr(34) & strNewDb & Chr(34) & " /wrkgrp " & Chr(34) & CurrentProject.Path & "\system.mdw" & Chr(34) & " /user " & Chr(34) & "Utilisateur" & Chr(34))
mais j essai de modifier celui ci avec la commande suivante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
AccDir = SysCmd(acSysCmdAccessDir)
      AccDirc = AccDir + "MSACCESS.EXE"
Shell(Chr(34) & AccDirc & Chr(34) & strOLDDB & Chr(34) & "/Convert " & Chr(34) & strNewDb & Chr(34) & " /wrkgrp " & Chr(34) & CurrentProject.Path & "\system.mdw" & Chr(34) & " /user " & Chr(34) & "Utilisateur" & Chr(34))
et la plantage il me trouve une errue sur le chemin strOLD qui est juste parce qu il marche avec la version du haut

merci d avance
yohan