[AC-2007] création de racourci sur le bureau

[hocine]

Bon soir,
j'ai créé une BDD sous Access2003, sur ouverture un raccourci est créé sur le bureau, maintenant j'ai voulu l'essayé sur un PC qui contient access2007 une erreur apparait sur WshShell "erreur de compilation projet ou bibliothèque introuvable" alors que wshom.ocx existe bel et bien et la référence "windows Script host object model "est coché, voici mon code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim Wsh As WshShell
Set Wsh = New WshShell
Set Wsh = CreateObject("WScript.Shell")
strdesktop = Wsh.SpecialFolders("Desktop")
Utilisateur = Mid(strdesktop, 27, 8)
Set oshellLink = Wsh.CreateShortcut(strdesktop & "\Gestion de Facturation.lnk") 'libellé du raccourci
oshellLink.TargetPath = Application.CurrentProject.Path & "\xx.mdb" 'chemin du raccourci
oshellLink.WindowStyle = 1
oshellLink.Hotkey = "CTRL+SHIFT+F" 'raccourci clavier
oshellLink.IconLocation = Application.CurrentProject.Path & "\xx.ico" 'icône du raccourci
oshellLink.Description = "Cliquez ici pour gérer les Factures" 'Texte info-bulle du raccourci
oshellLink.WorkingDirectory = Application.CurrentProject.Path 'destination du raccourci
oshellLink.Save

à vrai dire il y a des PC avec 2007 où sa marche et d'autre où sa plante
je souhaiterai savoir s'il ya une erreur dans mon code ou c'est le pc qui me joue un tour.
merci.

[loufab]

Bonjour,

Peut être un problème de déclaration en BdR.

Utilise la commande

Code :

regsvr32 c:\.....\monocx.ocx

dans la zone Exécuter du menu Démarrer de Windows.

Cordialement,

[hocine]

bonjour,
je vous remercie pour votre réponse, mais j'ai fais une recherche avant d'établir l'execution de regsvr32 pour donner le chemin exacte et je ne le trouve pas.
mon système est XP Sweet 5.2
que dois je faire SVP?
MERCI.

[loufab]

Bonjour,

Déjà tu commences par acheter une version officielle de Windows.

Cordialement,