Bonjour,
j'essaie de faire tourner le code proposé dans la FAQ pour la creation d'un raccourci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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!