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