Supression de quelques lettres dans toute une feuille

Aurore_C · 17 Juin 2009

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 · 17 Juin 2009

Re : Supression de quelques lettres dans toute une feuille

Bonjour Aurore,

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

Code:

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 · 18 Juin 2009

Re : Supression de quelques lettres dans toute une feuille

Bonjour Laurent,

Super ! Ca marche impeccable !! 😀

Merci beaucoup pour ton aide !

Aurore

Supression de quelques lettres dans toute une feuille

Aurore_C

Guest

phlaurent55

Nous a quittés en 2020

Pièces jointes

Aurore_C

Guest

Discussions similaires

Supression de quelques lettres dans toute une feuille

Aurore_C

Guest

phlaurent55

Nous a quittés en 2020

Pièces jointes

Aurore_C

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency