Creation raccourci vers un repertoire au choix

Bonjour Tout le monde !

voila, je me permets de vous solliciter car j'ai beau chercher, je ne trouve pas comment faire...

je souhaite créer un raccourci vers le repertoire courant, c'est à dire celui ou se trouve le fichier excel utilisé, et le placer à l'endroit ou le souhaite l'utilisateur.

pour la premiere partie, c'est ok, j'ai trouvé comment créer un repertoire vers un emplacement pré-défini avec :

Sub Creation_raccourci_dossier_courant()

Dim nOM As String

Dim cHEMIN As String

cHEMIN = ThisWorkbook.Path

nOM = ThisWorkbook.Name

Set WshShell = CreateObject("WScript.Shell")

strDesktop = WshShell.SpecialFolders("Desktop")

Set oShellLink = WshShell.CreateShortcut(strDesktop & "\D Contrôles comptes " & nOM & ".lnk") 'ici titre du raccourci**

oShellLink.TargetPath = cHEMIN 'Ici chemin complet de la cible

oShellLink.WindowStyle = 1

oShellLink.Save

MsgBox "Le raccourci a été créé et placé sur le bureau"

End Sub

(désolé, je ne sais pas comment vous faites pour mettre le code dans un petit encadré comme je vois souvent...)

meme si j'avoue ne pas trop comprendre en détail le code permettant de créer le raccourci, j'ai compris comment le créer avec le nom que je souhaite et comment définir la cible.

en revanche, j'aimerai maintenant, plutot que de pointer vers le bureau directement, ouvrir une fenêtre d'exploration pour selectionner le repertoire de destination souhaité.

un grand merci d'avance pour votre aide toujours prércieuse !

julien

juicelink a écrit :

j'aimerai maintenant, plutot que de pointer vers le bureau directement, ouvrir une fenêtre d'exploration pour selectionner le repertoire de destination souhaité.

Voilà :

Sub EnregisterSous()
    nom = "NxDoc"
    f = Application.GetSaveAsFilename(nom, fileFilter:="Fichier (*.txt), *.txt," & _
            "Fichier (*.xls),.*xls , Fichier (*.xlsx),.*xlsx," & _
            " Fichier (*.xlsm),.*xlsm")
    ActiveWorkbook.SaveAs Filename:=f
    ActiveWindow.Close
End Sub

merci !

mais... je l'integre comment dans ma macro? à quel endroit?

ju

juicelink a écrit :

mais... je l'integre comment dans ma macro? à quel endroit?

En le mettant avant le tien.

Tu as en effet écris :

j'aimerai maintenant, plutot que de pointer vers le bureau directement, ouvrir une fenêtre d'exploration pour selectionner le repertoire de destination souhaité.

En faisant cela, tu pourras ainsi :

• Enregistrer le fichier où tu veux, sous le format et sous le nom que tu veux grâce à la boite de dialogue qui va s’ouvrir en cours d’exécution.

• Mettre sur le bureau un raccourci qui te permettra d’ouvrir ce fichier

Mais peut-être n’était-ce pas ce que tu attendais ?

Dans ce cas, toutes mes excuses…

Bye !

Option Explicit
Dim nom, f, WshShell, strDesktop, oShellLink, chemin

Sub EnregisterSous()

    nom = "NxDoc"
    f = Application.GetSaveAsFilename(nom, fileFilter:="Fichier (*.txt), *.txt," & _
            "Fichier (*.xls),.*xls , Fichier (*.xlsx),.*xlsx," & _
            " Fichier (*.xlsm),.*xlsm")
    ActiveWorkbook.SaveAs Filename:=f
    'ActiveWindow.Close

    chemin = ThisWorkbook.Path
    nom = ThisWorkbook.Name
    chemin = ThisWorkbook.Path & "\" & nom
    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\D Contrôles comptes " & nom & ".lnk") 'ici titre du raccourci**
    oShellLink.TargetPath = chemin 'Ici chemin complet de la cible
    oShellLink.WindowStyle = 1
    oShellLink.Save

    MsgBox "Le raccourci a été créé et placé sur le bureau"
End Sub

Salut !

désolé, de ne répondre que maintenant

en fait, ce n'est pas le fichier que je veux "enregistrer sous".

Ce qu'il me faudrait, c'est pouvoir sélectionner l'emplacement ou l'on veut enregistrer le raccourci créé, plutôt que de le placer sur le bureau comme c'est le cas actuellement.

par contre, merci quand même pour ce code, il peutêtre bien utile !

Julien