Raccourci bureau

Question

Le code si dessous copie le répertoire Gestion CE sur le disque dur, quand le disque dur est C. Il crée ensuite un raccourci sur le bureau. La lettre du disque dur se trouve sur Feuil1.Range("B1"); si je mets D, la copie du répertoire se fait mais le raccourci n'est pas bon. Il faut modifier la ligne : URL.TargetPath = "C:\Gestion CE\" Je n'y arrive pas, un peu d'aide Bonne soirée Citaro Sub Sauve() Dim Shell, DesktopPath, URL Dim Rep As Integer Dim Lettre& Rep = MsgBox("Voulez-vous installer le répertoire Gestion CE sur le disque dur" & " " & Feuil1.Range("B1"), vbYesNo + vbQuestion, "Installation du répertoire Gestion CE") If Rep = vbYes Then 'ThisWorkbook.save On Error Resume Next MkDir Feuil1.Range("B1") & "Gestion CE" 'crée le répertoire s'il n'existe pas For Lettre = 65 To 90 CreateObject("Scripting.FileSystemObject").CopyFile _ Chr(Lettre) & ":\Gestion CE" & "\*", Feuil1.Range("B6") & "Gestion CE" Next Lettre MsgBox "Intallation du répertoire Gestion CE effectuée avec succés !" _ & vbCrLf & " " & vbCrLf & "Emplacement: " _ & Feuil1.Range("B1") & "Gestion CE" & vbCrLf & " " & vbCrLf & "Pour l'ouvrir cliquez sur Gestion CE sur le bureau !", vbInformation, " Installation réussie " Application.DisplayAlerts = True Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set URL = Shell.createshortcut(DesktopPath & "\Gestion CE.lnk") CreateObject ("Scripting.FileSystemObject") URL.TargetPath = "C:\Gestion CE\" URL.save Application.Quit 'ThisWorkbook.Close Else Application.ThisWorkbook.Saved = False End If If Rep = vbNo Then Application.ThisWorkbook.Saved = True Application.Quit End If...

vba-new · Answer

Tu aurais presque pu le faire tout seul non ? Je n'ai pas testé mais si c'est bien le bout de code qu'il faut modifier, essaie comme ça : URL.TargetPath = Feuil1.Range("B1") &amp; "Gestion CE\" J'ai fait sur le même modèle que ça : MkDir Feuil1.Range("B1") &amp; "Gestion CE" 'crée le répertoire s'il n'existe pas...