Discussion :

[bernardh]

Bonjour à tous,
je vous explique mon probleme...
j'ai une feuille excel avec en colonne C une liste de lien vers des fichiers.

J'aimerais pouvoir creer une macro qui va me creer des raccourcis vers ces fichiers et les placer dans un dossier avec la particularité que j'aimerais que les raccourcis créés porte le nom présent dans la colonne E.

j'ai trouvé cette macro mais je n'arrive pas a la modifier:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub crée_raccourci() 
Set scrHst = CreateObject("WScript.Shell") 
emplacement = scrHst.SpecialFolders("Desktop\Test") 
Set raccourci = scrHst.CreateShortcut(emplacement & "\truc.lnk") 
raccourci.WorkingDirectory = emplacement 
raccourci.TargetPath = "c:\zaza.doc" 
raccourci.Save 
Set raccourci = Nothing 
Set scrHst = Nothing 
End Sub

il faudrait en fait que cette macro aille pointer vers la colonne C pour l'url et qu'elle crée des raccourcis portant le nom présent dans la colonne E ...


Je pense que la macro devrait donc boucler sur la colonne C et mettre la valeur de C dans TargetPath et que pour changer le nom je pense que c'est ici : crHst.CreateShortcut(emplacement & "\colonne E")
Pour boucler, ça devrait se rapprocher d'un truc du style :

Code :

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

1
2
3
4
For x = 1 To n Step 1
        'récupère les cellules A1, A2, ..., An
        Cells(x, 1) = "Ligne " & x
    Next x

mais je n'y arrive pas...

quelqu'un peut il m'aider...je vous ai mis le fichier en pièce jointe

Je vous remercie d'avance