Brigitte
XLDnaute Barbatruc
Bonjour,
J'avais habitude d'utiliser une macro de jb (boisgontier) sous excel 2003 pour renommer des fichiers (de tous types : xls, jpg...). Le principe est d'ouvrir le fichier de jacques, de cliquer sur "ouvrir répertoire", faire ok... ca liste les fichiers dudit répertoire...
Mais là où j'ai un souci, c'est que cette macro semble ne pas pouvoir aller dans les sous répertoires depuis que j'utilise Excel 2010.
Rien à faire, quand je clique sur "ouvrir répertoire" et vais chercher un sous sous-répertoire, ca ne liste que ce qui est à la racine, rendant caduque le listage...
Y aurait-il qqchse dans le code qui soit incompatible entre 2003 et 2010, est-ce adaptable ? Si d'aventure qqun passait par là ayant les deux versions et pouvant tester, et me dire si possible d'évoluer... ce serait cool, j'adorais cette macro.
Merci à vous.
CODE :
Je précise que le fichier est un fichier excel 2003 (xls). Et la mention 'premier fichier xls n'a pas d'importance, ca liste bien tous les fichiers sous 2003.
J'avais habitude d'utiliser une macro de jb (boisgontier) sous excel 2003 pour renommer des fichiers (de tous types : xls, jpg...). Le principe est d'ouvrir le fichier de jacques, de cliquer sur "ouvrir répertoire", faire ok... ca liste les fichiers dudit répertoire...
Mais là où j'ai un souci, c'est que cette macro semble ne pas pouvoir aller dans les sous répertoires depuis que j'utilise Excel 2010.
Rien à faire, quand je clique sur "ouvrir répertoire" et vais chercher un sous sous-répertoire, ca ne liste que ce qui est à la racine, rendant caduque le listage...
Y aurait-il qqchse dans le code qui soit incompatible entre 2003 et 2010, est-ce adaptable ? Si d'aventure qqun passait par là ayant les deux versions et pouvant tester, et me dire si possible d'évoluer... ce serait cool, j'adorais cette macro.
Merci à vous.
CODE :
Code:
Sub ListeFichiers()
Range("A2:C65000").ClearContents
[E12].ClearContents
ChDir ThisWorkbook.Path ' répertoire de l'appli
dossier = ChoixDossier()
If dossier = "" Then Exit Sub
ligne = 2
nf = Dir("*.*") 'premier fichier xls
Do While nf <> ""
Cells(ligne, 1) = nf
Cells(ligne, 2) = FileDateTime(nf)
ligne = ligne + 1
nf = Dir ' suivant
Loop
End Sub
Je précise que le fichier est un fichier excel 2003 (xls). Et la mention 'premier fichier xls n'a pas d'importance, ca liste bien tous les fichiers sous 2003.
Pièces jointes
Dernière édition: