Récupérer nom des fichiers présent dans un dossier ?
Ouff, sans les exemples j'y serais pas arrivé.
Tu dis,
A+
Note : J'ai enlever la référence Outlook, je ne l'ai plus, si tu l'emploi tu devras la remettre.
Merci lermite pour la réponse,
Le problème c'est que mes fichiers ne se terminent pas toujours par un numéro (pour indiquer la colonne)
c'est ma faute d'avoir fourni un exemple ne répondant pas exactement à mon "cahier des charges"
en tout cas j'ai essayer de mettre dans le code une petite boucle pour mettre le chemin du fichier dans la colonne suivante
Je vous prie d'y jeter un coup d’œil
Merci
Bon..
Met un zip avec des fichiers ayant les noms réel, même si vide.
Bonsoir Lermite,
Les fichiers peuvent avoir divers noms avec un séparateur.
Ce que je peux te dire c'est qu'il n'est pas nécessaire que le chemin du fichier soit dans une colonne particulière.
L'essentiel c'est que devant chaque salle j'obtient les chemins des fichiers correspondants, chacun dans une colonne
c'est pourquoi j'ai pensé à une boucle
Merci
Re,
J'espère que cette fois c'est la bonne et que tu changera plus ton fusil d'épaule.
A+
Bonjour Lermite,
C'est ok !
Merci beaucoup.
A la prochaine
Bonjour,
J'ai utilisé le code de Theze qui fonctionne à merveille,
Sub Recup()
Dim Tbl() As String
Dim I As Integer
Dim Chemin As String
Chemin = Dossier
Tbl = EnumFichiers(Chemin)
'en colonne "A" et "B" de la feuille active si pas vide
If Not (Not Tbl) Then
For I = 1 To UBound(Tbl)
Cells(I, 1) = Left(Tbl(I), InStrRev(Tbl(I), ".") - 1)
Cells(I, 2) = Right(Tbl(I), Len(Tbl(I)) - InStrRev(Tbl(I), "."))
Next I
End If
End Sub
Function EnumFichiers(Chemin As String) As String()
Dim TableauFichiers() As String
Dim Fichier As String
Dim I As Integer
'complète le chemin le cas échéant
If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
'récupère les fichiers
Fichier = Dir(Chemin)
'boucle sur les fichiers du dossier
Do While (Len(Fichier) > 0)
I = I + 1
ReDim Preserve TableauFichiers(1 To I)
TableauFichiers(I) = Fichier
Fichier = Dir()
Loop
'retourne le tableau des noms de fichiers
EnumFichiers = TableauFichiers()
End Function
Function Dossier() As Variant
'1 ouvrir un fichier
'2 enregistrement de fichier
'3 sélection de fichier
'4 sélection de dossier
With Application.FileDialog(4)
.Show
On Error Resume Next 'si annuler
Dossier = .SelectedItems(1)
If Err.Number <> 0 Then Dossier = False
End With
End Function
J'aimerai juste y rajouter dans une troisième colonne la taille des fichiers en Mo.
Colonne A : nom fichier
Colonne B : extension
Colonne C : taille fichier en Mo
Pouvez vous me communiquer le code à rajouter ou le code complet modifié svp. Merci à l'avance