XL 2013 raccourci bureau

paslar · 19 Décembre 2015

je suis en train de crée un classeur pour une gestion et j'ai mis un programme pour crée un dossier dans C:\ et un raccourci sur le bureau.
ça fonctionne bien avec Windows 7 mais avec Windows 10 ça fonctionne partiellement car il n'y a pas l'image dans l'icone de raccourci
qui a une solution

merci

pascal

grisan29 · 19 Décembre 2015

Re : raccourci bureau

bonsoir paslar

dans les classeurs que notre ami JP VIARD a mis dans le téléchargement professionnel dans ses classeurs de facturation tu trouvera le code de création d'un raccourci sur le bureau mais je te le donne a mettre dans un module standard

Code:

Option Explicit

Sub CreerRaccourci()
'myDearFriend!  -  www.mdf-xlpages.com
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 = "c:\DF-TVA(1)\DF-TVA(1).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

Pascal

paslar · 20 Décembre 2015

Re : raccourci bureau

bonjour
merci pour ta réponse mais ça fonctionne comme le mien je n'ai pas l'image de l’icône sur Windows 10
je pence que le problème vient que Windows a change son codage pour voir l'image dans l’icône de raccourci

pascal

Lone-wolf · 20 Décembre 2015

Re : raccourci bureau

Bonjour Pascal, paslar

@paslar: il faut faire comme ceci, ajoute une icône dans le dossier où tu as les classeurs, sans créer d'image.

Code:

'Code de MyDearFriends

Sub CreerRaccourci()
Dim Raccourci As Object, shp As Shape, chemin As String, fichier As String

chemin = ThisWorkbook.Path & "\"
fichier = "Gestion.xlsm"

    With ActiveWorkbook
        .SaveAs Filename:=chemin & fichier, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
         
For Each shp In ActiveSheet.Shapes
    If shp.Type = 8 Then shp.Delete
  Next shp

        If .Name <> .FullName Then
            With CreateObject("WScript.Shell")
                Set Raccourci = .CreateShortcut(.SpecialFolders("Desktop") _
                    & "\" & ActiveWorkbook.Name & ".lnk")
            With Raccourci
                .iconlocation = ThisWorkbook.Path & "\gondoliere.ico"
                .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..."
        End If
    End With
End Sub

A+

paslar · 20 Décembre 2015

Re : raccourci bureau

bonjour Lone-wolf,

je n'ai pas de dossier ou le quelle ?
tu peut m'expliquer

tu la fait sur windows 10

Lone-wolf · 20 Décembre 2015

Re : raccourci bureau

Re paslar,

Dans C:\, créer un dossier nommé Gestion. Ici tu y ajoute une image .ico. Copie le code dans le classeur UserForm.

Oui, je suis sous Windows 10.

Code:

Sub CreerRaccourci()
Dim Raccourci As Object, shp As Shape, chemin As String, fichier As String, classeur As String

chemin = "C:\Gestion\"
classeur = "Gest"
fichier = chemin & "gestion.ico"

    With ActiveWorkbook
        .SaveAs Filename:=chemin & classeur, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
         For Each shp In ActiveSheet.Shapes
    If shp.Type = 8 Then shp.Delete
  Next shp
  
        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

A+

paslar · 20 Décembre 2015

Re : raccourci bureau

re

voila j'ai toujours le même problème
sur la photo il y a mon dossier avec l'image.ico
le raccourci en bas sans image
et la propriétaire du raccourci

grisan29 · 20 Décembre 2015

Re : raccourci bureau

bonjour Paslar

ton ico ne dois pas etre un dossier a lui tout seul mais doit etre glisser dans ton fichier car dans le code que j'ai mis
la ligne

Code:

.iconlocation = "c:\DF-TVA(1)\DF-TVA(1).ico"

veux dire que .ico est dans

Code:

c:\DF-TVA(1)\DF-TVA(1)

as tu fait ce que lone wolf t'as dit

Dans C:\, créer un dossier nommé Gestion. Ici tu y ajoute une image .ico. Copie le code dans le classeur UserForm.

Pascal

paslar · 20 Décembre 2015

Re : raccourci bureau

re

j'ai fait comme vous avez dit et j'ai toujours pas d'image dans l’icône de raccourci

pascal

Lone-wolf · 20 Décembre 2015

Re : raccourci bureau

Re paslar, Pascal

@paslar tu as dû faire une fausse manip. L'icône dois être mis dans le dossier Gestion et ton classeur UserForm sur le bureau. Et si tu veux l'icône sur le bureau tu change chemin par ("Desktop") & "\".

EDIT: tu peux aussi laisser le Classeur UserForm dans le dossier Gestion.

Question: est-ce vraiment une image icône que tu as mis dans le dossier?. Par-ce que si c'est en .PNG, .GIF ou .BMP c'est normal que ça ne passe pas. Tu as ToYcon gratuit, qui peut te créér des icônes si jamais.

Code:

Sub CreerRaccourci()
Dim Raccourci As Object, shp As Shape, chemin As String, fichier As String, classeur As String

chemin = "C:\Gestion\"
classeur = "Gest"
fichier = chemin & "gestion.ico"

    With ActiveWorkbook
        .SaveAs Filename:=chemin & classeur, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
         For Each shp In ActiveSheet.Shapes
    If shp.Type = 8 Then shp.Delete
  Next shp
  
    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

A+

paslar · 20 Décembre 2015

Re : raccourci bureau

re

Lone-wolf

tu peut me faire voir avec le lien de ton dossier que tu a mis dans le message

merci

je crois avoir compris
c mon image .ico que c vois pas dans mon dossier comme toi

pascal

paslar · 20 Décembre 2015

Re : raccourci bureau

re
c bon s'était ça

super merci a vous

pascal

Lone-wolf · 20 Décembre 2015

Re : raccourci bureau

Re,

A+

Effectuez une recherche sur Excel Downloads...

XL 2013 raccourci bureau

paslar

XLDnaute Nouveau

Pièces jointes

grisan29

XLDnaute Accro

paslar

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

paslar

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

paslar

XLDnaute Nouveau

grisan29

XLDnaute Accro

paslar

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

paslar

XLDnaute Nouveau

paslar

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums