Salut JCGL et à tous

Finalement j'ai testé tout de suite
ça marche impeccable. Compliment

merci encore et à bientôt.

Jean-Paul

Bonsoir JCGL

merci, je vais tester ta recette
et te tiens au courant demain.

salutation

Jean-Paul

Bonjour à toutes et à tous

Bref une petite question qui ne nécessite pas de fichier de ma part.
j'ai créé un programme de facture assez important. dans lequel je fais des archivages sur DD
Donc lors de la récupération, je veux que le commentaire microsoft n'apparaisse pas
(le classeur que vous avez ouvert comporte des liaisons etc...), la réponse est pas de liaison.

Quel code dois-je employer pour résoudre mon problème.

En vous remerciant par avance.

Salutation

jean-paul

Bonjour MDF, JCGL et à tous

Effectivement, ça marche impeccable, je pensais que with précédent
le prenait en charge.

enfin tout marche bien et merci

A bientôt pour de nouvelles questions.
Salutation

Jean-Paul

Re bonjour à tous


Bonne nouvelle

Je viens de trouver la solution
le .FullName ne convient pas
j'ai affecté au path le chemin.

voici le programme modifié

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:\Factures\Facture2.ico"
'Crée le raccourci sur le bureau Windows
.TargetPath = "c:\Factures\Facture2.xls" '.FullName
.Save
End With
Else
MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
End If
End With
End Sub


En vous remerciant mille fois

Cordialement
Jean-Paul

Re bonjour MDF, JCGL et à tous

J'ai effectué différente manip

avec le programme
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
'Crée le raccourci sur le bureau Windows
Raccourci.TargetPath = .FullName
Raccourci.Save
Else
MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
End If
End With
End Sub

Celui-ci marche, mais il me donne l'icône d'excel avec le nom du programme

---------------------------------------
'======================================

Public Sub Raccourci()
Set wshshell = CreateObject("WScript.Shell")
strdesktop = wshshell.specialFolders("Desktop")
Utilisateur = Mid(strdesktop, 27, 8)
Set oshelllink = wshshell.createshortcut(strdesktop & "\Facture2.lnk") 'libellé du raccourci
oshelllink.targetPath = "c:\Factures\Facture2.xls" 'chemin du raccourci
oshelllink.WindowStyle = 1
oshelllink.HotKey = "CTRL+SHIFT+F" 'raccourci clavier
oshelllink.IconLocation = "c:\Facture2.ico" 'icône du raccourci
oshelllink.Description = "Cliquez ici Facture" 'Texte info-bulle du raccourci
oshelllink.WorkingDirectory = "c:" 'destination du raccourci
oshelllink.Save 'enregistre l'opération
End Sub

avec celui-ci
J'ai l'icône Windows que je remplace par mon icône.
mais ce n'est pas vraiment ce que je veux obtenir
'=======================================

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:\Factures\Facture2.ico"
'Crée le raccourci sur le bureau Windows
.TargetPath = .FullName
.Save
End With
Else
MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
End If
End With
End Sub

j'ai l'impression que le .FullName est vide
Avec celui-ci il ne va pas au bout du programme j'ai une erreur

"La méthode 'Save' de l'objet 'IWshortcut' à échoué "
erreur d'exécution '-2147467259 (80004005)'


En vous remerciant par avance de vous penchez sur mon problème
dans une heure je serai absent alors ne vous inquiété pas.

Salutation à tous

Jean-Paul

Bonjour MDF , JCGL et à tous

Hier je n'ai pu répondre, un empêchement de dernière minute.
Donc je reprend à tête reposée.
merci MDF pour le code, je vais le tester et te tiens au courant.
sinon encore merci, j'ai bien retenu les commentaires, je vais en tenir compte.

Cordialement

Jean-Paul

Rebonjour JCGL

Désolé pour le profil, pas vu.
Par contre je ne connais pas les sigles ICQ,AIM,YIM
je complèterai par la suite.

Pour le module voici:

'======================================

Public Sub Raccourci()
Set wshshell = CreateObject("WScript.Shell")
strdesktop = wshshell.specialFolders("Desktop")
Utilisateur = Mid(strdesktop, 27, 8)
Set oshelllink = wshshell.createshortcut(strdesktop & "\Facture2.lnk") 'libellé du raccourci
oshelllink.targetPath = "c:\Factures\Facture2.xls" 'chemin du raccourci
oshelllink.WindowStyle = 1
oshelllink.HotKey = "CTRL+SHIFT+F" 'raccourci clavier
oshelllink.IconLocation = "c:\Facture2.ico" 'icône du raccourci
oshelllink.Description = "Cliquez ici Facture" 'Texte info-bulle du raccourci
oshelllink.WorkingDirectory = "c:" 'destination du raccourci
oshelllink.Save 'enregistre l'opération
End Sub

'=======================================

Mon but c'est d'avoir le même icône personnalisé sur plusieurs plateformes.


Merci pour la réponse

jean-paul

Bonjour à tous

C'est mon premier message sur ce site, belle présentation.
je commence par une question sur le raccourci bureau.
j'ai récupéré une macro vba que j'ai adapté, tout marche bien.
J'ai créé une icône, pour lancer mon programme.
Ce que je désire c'est modifier la macro pour qu'il aille chercher mon icône
dans mon répertoire. Ainsi mon icône sera indépendant.

Salutation à tous
et merci d'avance

Jean-Paul