Suppression extension de nom de fichiers dans colonne généré par Macro Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
y
yaphilde
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 septembre 2013
Version d'Excel : 2010 FR

Message par yaphilde » 25 octobre 2019, 10:40

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
A
AlgoPlus
Membre dévoué
Membre dévoué
Messages : 824
Appréciations reçues : 64
Inscrit le : 27 février 2019
Version d'Excel : 2007

Message par AlgoPlus » 25 octobre 2019, 10:57

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+
y
yaphilde
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 septembre 2013
Version d'Excel : 2010 FR

Message par yaphilde » 25 octobre 2019, 11:11

Super merci,
Ça marche Nickel Chrome,

Tu deviens mon nouveau meilleur ami 8[] .

Bonne fin de semaine
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message