Discussion :

[jobal]

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!

[ActionAccess]

Bonjour,

Essaies de rajouter la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objShell = CreateObject("WScript.Shell")

avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 strRacc = CurrentProject.Path & "\DB 1.18.lnk"

Ensuite, il semblerait qu'il faille mettre .lnk à la place de .ink

Bon courage

[jobal]

Ca marche!
Super!
Merci!

[Caroline1]

Donc c'est résolu?