Récupérer le nom des fichiers de type JPG dans un dossier

Version imprimable

Bonjour,

J'ai un petit soucis lors de la récupération du nom des fichiers JPEG dans un dossier lors de l’exécution de ma macro sur excel.
En effet , j'arrive à récupérer le nom du premier fichier mais pour les suivants on me renvoi un chaine de caractère vide.
J'utilise la fonction Dir() pour m'envoyer le nom des fichiers

Je débute en vba et je n'arrive pas à comprendre pourquoi, donc je vous demande de l'aide svp :)
Merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
DossierFichiers = "D:\Users\Assistante.OPTEORRUN\Photo final\Fiche " & i + 1
            ListeFichiersDans DossierFichiers                                                             ' Permet de compter le nombre de fichier dans le dossier
            DossierFichiers = DossierFichiers & "\"
 
            nf = Dir(DossierFichiers & "*.JPG")
            MsgBox nf
            Do While nf <> ""
                MsgBox nf
                InsertPictureInRange DossierFichiers & nf, Range("A22:I22")                        'Permet d'insérer mon image
                nf = Dir()                                                                                          ' Suivant
 
            Loop

Bonjour,

Tu peux faire un test avec ceci en mettant le bon chemin.
Ça inscrira les noms de fichiers dans la colonne A de la feuille active.

NB: ne pas oublier que les JPG peuvent aussi s'écrire JPEG, ce qui n'est pas pareil au niveau de la recherche...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub ExtraireFichiers() Dim Chemin As String, Fichier As Variant Dim Ligne As Long Chemin = "Chemin à rechercher" If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\" Fichier = Dir(Chemin & "*.jpg", vbArchive) Do While Fichier <> "" Ligne = Ligne + 1 ActiveSheet.Range("A" & Ligne) = Fichier Fichier = Dir Loop End Sub

07/08/2014, 09h55
solmyr16

RE

Merci beaucoup, avec ton code sa fonctionne très bien ... :)
Par contre je ne comprend pas pourquoi le mien ne fonctionne pas alors qu'ils sont presque similaire ....
La seul différence provient du vbArchive que tu as mis en paramètre de la fonction dir("",vbArchive) , qu'est ce que sa change svp ?
merci encore
07/08/2014, 11h42
parmi

vbArchive lit les fichiers.
vbDirectory sert pour les répertoires
Il y a aussi d'autres paramètres pour les fichiers cachés, systèmes,...

Je ne sais pas ce que fait cette ligne

Citation:

InsertPictureInRange DossierFichiers & nf, Range("A22:I22")

mais peut-être que ça a de l'influence sur le résultat de ta recherche
07/08/2014, 15h00
solmyr16

Merci, ok je comprend mieux pourquoi sa ne fonctionnait pas
C'est une fonction qui permet d'insérer ma photo sur une feuille excel mais pour l'utiliser je dois avoir le nom de l'image, donc cette fonction n'a pas d'influence (je pense)
En tout cas merci, c'est gentil
Bonne journée