Mise en forme du cellule

[Julos08]

Bonsoir à tous,

Tout d'abord je vous explique mon classeur excel.

Voila jai crée une macro qui me liste dans une feuille excel tous les fichiers excel present dans mon disque dur avec la taille et le chemin d'acces.

Voila non plus certain fichier on un chemin tres long comme:
C:\\Documents and Settings\\julos\\Mes documents\\Mes fichiers reçus\\toto.xls

Est ce possible de faire apparaitre le chemin sous cette forme :

C:\\Document...reçus\\toto.xls


Si quelqu'un connait un moyen.

Merci d'avance

 

[myDearFriend!]

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

Cordialement,

 

[Julos08]

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

 

[myDearFriend!]

Bonsoir Julos08, le Forum,

Dans la ligne de code :

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

'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,

 

[julos08]

Merci à toi ca ma deja tres tres bien depanné