Discussion :

[INFSON]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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