Copier raccourci mdb sur c en VBA

Salut,

Le plus simple est de passer par un objet Windows Scripting Host, des méthodes WshShortcut() et WshSpecialfolders() duquel je te conseille l'étude.

Salut,

merci de me répondre,

j'ai fais mes recherches sur ces deux méthodes : WshShortcut() et WshSpecialfolders() . j'ai trouvé ce code, mais j'ai des erreurs : le message d'erreurs :" le mot "Wscript" non définit"   . N.B. je travaille sur access 97.

Merci pour votre aide.

'Create a WshShell Object

Dim WSHShell
Set WSHShell = Wscript.CreateObject("Wscript.Shell")

'Create a WshShortcut Object
Dim oShellLink
Set oShellLink = WSHShell.CreateShortcut("Planning_Presse_Nawale.lnk")

'Set the Target Path for the shortcut
oShellLink.TargetPath = "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"

'Set the additional parameters for the shortcut
oShellLink.Arguments = "C:\Test_Planning\Code_Planning\Planning_Presse.mdb"

'Save the shortcut
oShellLink.Save

'Clean up the WshShortcut Object
Set oShellLink = Nothing

Bonjour,

Le règlement que je t'invite à lire stipule que tout morceau de code-source doit être publié en utilisant la balise [code]. En attendant une correction de ta part, je regarde ton problème.

Salut,

désolée j'ai pas bien compris votre remarque, est ce que je dois mettre [code] devant chaque ligne écrite?. Le code que j'ai testé:

[code]
'Create a WshShell Object

Dim WSHShell
Set WSHShell = Wscript.CreateObject("Wscript.Shell" )

'Create a WshShortcut Object
Dim oShellLink
Set oShellLink = WSHShell.CreateShortcut("Planning_Presse_Nawale.lnk" )

'Set the Target Path for the shortcut
oShellLink.TargetPath = "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"

'Set the additional parameters for the shortcut
oShellLink.Arguments = "C:\Test_Planning\Code_Planning\Planning_Presse.mdb"

'Save the shortcut
oShellLink.Save

'Clean up the WshShortcut Object
Set oShellLink = Nothing

'-------------------------------------
je l'ai mis sur click d'un bouton.


Merci pour votre aide

Salut,

j'ai essayé de modifier mon ancien code pour résoudre le problème: mon nouveau code:

'Create a WshShell Object

        Dim WSHShell

        Set WSHShell = CreateObject("WScript.Shell")

 
        'Create a WshShortcut Object

        Dim oShellLink

        Set oShellLink = WSHShell.CreateShortcut("Planning_Presse_Nawale.lnk")

 
        'Set the Target Path for the shortcut

        oShellLink.TargetPath = "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"

 
        'Set the additional parameters for the shortcut

        oShellLink.Arguments = "C:\Test_Planning\Code_Planning\Planning_Presse.mdb"

 
        'Save the shortcut

        oShellLink.Save

 
        'Clean up the WshShortcut Object

        Set oShellLink = Nothing

'-------------------------------------
mon nouveau code ne donne pas d'erreur mais je trouve pas le racourci à créer, je vois pas pourquoi ça marche pas.


Merci pour votre aide

Bonjour,

Merci pour ton aide, effectivement le code fonctionne bien après votre correction, j'ai pensé en précisant le chemain de l'appli. à créer le raccourci, le code mettera le raccourci dans le même chemain de l'appli mais tompi pour moi.

Bonne journée

Meilleure réponse sélectionnée par nnoelila.