Bonjour,
j'essaie de faire tourner le code proposé dans la FAQ pour la creation d'un raccourci :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| strRacc = CurrentProject.Path & "\DB 1.18.ink"
' si le raccourci existe on le supprime
If Len(Dir(strRacc)) > 0 Then
Kill strRacc
End If
Set objRacc = objShell.CreateShortcut(strRacc)
objRacc.TargetPath = Chr(34) & "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" & Chr(34)
objRacc.Arguments = Chr(34) & CurrentProject.Path & "\DB 1.18.mdb" & Chr(34) & " " & "/Wrkgrp " _
& Chr(34) & "F:\Brigandgrp\A Team Tec\A Team Tec 2\DBSemiWorkgroup\DBSemi.mdw" & Chr(34)
objRacc.WindowStyle = 4
'objRacc.IconLocation = Chemin \ vers \ fichier.ico
objRacc.WorkingDirectory = CurrentProject.Path
objRacc.Save
Set objRacc = Nothing
End Sub |
et ca bute sur la ligne
Set objRacc = objShell.CreateShortcut(strRacc)
avec comme message d'erreur :"Object required"
J'ai bien déclaré "Windows Script Host Object Model"... donc je ne comprend pas trop...
est ce que c'est mes chemins qui sont mal declarés?
Si vous avez une idée, merci de m'en faire part!
Partager