Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Bonjour,
j'ai une macro pour laquelle je veux lister les fichiers d'un répertoire qui comporte l'instruction suivante :
Fichier = Dir(Chemin & "*.*", vbDirectory + vbHidden + vbSystem)
comment faire pour lister les fichiers sachant que le chemin est sur mon réseau ?
le chemin est : Ce PC\rich0612\Vidéo\Films
là la macro plante. que faut-il faire ?
cordialement
Richard
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Bonjour Daniel,
en fait le pb vient du fait que le chemin n'est pas standard dans son écriture.
ai pu faire en "connectant un lecteur" un chemin standard (Z:) et là ça roule.
bonne journée
Richard
Bonjour
j'utilise ceci en mettant le classeur dans le même répertoire à adapter
| Set classeurMaitre = ActiveWorkbook |
|---|
| chemin = ActiveWorkbook.Path 'réperoire dans lequel est enregistré le classeur de la macro |
| Set fs = CreateObject("Scripting.FileSystemObject") |
| Set liste = fs.getfolder(chemin) 'liste des fichiers avec leur adresse dans le répertoire chemin |
| For Each F In liste.Files 'F objet représentant le chemin d'un fichier, le nom etc |
| If f.Name <> classeurMaitre.Name Then |
| nomclasseur = f.Name 'pour chercher le classseur |
etc
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Bonjour,
La macro suivante liste les fichiers sur la feuille active :
fichier = Dir("C:\rich0612\Vidéo\Films" & "\*.*")
Do While fichier <> ""
Ligne = Ligne + 1
Cells(Ligne, 1) = fichier
fichier = Dir
Loop
Si tu as besoin des fichiers systèmes, cachés et des ssous-dossiers, il faut mieux utiliser GetFile. Dans ce cas, dis-le, je te fournirai un autre code.
Daniel