problème de bibliothèque

[dj.run]

Bonsoir à tous,

Quelqu'un pourrait il me renseigner ?

Dans un projet j'ai une macro pour creer un raccourci bureau et cela marche trés bien sur mon pc .
Dans un autres projet, j'ai la meme macro mais quand elle s'execute, cela plante en me disant que la bibliothèque n'est pas trouvable .

Pourquoi cela ?

pour exemple la macro concernée :

Sub CreerRaccourci(CheminCible)

var1 = Range("v21").Value
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & var1)
oShellLink.TargetPath = CheminCible
oShellLink.WindowStyle = 1
oShellLink.Save
End Sub

Sub TestRaccourci()
CreerRaccourci (Range("v22").Value)
Call termin
End Sub

cela plante sur WshShell

et l'autre macro qui fonctionne tres bien :

Sub CreerRaccourci(CheminCible)
Dim var2 As String
var2 = Range("ax22").Value
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & var2)
oShellLink.TargetPath = CheminCible
oShellLink.WindowStyle = 1
oShellLink.Save
End Sub

Sub TestRaccourci()
CreerRaccourci (Range("ay12").Value)
Call termin
End Sub

merci d'avance pour le renseignement.

dj.run

 

[Schmail]

Bonsoir dj.run

Ds le VBE, il faudrait que tu compares les bibliothèques qui sont cochées dans tes 2 projets (menu outils puis références).

De plus (peut être est ce juste un pb de copier coller)
mais dans ta 1ère macro ta variable var1 n'est pas définie
(Dim var1 As String) comme ds la macro qui fonctionne.

Pas mieux @+

 

[dj.run]

Bonjour à toutes et à tous,

merci Schmail pour tes conseils, je viens de trouver mon erreur, en fait je declarer toutes les variables de mon module avec option explicit et en les delarants dans chaque macro cela marche .

merci encore pour ton aide

dj.run