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 : Sélectionner tout - Visualiser dans une fenêtre à part
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