Discussion :

[solmyr16]

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

[parmi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[solmyr16]

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

[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

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

mais peut-être que ça a de l'influence sur le résultat de ta recherche

[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