Changer Chemin du Fichier Photo

[MuscatMimi]

Bonjour a tout le Forum

Dans le Code ci dessous j'aimerais changer le chemein du fichier photo
afin de pouvoir mettre le Dossier du fichier Excel sur n'importe quel disque dur

Code réalisé par mdf mon Univers Excel... : myDearFriend! Excel Pages

'--Création d'un Raccourcis sur le Bureau (Desktop)********
Sub CreerRaccourci()
'--Code de myDearFriend! - mon Univers Excel... : myDearFriend! Excel Pages
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:\Documents and Settings\Christian\Bureau\Comparateur Prix\Felix the Cat.ico" '--Crée le raccourci sur le bureau Windows
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Else
MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
End If
End With
End Sub

Merci de votre par avance

Bonne journée a tous

 

[Dull]

Re : Changer Chemin du Fichier Photo

Salut Christian, le Forum

Pas sur d'avoir compris mais essaye de remplacer

[COLOR=black]"C:\Documents and Settings\Christian\Bureau\Comparateur Prix\Felix the Cat.ico"[/COLOR]

par

"C:\Documents and Settings\" & Environ("Username") & "\Bureau\Comparateur Prix\Felix the Cat.ico"

A tester

Bonne Journée

 

[MuscatMimi]

Re : Changer Chemin du Fichier Photo

Bonjour Dull

Merci de ton aide
Je viens d'essayer ,c'est Ok ça fonctionne

Maintenant dans mes fil et dans mes codes je cite le /ou les auteurs
afin de ne fruster personne
je pense que c'est une bonne solution et correct
chose que je ne faisais pas auparavant
Bon week-end

 

[Dull]

Re : Changer Chemin du Fichier Photo

Re Christian🙂, le Fil

Maintenant dans mes fil et dans mes codes je cite le /ou les auteurs
afin de ne fruster personne
je pense que c'est une bonne solution et correct
chose que je ne faisais pas auparavant

Et c'est tout a ton honneur

Je ne pense pas que ce soit une question de frustration mais plutôt de reconnaissance. le fait de citer ses sources avec les liens adéquats renforce (amonhumbleavis) l'envie de ces personnes qui œuvre à aider bénévolement ceux qui en ont besoin, à poursuivre leur formation car ce sont les questions posées qui nous poussent à en rechercher la solution Ici ou ailleurs.

Tiens pour exemple: un post de quelques minutes dont l'ami Staple, Salut l'agrafeuse, 😀 cite nommément le concepteur du Code. Ça fait plaisir et ça devrait-être Normal 🙂.

Bonne Journée