'--------------------------------------------------------
'
'   Sous VBE Cocher Windows Script Host Object Model
'
'--------------------------------------------------------
 
Option Explicit
 
Sub Tst()
Dim oShell As wshShell
Dim oShortCut As WshShortcut
Dim sChemin As String
 
    sChemin = "C:\Transfert\ADO"
 
    Set oShell = New wshShell
    Set oShortCut = oShell.CreateShortcut("C:\Ado.Lnk" )
     
    oShortCut.TargetPath = sChemin
    oShortCut.WorkingDirectory = sChemin
    oShortCut.Save
 
    Set oShortCut = Nothing
    Set oShell = Nothing
End Sub