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