Chercher des fichiers jpg dans un répertoire problème macro

[jojo2006]

Bonjour à tous,

voila je n'arrive pas à faire fonctionner une macro qui me semble fonctionnait avant 😕

bref voila ce que je souhaiterai faire.

Dans un répertoire disons C:\user je dispose de plusieur fichiers JPEG. Je souhaiterai en faisant une boucle récupérer tous les nom des fichier jpg existant dans C:\user puis de créer un répertoire qui portera le même nom que le fichier jpg et de copier le fichier jpg dasn le nouveau répertoire créer.

Créer un répertoire je pense y arriver avec mkdir.
copier un fichier avec FileCopy.


Par contre pour faire la boucle afin de récupérer le nom de chaque fichier jpg, je coince !
le code ci dessous ne fonctionne pas (du moins il marche pour le 1er fichier mais ensuite Z="")

Dim z, chemin As String


chemin = "C:\User"

z = Dir(chemin & "\*.jpg")

Dim lien_fichier As String
Dim nom_fichier As String


While z <> ""

lien_fichier = chemin + "\" + z
nom_fichier = z

MsgBox lien_fichier
MsgBox nom_fichier

z = Dir()

Wend

Merci d'avance pour votre aide

 

[pierrejean]

Re : Chercher des fichiers jpg dans un répertoire problème macro

bonjour jojo

tester remplacer
z = Dir()

par

Z=Dir

 

[jojo2006]

Re : Chercher des fichiers jpg dans un répertoire problème macro

Bonjour Pierrejean,

Z=Dir ne fonctionne pas mieux, mais ou est le problème ? Z = "" au 1er tour de boucle !!

Merci quand même !

 

[MJ13]

Re : Chercher des fichiers jpg dans un répertoire problème macro

Bonjour Jojo, PierreJean

J'ai ça en magasin:

Sub Liste_Fichiers()
'Liste des Fichiers d'un dossier avec le nom du dossier en B1
    'On Error Resume Next
    Range(Cells(2, 1), Cells(65536, 2)).Clear
     Dim i  As Integer, z As String
     ChDrive Left(Cells(1, 2), 1)
     ChDir Cells(1, 2).Value
     
    i = 1
    z = Dir("*.*", 1)
    
    While z <> ""
          ActiveSheet.Cells(i + 1, 1).Value = z
          i = i + 1
          z = Dir
    Wend
End Sub

 

[pierrejean]

Re : Chercher des fichiers jpg dans un répertoire problème macro

Re

Chez moi ceci fonctionne ( chemin et suffixe à adapter)

Sub test()
Dim z, chemin As String
'chemin = "C:\User"
chemin = ThisWorkbook.Path
z = Dir(chemin & "\*.xls")
Dim lien_fichier As String
Dim nom_fichier As String
While z <> ""
lien_fichier = chemin + "\" + z
nom_fichier = z
MsgBox lien_fichier
MsgBox nom_fichier
z = Dir
Wend
End Sub

 

[job75]

Re : Chercher des fichiers jpg dans un répertoire problème macro

Bonjour jojo2006, Pierre, Michel,

Je ne comprends pas du tout car le code du post #1 prend forcément tous les fichiers .jpg du dossier "C:\User".

Pas ceux des sous-dossiers bien sûr, ni les raccourcis...

A+

 

[jojo2006]

Re : Chercher des fichiers jpg dans un répertoire problème macro

Bonjour à tous,

c'est OK. Bon .... les codes fonctionnent bien !

J'ai saisi pourquoi cela ne fonctionnait pas. Dans toutes mes images, mes photos avaient l'extension JPEG et 1 seule photo avait l'extension JPG. Ceci explique pourquoi la macro trouvait seulement 1 fichier.


Arf .... je suis Désolé

Merci à vous !!!

 

[MJ13]

Re : Chercher des fichiers jpg dans un répertoire problème macro

Re

Ouah, Jpeg, je savais que ça existait, mais c'est bien la première fois que j'entend quelqu'un parler de ce type de fichier .

Sinon pour s'affranchir, tu peux tester avec un code de ce type Ucase(*.jp*) au cas ou la casse serait prise en compte .