Suppression extension de nom de fichiers dans colonne généré par Macro

Bonjour et merci d'avance de l'attention portée à ma demande.

Je suis débutant en VBA et je n'arrive pas à intégrer une fonction dans ma macro.

J'utilse la macro suivante que j'ai trouvé sur :

http://boisgontierjacques.free.fr/pages_site/chainesvba.htm

Voici la macro:

Sub ListeFichiers()
  Application.ScreenUpdating = False
  Range("A2:D65000").ClearContents
  repertoire = ThisWorkbook.Path & "\RessourcesImages\00-TelechargementPlat\" ' adapter
  [H2] = repertoire
  ligne = 2
  nf = Dir(repertoire & "*.*")
  Do While nf <> ""
    Cells(ligne, 1) = nf
    ligne = ligne + 1
    nf = Dir ' suivant
  Loop
End Sub

La Macro me liste en A2 l'ensemble des fichiers contenus dans un dossier précis.

Voici ce que la macro me sort:

Asiatique.jpg

Kinoa.jpg

Lasagne.jpg

PotAuFeu.jpg

PouletsBasquez.jpg

Spaghetti.jpg

Mon problème, je souhaite supprimer le .jpg à chaque ligne, soit les 4 derniers caractères.

J'ai essayé avec la fonction "Right" mais je n'arrive pas à construire le code.

Pourriez vous m'aider,

Merci d'avance

Bonjour,

Si l'extension à supprimer fait toujours 4 caractères, on peut utiliser :

Cells(ligne, 1) = Left(nf, Len(nf) - 4)

sinon, ou s'il y a des noms d'extension différents dans le répertoire:

Cells(ligne, 1) =Split(nf, ".")(0)

A+

Super merci,

Ça marche Nickel Chrome,

Tu deviens mon nouveau meilleur ami .

Bonne fin de semaine

Rechercher des sujets similaires à "suppression extension nom fichiers colonne genere macro"