Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Récupérer des informations de fichier (nom, répertoire, date) + boite explorateur

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

krystof_ii

XLDnaute Occasionnel
Bjr à tous,

Je souhaiterais récupérer des informations sur un fichier (à sélectionner avec une boite de dialogue explorateur de fichier).

Après sélection du fichier, il faudrait que je récupère les infos :
- répertoire du fichier,
- nom complet du fichier (avec son extension),
- date de son dernier enregistrement

Le tout consolidé dans des cellules différentes.
 

Pièces jointes

Trier par date Trier par votes
Re : Récupérer des informations de fichier (nom, répertoire, date) + boite explorateu

Bonjour
ci-joint code créée par F SIGONNEAU -va voir son site , une mine d'or
Sub TousFichiersDunDossier()
' de F Sigonneau
Dim Fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim Sh As Worksheet
Dim EnTetes, ArrFSO
Feuil2.Activate' à adapter
Application.ScreenUpdating = False
Set Fso = CreateObject("Scripting.FileSystemObject")
'adapter le dossier racine si besoin
NomDossier = ChoixDossierFichier("")
If NomDossier = "" Then Exit Sub
Set Dossier = Fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set Sh = ActiveSheet 'Sheets.Add
Sh.UsedRange.Clear

EnTetes = Array("Chemin", "Nom", _
"Date création", "Date dernière modification", _
"Date dernier accès", "Taille", "Type", "Attribut(s)")
'mise en forme
With ActiveSheet.Range("A1:H1")
.Value = EnTetes
.Font.Bold = True
.Interior.ColorIndex = 43
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
End With
i = 1
For Each File In Files
i = i + 1
With File
ArrFSO = Array(.ParentFolder & "\", .Name, .DateCreated, _
.DateLastModified, .DateLastAccessed, .Size, .Type)
End With
Sh.Cells(i, 1). _
Resize(1, UBound(ArrFSO) - LBound(ArrFSO) + 1).Value = ArrFSO
Sh.Cells(i, UBound(ArrFSO) + 2).Value = Attributs(File.Attributes)
Next
End If
Sh.UsedRange.EntireColumn.AutoFit
Set Fso = Nothing: Set Sh = Nothing
Set Dossier = Nothing: Set File = Nothing
End Sub
Cordialement
Flyonets
 
Vote positif 0 Vote négatif
Re : Récupérer des informations de fichier (nom, répertoire, date) + boite explorateu

Bonjour,

Teste ceci. Attribue la macro "Recup" au bouton :
Code: 
Sub Recup()

Dim Fso As Object
Dim F As Object
Dim Fichier As Variant

Fichier = RetourFichier(Range("B7").Value)

If Fichier <> False Then

    Range("B8") = Dir(Fichier)
    
    Set Fso = CreateObject("Scripting.FileSystemObject")
    
    If Fso.FileExists(Fichier) = True Then
        
        Set F = Fso.GetFile(Fichier)
        
        Range("B7") = Left(F.Path, InStrRev(F.Path, "\"))
        Range("B8") = Dir(F.Path)
        Range("B9") = F.DateLastModified
        
    End If
End If

End Sub

Function RetourFichier(Chemin As String) As Variant
    
    '1 ouvrir un fichier
    '2 enregistrement de fichier
    '3 sélection de fichier
    '4 sélection de dossier
    
    With Application.FileDialog(3)
    
        .AllowMultiSelect = False
        .Filters.Add "Classeurs Excel", "*.xls", 1
        .InitialFileName = Chemin
        .Show
        
        On Error Resume Next 'si annuler
        RetourFichier = .SelectedItems(1)
        
        If Err.Number <> 0 Then RetourFichier = False
    
    End With
        
End Function

Hervé.
 
Vote positif 0 Vote négatif
Re : Récupérer des informations de fichier (nom, répertoire, date) + boite explorateu

Merci bcp à tous les 2.

Perso : je sélectionne la version de Theze (car plus courte).
Par contre, quel est l'adresse du site de F SIGONNEAU ?
 
Vote positif 0 Vote négatif
Re : Récupérer des informations de fichier (nom, répertoire, date) + boite explorateu

Re,

La ligne "Range("B8") = Dir(Fichier)" tu peux la virer (due au tests) puisqu'il y a ensuite "Range("B8") = Dir(F.Path)"

Hervé.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Microsoft 365 récupérer des valeurs après un filtre en VBA (pour envoyer des emails)
Réponses
6
Affichages
110
aurejotrail
A
  • Question Question
XL 2021 Liste des propriétés de fichiers.
3 4 5
Réponses
73
Affichages
4 K
jeff1494
F
  • Résolu(e)
Microsoft 365 Code vba pour Ouvrir un fichier et copier son contenu dans un classeur existant à partir de la boite de dialogue
Réponses
3
Affichages
1 K
Faroyo
F
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
494
iruri
I
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
328
Lu76Fer
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
254
JJ69
J
F
  • Question Question
XL 2021 Power Query : extraire tableaux et données de PDF
Réponses
0
Affichages
301
Florent74
F
S
  • Résolu(e)
Microsoft 365 [Résolu] Aide sur gestionnaires de noms + liste déroulante en cascade associée
Réponses
9
Affichages
925
djidji59430
I
  • Question Question
Microsoft 365 Renommer des fichiers avec des caractères non reconnus
Réponses
10
Affichages
944
ivan27
I
J
  • Question Question
XL 2016 Comment récupérer en format excel un ticket de caisse supermarché ?
2
Réponses
18
Affichages
3 K
patricktoulon
POWERQUERY :: Récupérer les attributs d'un fichier, Parcourir un dossier, Récupérer le contenu d'un fichier texte, Vérifier la présence d'un fichier
Réponses
0
Affichages
582
oguruma
C
  • Résolu(e)
Microsoft 365 Boite de dialogue suivant date et récupération de données
2
Réponses
15
Affichages
1 K
chnico80
C
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
829
Nico2978
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
660
RyuAutodidacte
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
1 K
jeff1494
M
  • Résolu(e)
XL 2016 #REF ! et nom de cellule existant sur cellules nommées
2
Réponses
16
Affichages
1 K
Mak_tarmak
M
  • Résolu(e)
XL 2021 Récupérer des données de fichiers dons les noms sont renseignés dans des cellules
Réponses
2
Affichages
664
Darkopsix
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
D
  • Question Question
XL 2016 Utiliser un équivalent de INDIRECT sur des classeurs fermés
Réponses
8
Affichages
767
job75
S
  • Question Question
Autres Affichage alertes
2
Réponses
16
Affichages
2 K
Slavko.R
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…