XL 2019 Gestion des fichiers et répertoires

[MarcDJ]

Bonjour à tous,

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

L'idée est d'aller sur un disque dur, sélectionner un répertoire avec des noms et en fonction des noms télécharger
les 5 photos correspondant au nom.

Merci d'avance pour réponses

 

[Jacky67]

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

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

 

[MarcDJ]

Bonsoir Jacky67,

Merci pour votre aide.

Je regarde à cela.

 

[MarcDJ]

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.

 

[kiki29]

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

 

[MarcDJ]

Bonjour kiki29,

Je regarde également à cela.

Merci à vous

 

[MarcDJ]

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

 

[Jacky67]

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

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"

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

 

[kiki29]

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

 

[MarcDJ]

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

 

[MarcDJ]

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.

 

[MarcDJ]

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.

 

[kiki29]

Re, à voir également

 

[MarcDJ]

Re, à voir également

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.

 

[Jacky67]

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.

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