Bonjour à tous.
pas de réponse alors j'ai continué à creuser.
J'ai déniché le code suivant:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Option Explicit
Sub CreateDesktopShortcuts()
Dim wSHELL As Object, Shortcut As Object, deskPATH As String
Dim MyList As Range, MyFldr As Range
Set MyList = Range("A:A").SpecialCells(xlConstants)
Set wSHELL = CreateObject("WScript.Shell")
deskPATH = wSHELL.SpecialFolders("C:\Users\BHI\Desktop\Test")
For Each MyFldr In MyList
If Len(Dir(MyFldr, vbDirectory)) > 0 Then
Set Shortcut = wSHELL.CreateShortCut(deskPATH & "\" & MyFldr.Offset(, 1).Text & ".lnk")
With Shortcut
.TargetPath = MyFldr.Text
.Save
End With
Else
MyFldr.Interior.ColorIndex = 3
End If
Next MyFldr
Set wSHELL = Nothing
End Sub |
J'ai depuis modifié mon fichier qui se présente maintenant en 3 colonnes:
A: url des fichiers dont je veux créer le raccourci
B: nom du raccourci que je veux créer
C: emplacement du raccourci que je veux creer.
donc ca
Set MyList = Range("A:A").SpecialCells(xlConstants)
je pense que je dois le laisser comme ca
je dois certainement créer une variable pour changer ca:
deskPATH = wSHELL.SpecialFolders("C:\Users\BHI\Desktop\Test")
mais je ne sais pas trop bien comment
et pour le nom aucune idée...
quelqu'un peut il m'aider?
merci d'avance
Partager