Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    février 2005
    Messages
    12 465
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2005
    Messages : 12 465
    Points : 15 328
    Points
    15 328
    Par défaut Lister les fichiers d'un répertoire avec FSO avec ou sans liens hypertextes
    Ne nécessite pas d'activer la référence "Microsoft Scripting RunTime"
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub ListeFichiers_avec_fso()
    Dim fso As Object, NomFich As Object, i As Long, Chemin$
    Chemin = InputBox("Saisir le chemin du répertoire ", "", "D:\Doc")
     
        Set fso = CreateObject("Scripting.FileSystemObject")
        With fso.GetFolder(Chemin) 'Liste les fichiers du répertoire
            For Each NomFich In .Files
                Selection.TypeText Text:=NomFich.Name 'Place leurs noms ds le document
                Selection.TypeParagraph
            Next
        End With
    End Sub
    La même procédure avec Dir se trouve dans l'aide en ligne

    Le même avec lien hypertexte sur le nom de fichier
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub ListeFichiers_avec_fso()
    Dim fso As Object, NomFich As Object, i As Long, Chemin$
    Chemin = InputBox("Saisir le chemin du répertoire ", "", "D:\Doc")
     
        Set fso = CreateObject("Scripting.FileSystemObject")
        With fso.GetFolder(Chemin) 'Liste les fichiers du répertoire
            For Each NomFich In .Files
                ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
                Chemin & "\" & NomFich.Name, TextToDisplay:=NomFich.Name
                Selection.TypeParagraph
            Next
        End With
    End Sub
    pour ouvrir le lien, appuyer sur Ctrl + sélection du nom de fichier

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    février 2005
    Messages
    12 465
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2005
    Messages : 12 465
    Points : 15 328
    Points
    15 328
    Par défaut
    Le même avec lien hypertexte à partir d'un combobox placé dans le document.

    Ajouter un combobox issu de la barre d'outils "Boîte à outils contrôles" dans le document.

    Dans un module standard, placer ce code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub ListeFichiers_avec_hyperlink()
    Dim fso As Object, NomFich As Object, Chemin$
        Chemin = InputBox("Saisir le chemin du répertoire ", "", "D:\Doc")
        Set fso = CreateObject("Scripting.FileSystemObject")
        ActiveDocument.ComboBox1.Clear
        With fso.GetFolder(Chemin) 'Liste les fichiers du répertoire
            For Each NomFich In .Files
                ActiveDocument.ComboBox1.AddItem Chemin & "\" & NomFich.Name
            Next
        End With
    End Sub
    Dans ThisDocument ( -> Editeur VBA -> 2 clics sur ThisDocument ouvre la feuille de code ) placer ce code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub ComboBox1_Click()
        ActiveDocument.Hyperlinks.Add Address:=ComboBox1, _
            Anchor:=Selection.Range
        ActiveDocument.Hyperlinks(1).Follow
    End Sub
    Pour que le combobox soit renseigné à l'ouverture du fichier, ajouter ce code dans ThisDocument
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub Document_Open()
    ListeFichiers_avec_hyperlink
    End Sub

  3. #3
    Membre éclairé Avatar de Souriane
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    septembre 2009
    Messages
    472
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Canada

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Service public

    Informations forums :
    Inscription : septembre 2009
    Messages : 472
    Points : 664
    Points
    664
    Par défaut
    Est-ce que cette macro existe mais pour obtenir les sous répertoire aussi?
    __________________________________
    Une question bien posée est à moitié résolue!

    Merci de ne pas oublier de mettre RÉSOLU quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche

  4. #4
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    février 2006
    Messages
    21 018
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : février 2006
    Messages : 21 018
    Points : 42 645
    Points
    42 645
    Par défaut
    Salut Souriane,

    Oui, on la trouve dans les sources Access.

    http://access.developpez.com/sources...ercheRecursive

    Elle fonctionne aussi sous Word.
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

Discussions similaires

  1. Lister les fichiers d'un répertoire avec JTree
    Par L'aigle de Carthage dans le forum Composants
    Réponses: 4
    Dernier message: 20/03/2014, 17h33
  2. [C++/Unix] Lister les fichiers d'un répertoire
    Par bouazza92 dans le forum Linux
    Réponses: 5
    Dernier message: 10/12/2013, 22h07
  3. Réponses: 1
    Dernier message: 25/02/2009, 09h44
  4. Réponses: 0
    Dernier message: 09/04/2008, 11h03
  5. [CF][PPC/C#] Comment lister les fichiers d'un répertoire ?
    Par dady dans le forum Windows Mobile
    Réponses: 18
    Dernier message: 20/05/2005, 14h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo