Supression de quelques lettres dans toute une feuille

[Aurore_C]

Bonjour,

En l'occurence, à partir d'une liste de fichier d'un répertoire récupéré sous excel 2007, je cherche à supprimer tous les ".jpg" à la fin des fichiers.

Est-ce possible ?

Merci,
Aurore

[phlaurent55]

Bonjour Aurore,

vois le fichier en pièce jointe
et dis si ça te convient

Sub Macro1()

    Application.ScreenUpdating = False
    Cells.Select
    Selection.Replace What:=",jpg", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

[Aurore_C]

Bonjour Laurent,

Super ! Ca marche impeccable !!

Merci beaucoup pour ton aide !

Aurore