Bonjour cjojo, MFerrand,
tu a écrit :
le code de Dhany fonctionne
merci d'avoir confirmé que mon adaptation du code de MFerrand est ok.
tu a écrit :
je ne peux pas choisir le dossier
pour ça, il suffit de remplacer la ligne chD = "C:\Users\forum\Downloads\simcity\"
par :
chD = InputBox("Saisir le chemin complet du dossier :", "Dossier")
l'utilisateur devra tout saisir : C:\Users\forum\Downloads\simcity ; puis ajout du code VBA : chD = chD & "\"
ou si tu préfères une partie gauche fixe :
chD = InputBox("Saisir le dernier dossier :", "Dossier")
l'utilisateur devra saisir seulement : simcity ; puis : chD = "C:\Users\forum\Downloads\" & chD & "\"
ATTENTION !
il faudra aussi ajouter le code VBA pour éviter qu'ça plante si l'dossier saisi par l'utilisateur n'existe pas !
tu a écrit :
je mets en résolu
mais c'est pas fait ! pour cela, il suffit de cliquer sur le bouton près de (regarde dans le coin haut droit du post) ; ça permet aussi de clôturer le fil de la discussion ; tu sauras que tu as réussi quand tu verras un petit rond vert avec une coche, comme ceci :
(toi seul peut le faire, car c'est toi qui a créé ce sujet)
dhany