Copier une partie de la cellule

[franck17]

Bonsoir a tous

Voila mon probleme,
Avec la macro suivante je copie la cellule de gauche pour creer un lien hypertexte

Sub CreerLien()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=(Selection(1, 0)), TextToDisplay:="Lancer TopSolid"
End Sub

Dans la cellule de gauche il y a
C:\Projets\Samples\NewStepperLuxe\Lib\CALE.top.png

tous marche bien SAUF que dans le lien je ne veux pas du .png a la fin
pour pouvoir lancer une application .top

Si il y a une solution je vous remercie d'avance

 

[Robert]

Re : Copier une partie de la cellule

Bonsoir Franck, bonsoir le forum,

Essaie comme ça :

Sub CreerLien()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=(Left(Selection(1, 0), Len(Selection(1, 0)) - 4)), TextToDisplay:="Lancer TopSolid"
End Sub

Left(chaîne_de_caractères, n) renvoie les n premièrs caractères de la chaîne. Left("Franck", 2) renvoie "Fr".
Len("châine_de_caractères") renvoie le nombre de caractères de la châine. Len("Franck") renvoie 6
La combinaison Left("chaîne_de_caractères", Len("chaîne de caractères") - 4) renvoie tous les caractères de la chaîne moins les 4 derniers.

 

[franck17]

Re : Copier une partie de la cellule

MERCI Robert

Ca marche tres bien
et en + il y a les explications

Bonne fin de soirée