Copier une partie de la cellule

franck17 · 1 Novembre 2006

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 · 1 Novembre 2006

Re : Copier une partie de la cellule

Bonsoir Franck, bonsoir le forum,

Essaie comme ça :

Code:

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 · 1 Novembre 2006

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

Copier une partie de la cellule

franck17

XLDnaute Junior

Robert

XLDnaute Barbatruc

franck17

XLDnaute Junior

Discussions similaires