changer le chemin d'un raccourci window d'un fichier execl
1 réponse
marc.dufresne
bonjour
un autre problème dansla suite de mon précédent message:
comment changer le chemin d'un raccourci sur mon bureau qui lancerait un
fichier excel (dont le nom change à chaque enregistrement)???
merci à tous
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour.
Sub ChgShortcut() Dim WshShell As Object, Link As Object, LeNom$, LeNouveauChemin$ LeNom = "LeNomduRaccourci" ' a adapter Set WshShell = CreateObject("WScript.Shell") Set Link = WshShell.CreateShortcut(WshShell.SpecialFolders("Desktop") & "" & LeNom & ".lnk") Link.TargetPath = LeNouveauChemin Link.Save Set Link = Nothing Set WshShell = Nothing End Sub
Alain CROS
"marc.dufresne" a écrit dans le message de news: 425bf30b$0$7258$
bonjour un autre problème dansla suite de mon précédent message: comment changer le chemin d'un raccourci sur mon bureau qui lancerait un fichier excel (dont le nom change à chaque enregistrement)??? merci à tous
Bonjour.
Sub ChgShortcut()
Dim WshShell As Object, Link As Object, LeNom$, LeNouveauChemin$
LeNom = "LeNomduRaccourci" ' a adapter
Set WshShell = CreateObject("WScript.Shell")
Set Link = WshShell.CreateShortcut(WshShell.SpecialFolders("Desktop") & "" & LeNom & ".lnk")
Link.TargetPath = LeNouveauChemin
Link.Save
Set Link = Nothing
Set WshShell = Nothing
End Sub
Alain CROS
"marc.dufresne" <pasde.mail.direct.marcdufresne@free.fr> a écrit dans le message de news: 425bf30b$0$7258$636a15ce@news.free.fr...
bonjour
un autre problème dansla suite de mon précédent message:
comment changer le chemin d'un raccourci sur mon bureau qui lancerait un
fichier excel (dont le nom change à chaque enregistrement)???
merci à tous
Sub ChgShortcut() Dim WshShell As Object, Link As Object, LeNom$, LeNouveauChemin$ LeNom = "LeNomduRaccourci" ' a adapter Set WshShell = CreateObject("WScript.Shell") Set Link = WshShell.CreateShortcut(WshShell.SpecialFolders("Desktop") & "" & LeNom & ".lnk") Link.TargetPath = LeNouveauChemin Link.Save Set Link = Nothing Set WshShell = Nothing End Sub
Alain CROS
"marc.dufresne" a écrit dans le message de news: 425bf30b$0$7258$
bonjour un autre problème dansla suite de mon précédent message: comment changer le chemin d'un raccourci sur mon bureau qui lancerait un fichier excel (dont le nom change à chaque enregistrement)??? merci à tous
