Mise en forme du cellule

Bonsoir Julos08, le Forum,

Tu peux essayer quelque chose comme ça :

Sub DetermChemin()
Dim Chemin As String
Dim Pos As Byte
      Chemin = 'C:\\\\\\\\Documents and Settings\\\\\\\\julos\\\\\\\\Mes documents\\\\\\\\Mes fichiers\\\\\\\\reçustoto.xls'
      '
      Pos = InStrRev(Chemin, '\\\\\\\\')
      If Pos > 15 Then Chemin = Left(Chemin, 15) & '...\\\\\\\\' & Mid(Chemin, Pos + 1)
      '
      MsgBox Chemin
End Sub

Cliquez pour agrandir...

Cordialement,

Merci mon cher ami ça marche impec.

Un truc un peu plus poussé:
Est -ce possible de rallonger le nom en meme temps que la taille de la colonne.
Ex:

Taille de colonne : 35 je vois C:\\Documents an...\\051125_220031.jpg

Taille de colonne: 60 je vois C:\\Documents and settings\\julos08...\\051125_220031.jpg

Plus j'agrandi ma taille de colonne et plus je vois lintegralité de mon chemin.

Merci

Bonsoir Julos08, le Forum,

Dans la ligne de code :

If Pos > 15 Then Chemin = Left(Chemin, 15) & '...\\\\\\\\' & Mid(Chemin, Pos + 1)

Cliquez pour agrandir...

'15' est le nombre de caractères autorisés en affichage pour représenter le chemin jusqu'au fichier cible. A toi de faire varier ce nombre en fonction de la largeur de ta colonne...

Quant à faire varier automatiquement la longueur de l'expression quand l'utilisateur élargit la colonne... désolé, je ne pense pas que ça soit possible. Aucun évènement VBA ne permet de détecter le moment de l'élargissement ou de la réduction d'une colonne...

Cordialement,

Merci à toi ca ma deja tres tres bien depanné