Discussion :

[annedeblois]

Bonjour,

J'ai une immense liste de photos sauvegardées dans un fichier Excel. Les
photos sont listées avec leur chemin d'accès complet sur un lecteur réseau,
comme par exemple:

P:\Photo Class,e\Z\Ziziphus\Zizyphus obtusifolia var.
canescens_I_05ABG01_02.JPG

Je dois compléter le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
lastrow = .Range("A65536").End(xlUp).Row
 
For I = 1 To lastrow
 ' Si la cellule courante contient le texte "P:\" pour commencer alors
'  Supprimer le texte jusqu'au dernier \ mais conserver le reste du texte
Next

...et cela, afin de supprimer le chemin d'accès et conserver uniquement le
nom de fichier pour chaque photo. Comme je ne suis pas très ferrée en
manipulation de chaînes de caractères dans VBA, je suis bloquée dans ma boucle For.

Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,

[pc75]

Bonjour,

Les fonctions Mid(), Left() ou Right() pour extraire des morceaux d'une chaine, et la fonction InstrRev() qui renvoie la position d'un caractère dans une chaine, en partant de la fin.

[annedeblois]

Bonjour,

Les fonctions Mid(), Left() ou Right() pour extraire des morceaux d'une chaine, et la fonction InstrRev() qui renvoie la position d'un caractère dans une chaine, en partant de la fin.

Merci. Au risque de passer pour une idiote, c'est lundi matin dans mon coin de pays et j'aurais peut-être besoin de quelques détails pour ma culture personnelle (et pour m'aider dans mon travail). Merci!

[bidou]

la fonction InstrRev renvoie la position dans la chaine d'un caractère en commencant cette recherche par la fin. Dans ton cas "\".

Mid Tronque une chaine à partir de la position donné.
Donc pour toi par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B1").Value = Mid(Range("A1").Value, InStrRev(Range("A1").Value, "\") + 1)

[annedeblois]

Je suis sûre qu'il me manque à peine un détail ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub TrimPath()
lastrow = .Range("A65536").End(xlUp).Row
For I = 1 To lastrow
    Range("A" & I).Select
 
 
    Dim result As Boolean
    result = Range("A" & I).Value Like "P:\*"
    If result Then
     ' C'est ici que je dois me prévaloir des avantages de
     ' Mid(), Left() ou Right() ??
    End If
 
 
Next
End Sub

[annedeblois]

la fonction InstrRev renvoie la position dans la chaine d'un caractère en commencant cette recherche par la fin. Dans ton cas "\".

Mid Tronque une chaine à partir de la position donné.
Donc pour toi par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B1").Value = Mid(Range("A1").Value, InStrRev(Range("A1").Value, "\") + 1)

Merci, bidou. Je vais l'essayer de ce pas.

[annedeblois]

Fantastique!

Code final:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
lastrow = Range("A65536").End(xlUp).Row
For I = 1 To lastrow
    Range("A" & I).Select
 
    Dim result As Boolean
    result = Range("A" & I).Value Like "P:\*"
    If result Then
    Range("E" & I).Value = Mid(Range("A" & I).Value, InStrRev(Range("A" & I).Value, "\") + 1)
 
    End If
Next

Ça fonctionne nickel.