Donner un nom au raccourci : solution finale

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour
Je sais créer un raccourci via VBA , il a un nom .LNK
J'ai une icône personnalisée , mais son étiquette est le nom du fichier .xlsm
Je voudrais supprimer cette extension , et que TOUS les caractères du nom soient Visible
Windows me crée des raccourcis qui s'affichent sur 2 lignes comme par exemple : Photo Filtre Studio X
comment faire ?
 

Lone-wolf

XLDnaute Barbatruc
Bonjour Hervé et bonne année

VB:
Option Explicit
Sub CreerRaccourci()
Dim Raccourci As Object, chemin As String, fichier As String, classeur As String

chemin = "C:\Users\" & Environ("Username") & "\Desktop\Nouveau dossier\"
classeur = "Gest" 'Nom du nouveau classeur ou raccourci
fichier = chemin & "gestion.ico"

    With ActiveWorkbook
        .SaveAs Filename:=chemin & classeur & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
  
    If .Name <> .FullName Then
       With CreateObject("WScript.Shell")
        Set Raccourci = .CreateShortcut(chemin & classeur & ".lnk")
            With Raccourci
                .iconlocation = fichier
                .TargetPath = ActiveWorkbook.FullName
                .Save
            End With
            Application.DisplayAlerts = False
            ActiveWorkbook.Save
            Application.Quit
            End With
        Else
            MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez...", , "IMAGE .ICO"
        End If
    End With
End Sub
 

herve62

XLDnaute Barbatruc
Supporter XLD
Bonsoir
LW > Tous mes voeux aussi et que ce site dure encore ...... j'y ai déjà passé 12 ans , ca va trop vite
sinon explique moi le début car la Sub vient de CcM il me semble ! que j'ai déjà
Donc le coeur pas de soucis , c'est le nom que l'on voit sur le Bureau que je voudrais personnaliser
Exactement comme on crée un raccourci sous WIndows
Code:
chemin = "C:\" & Environ("Username") & "\Desktop\Nouveau dossier\"
classeur = "Gest" 'Nom du nouveau classeur ou raccourci
fichier = chemin & "conge.ico"
' Mon fichier est sous c:\DATA\Exceldata le .ico aussi
j'ai commencé à modifier ..ça va pas ?
 

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour
Mais j'ai déjà ça :
Code:
Dim Raccourci As Object
    With ActiveWorkbook
        'Vérifie l'existence d'un chemin pour le classeur
        If .Name <> .FullName Then
            'Défini le raccourci
            With CreateObject("WScript.Shell")
                Set Raccourci = .CreateShortcut(.SpecialFolders("Desktop") _
                & "\" & ActiveWorkbook.Name & ".lnk")
            End With
            With Raccourci
                'Affecte l'icône (chemin à adapter)
                .iconlocation = "\\SRVPROD\DATA\conge.ico"
                'Crée le raccourci sur le bureau Windows
                .TargetPath = ActiveWorkbook.FullName ' le chemin est identifié
                .Save
            End With
        Else
            MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
        End If
    End With
Ce que je voudrais par exemple , est que : le fichier enregistré "Cde201612.xlsm" soit affiché sous l'Icone sur le bureau en "COMMANDE" tout seul
 

Lone-wolf

XLDnaute Barbatruc
Bonjour cathodique et bonne année :)

Hervé: suit mon exemple. Nom du classeur pricipal = "Gestion" - Nom du classeur sauvegardé = "Gest".

Donc tu doit inclure par exemple: classeur ="COMMANDE". Une fois la sauvegarde faite, tu devrais le raccourci Excel sous le nom de COMMANDE.

raccourci.gif
 

Pièces jointes

  • Créer raccourci avec icône.zip
    70.6 KB · Affichages: 37
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Bonsoir Hervé, Chat, le Forum :)

Seigneur...., Hervé c'est ce que fait ma macro, il suffit juste de changer le chemin. Et je te l'ai pourtant montré en image. Crée un raccourci sur le bureau ensuite, clique droit > Propriétés et là tu as Emplacement: le chemin du fichier.
 

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour
AH ... non !!! je veux un truc BASIQUE automatique qui s'adresse à du personnel ne connaissant pas grand chose en bureautique , surtout Excel ; On est en réseau !!!!
Sinon avant à chaque mise en place d'un fichier commun , le Chef de service passait sur chaque poste (12p) mettre lui même le raccourci bureau , en plus le fichier n'était pas partagé donc il fallait appeler la personne qui utilisait pour le fermer
Je tente de remédier à tout ça !!!
J'ai donc mis un bouton dans la feuille d'accueil qui doit créer le raccourci avec mon icône et un NOM directement sur le bureau ce chacun !!! , tout va bien sauf le NOM personnalisé de l'Icone !!
 

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour le forum
Etant donné que mon appli est opérationnelle sur le serveur j'ai tenu à finaliser en cherchant à mettre
un nom personnalisé à l'icône de raccourci
Comme j'ai trouvé , j'en fait part ici afin que cela puisse profiter .... au cas OU !!

Code:
Sub Raccourci()


Dim Raccourci As Object
    With ActiveWorkbook
        'Vérifie l'existence d'un chemin pour le classeur
        If .Name <> .FullName Then
            'Défini le raccourci
            With CreateObject("WScript.Shell")
                Set Raccourci = .CreateShortcut(.SpecialFolders("Desktop") _
                & "\" & "ANNUAIRE MAIRIE" & ".lnk")     C'EST ICI QUE J'AI MIS EN DUR  LE NOM QUE L'ON
                                                                                            VERRA EN DESSOUS DE L'ICONE SUR LE BUREAU
SANS EXTENSION !!
                                                                                           
            End With
            With Raccourci
                'Affecte l'icône (chemin à adapter)
                .iconlocation = "\\SRVPROD\commun_mairie\phonebook.ico"
                'Crée le raccourci sur le bureau Windows
                .TargetPath = ActiveWorkbook.FullName ' le chemin est identifié
                .Save
            End With
        Else
            MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
        End If
    End With

End Sub
Avec cette macro , en ayant mis le fichier .ICO avec le .XLSM vous obtenez le résultat de l'image joint
et .. Tip top comme espéré et si Nom trop long > écrit sur 2 lignes
sinon en réalité mon fichier se nomme " annuaire_courant.xlsm"
ico.jpg
 
Dernière édition:

Discussions similaires

Réponses
8
Affichages
615