XL 2019 Gestion des fichiers et répertoires

Jacky67

XLDnaute Barbatruc

• 24 Mai 2021

• #2

MarcDJ à dit:

Bonjour à tous,

Où pourrais-je trouver de la documentation pour gérer des fichiers et répertoires en VBA Excel 2019.

Merci d'avance pour réponses

Cliquez pour agrandir...

Bonjour,
Commencer par un F1 sur les 3 fonctions dans l'éditeur VBA
Dir
Chdir
Mkdir
serait un bon début

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 24 Mai 2021

• #3

Bonsoir Jacky67,

Merci pour votre aide.

Je regarde à cela.

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 25 Mai 2021

• #4

Bonjour à tous,

J'ai suivi les conseils de Jacky67.

En fouillant sur le Net j'ai trouvé ceci :

VBA : Gestion des fichiers, dossiers et lecteurs

Je vais y regarder.

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 25 Mai 2021

• #5

Salut, un bon point de départ : Manipulation des fichiers en VBA

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 25 Mai 2021

• #6

Bonjour kiki29,

Je regarde également à cela.

Merci à vous

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 25 Mai 2021

• #7

Re,

Voici un bout de code pour Dir :

Sub ParcourirFichier()

'Fichier va contenir le Nom du premier Fichier rencontré dans "F:\Atelier"
Fichier = Dir("D:\Atelier\*.*")
'Tant que Fichier est Différent de Vide(Tant qu'il y a un fichier à lire, simplement
While Fichier <> ""
'On l'affiche dans la fenêtre d'Exécution (Affichage/Fenêtre Exécution)
Debug.Print Fichier
'Le fait de dire Fichier = Dir, sans préciser paramètre le nom du fichier,
'permet de lire le fichier suivant
Fichier = Dir
'Et on revient dans la Boucle en Affichant le fichier qu'on vient de lire...
'S'il n'y avait qu'un seul fichier dans le dossier, il sortirait tout de suite maintenant
Wend

End Sub

Pourquoi, d'après vous rien ne s'affiche ?

Merci pour votre aide

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 25 Mai 2021

• #8

MarcDJ à dit:

Re,
Pourquoi, d'après vous rien ne s'affiche ?

Cliquez pour agrandir...

Re...
Tu écris
'Fichier va contenir le Nom du premier Fichier rencontré dans "F:\Atelier"
Et dans le code tu vas voir dans==>Dir("D:\Atelier\*.*")

**Il est toujours bon de déclarer les variables
Pour mieux voir, essaye le code ci-dessous (changer "D:\" pour "F:\" si c'est le cas)
Il est évident que le répertoire "D:\Atelier\" existe sur le lecteur "D"
ou "F:\Atelier\" pour le lecteur "F"

VB:

Sub ParcourirFichier()
    Dim Chemin$, Fichier$, Msg$
    Chemin = "D:\Atelier\"    ' lecteur et Chemin du répertoire voulu
    'Fichier va contenir le Nom du premier Fichier rencontré dans "D:\Atelier\"
    Fichier = Dir(Chemin)
    'Tant que Fichier est Différent de Vide(Tant qu'il y a un fichier à lire, simplement
    While Fichier <> ""
        'On ajoute dans la variable "Msg" le nom du fichier plus un retour de ligne (juste pour cet exemple)
        Msg = Msg & Fichier & vbLf
        Fichier = Dir    ' le fichier suivant...
    Wend
    MsgBox Msg, , "Fichier dans le répertoire " & Chemin
End Sub

 

Dernière édition: 26 Mai 2021

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 26 Mai 2021

• #9

Salut, un exemple avec récursion, il y en a une myriade ( pas testé )

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 26 Mai 2021

• #10

Bonjour jacky67,

Petite distraction dans les explications du programme, c'est 'Fichier va contenir le Nom du premier Fichier rencontré dans "D:\Atelier"

Je compare le code, pour voir mes erreurs et je reviens vers vous.

Merci pour votre aide

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 26 Mai 2021

• #11

Bonjour kiki29,

Waouw, cela me semble très complet mais plus compliqué, je vérifie le code en entier pour bien comprendre cette procédure et je reviens vers vous.

Merci kiki29.

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 26 Mai 2021

• #12

Re,

Code jacky67

La fenêtre apparaît bien, avec le Chemin dans la barre de titre ainsi que "Fichier dans le répertoire " mais aucun fichier ne s'affiche.

 

Dernière édition: 26 Mai 2021

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 26 Mai 2021

• #13

Re, à voir également

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 26 Mai 2021

• #14

kiki29 à dit:

Re, à voir également

Cliquez pour agrandir...

Re,

C'est très gentil kiki29, mais je vais déjà essayer de faire fonctionner le code de jacky67, ce qui n'est pas évident et puis je m'attaquerez à plus difficile.

J'apprécie vraiment ce que vous faites pour m'aider comme tout le monde sur ce site.

Je suis dingue de votre avatar.

 

Dernière édition: 26 Mai 2021

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 26 Mai 2021

• #15

MarcDJ à dit:

Re,

Code jacky67

La fenêtre apparaît bien, avec le Chemin dans la barre de titre mais "Fichier dans le répertoire " ne s'affiche pas et aucun fichier ne s'affiche non plus.

Cliquez pour agrandir...

Re..
Essaye ce classeur et retourne le résultat

 

Pièces jointes

• repertoire lister pour MarcDJ.xlsm

  21 KB · Affichages: 50

Dernière édition: 4 Juin 2021

Vote positif 0 Vote négatif