1 pièce(s) jointe(s)
VBA Excel Création de raccourcis Windows à partir d'URL dans un colonne
Bonjour
J’ai adapté une macro VBA trouvé sur le site
Elle ne fonctionne pas comme je le souhaite
Soit le fichier excel en pièce jointe
Col A = Nom Souhaité d’url
Col B = Destination pour les raccourcis à Générer
Col C = Url Youtube
1/ Cette routine ne fonctionne que si on la laisse liée au fichier excel
si je la déplace dans le fichier PERSONAL.XLSB des macros communes elle plante
motif Microsoft Visual Basic
Citation:
Erreur d'exécution '-2147024891 (80070005):
Impossible d'enreqistrer le raccourci "C :\.Ink".
Pourquoi ?
2/ j’aurai souhaité récupérer une extension type .url et non .ink est ce possible ?
si je remplace usb par ink dans la routine elle plante
motif Erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet
Quel OBJET faut il utiliser ?
Merci d’avance
Le code repris ci-dessous est dans fichier Excel joint [/B]
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub LinkCreateTranspo()
Dim ScrHst As Object, Raccourci As Object
Dim LastLig As Long, i As Long
Dim Emplacement As String
Set ScrHst = CreateObject("WScript.Shell")
LastLig = Feuil1.Cells(Feuil1.Rows.Count, 3).End(xlUp).Row
For i = 2 To LastLig
Emplacement = Feuil1.Range("B" & i)
Set Raccourci = ScrHst.CreateShortcut(Emplacement & "\" & Feuil1.Range("A" & i) & ".lnk")
With Raccourci
.WorkingDirectory = Emplacement
.TargetPath = Feuil1.Range("C" & i)
.Save
End With
Next i
Set Raccourci = Nothing
Set ScrHst = Nothing
End Sub |
Cordialement
