Lister fichier d'un dossier Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
acymospc
Membre fidèle
Membre fidèle
Messages : 236
Inscrit le : 26 décembre 2012
Version d'Excel : 2003-2010-2013 FR,, Calc 4.2

Message par acymospc » 23 juillet 2014, 17:05

Bonjour,
je ne me rappel plus la macro pour faire apparaître dans une colonne tous les noms de fichiers dans un dossier avec le lien dessus

Merci .
Compte redirigé vers Serenodo
A
Amadéus
Modérateur
Modérateur
Messages : 17'693
Appréciations reçues : 78
Inscrit le : 7 mai 2006
Version d'Excel : Office Excel 2003 FR et 2013FR

Message par Amadéus » 23 juillet 2014, 18:04

Bonjour
voici
Cordialement
Liste fichiers répertoire actif en Liens .xls
(55 Kio) Téléchargé 353 fois
Amadéus vous informe que, pour cause de saturation, il ne peut plus répondre aux messages privés non sollicités.
a
acymospc
Membre fidèle
Membre fidèle
Messages : 236
Inscrit le : 26 décembre 2012
Version d'Excel : 2003-2010-2013 FR,, Calc 4.2

Message par acymospc » 24 juillet 2014, 09:48

Bonjour Amadéus,

Super
j'ai juste un souci .
Le chemin je l'indique où ?
P:\Donnees\MemoExcel\MemoExcelTuto

Merci
Compte redirigé vers Serenodo
a
acymospc
Membre fidèle
Membre fidèle
Messages : 236
Inscrit le : 26 décembre 2012
Version d'Excel : 2003-2010-2013 FR,, Calc 4.2

Message par acymospc » 24 juillet 2014, 14:05

Bonjour,
Voici une solution

Option Explicit
 
Sub TestListeFichiers()
    Dim Dossier As String
 
    'Définit le répertoire pour débuter la recherche de fichiers.
    '(Attention à ne pas indiquer un répertoire qu contient trop de sous-dossiers ou de
    'fichiers, sinon le temps de traitement va être très long).
    Dossier = "P:\Donnees\MemoExcel\MemoExcelTuto"
 
    'Appelle la procédure de recherche des fichiers
    ListeFichiers Dossier
 
    'Ajuste la largeur des colonnes A:E en fonction du contenu des cellules.
    Columns("A:E").AutoFit
    MsgBox "Terminé"
End Sub
 
 
 
Sub ListeFichiers(Repertoire As String)
    '
    'Nécessite d'activer la référence "Microsoft Scripting RunTime"
        'Dans l'éditeur de macros (Alt+F11):
        'Menu Outils
        'Références
        'Cochez la ligne "Microsoft Scripting RunTime".
        'Cliquez sur le bouton OK pour valider.
 
    Dim Fso As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim SubFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    Dim i As Long
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = Fso.GetFolder(Repertoire)
 
    'Récupère le numéro de la dernière ligne vide dans la colonne A.
    i = Range("A65536").End(xlUp).Row + 1
 
    'Boucle sur tous les fichiers du répertoire
    For Each FileItem In SourceFolder.Files
        'Inscrit le nom du fichier dans la cellule
        Cells(i, 1) = FileItem.Name
        'Ajoute un lien hypertexte vers le fichier
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
            Address:=FileItem.ParentFolder & "\" & FileItem.Name
        'Indique la date de création
        'Cells(i, 2) = FileItem.DateCreated
        'Indique la date de dernier acces
        'Cells(i, 3) = FileItem.DateLastAccessed
        'Indique la date de dernière modification
        'Cells(i, 4) = FileItem.DateLastModified
        'Nom du répertoire
        'Cells(i, 5) = FileItem.ParentFolder
 
        i = i + 1
    Next FileItem
 
 
    '--- Appel récursif pour lister les fichier dans les sous-répertoires ---.
    For Each SubFolder In SourceFolder.subfolders
        ListeFichiers SubFolder.Path
    Next SubFolder
 
Compte redirigé vers Serenodo
a
acymospc
Membre fidèle
Membre fidèle
Messages : 236
Inscrit le : 26 décembre 2012
Version d'Excel : 2003-2010-2013 FR,, Calc 4.2

Message par acymospc » 25 juillet 2014, 17:27

Bonjour Amadeus,
je voulais me servir de ta macro mais j'ai un bug au niveau de

With Application.FileSearch
Message d'erreur
Code erreur 445
cet objet ne génère pas cette action
Liste fichiers répertoire actif en Liens (1).xls
(73.5 Kio) Téléchargé 178 fois
Merci
Compte redirigé vers Serenodo
A
Amadéus
Modérateur
Modérateur
Messages : 17'693
Appréciations reçues : 78
Inscrit le : 7 mai 2006
Version d'Excel : Office Excel 2003 FR et 2013FR

Message par Amadéus » 25 juillet 2014, 22:28

Bonjour
Comme précisé, ce code n'opère que sur les xls
Cordialement
Amadéus vous informe que, pour cause de saturation, il ne peut plus répondre aux messages privés non sollicités.
Avatar du membre
alexandreb06
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 25 mai 2019
Version d'Excel : 2013

Message par alexandreb06 » 6 juillet 2019, 10:24

Bonjour à tous,

Depuis que j'ai ajouté cette fonction à mon fichier, j'ai une erreur d’exécution 1004 erreur définie par l'application ou par l'objet

Et voici la ligne qui arrive en erreur.
Sheets("Sélection").Range("H5:O6").Interior.Color = RGB(255, 255, 255) 'BLANC
Dans référence j'ai activé Microsoft Scripting Runtime, j'ai aucune idée de ce qui bloque
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 6 juillet 2019, 10:40

Bonjour,

La première question est la suivante :

As-tu une feuille dont le nom de l'onglet est précisément : Sélection ....???
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
alexandreb06
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 25 mai 2019
Version d'Excel : 2013

Message par alexandreb06 » 6 juillet 2019, 10:43

Oui, tout fonctionne bien je rajoute le code, le code fonctionne aussi j'ai la liste des fichiers,
mais après toutes les macro avec interior.color ne fonctionne plus
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 6 juillet 2019, 10:47

Re,

J'avoue ne pas comprendre ce qui se passe ...

L'instruction suivante fonctionne correctement :
Range("H5:O6").Interior.Color = RGB(255, 255, 255)
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message