#1 Bonjour, je suis à la recherche d'un code vba excel pour lister les fichiers d'un répertoire sous mon mac. Je réussis seulement à lister le premier fichier et ma boucle tourne indéfiniment sur celui-ci. Merci de votre aide. Excel vba lister fichiers d un répertoire des spécialités. #2 Bonjour et bienvenue sur les forums de MacGénération! Ce serait probablement intéressant que tu copies ta boucle pour qu'on puisse te donner des indications... #3 Voici le bout de programme l=1 fichiers = Dir("Macintosh HD:Users:xxx ocuments:zzz", MacID("XLS8")) Cells(l, 1) = fichiers Do fichiers = Dir("") If fichiers = "" Then Exit Do End If l = l + 1 Loop #4 À vue de nez (vite fait) je dirais que tu n'es pas bien loin. Pour ma part, je procéderais à peine différemment. Essaye ceci qui donne chez moi ce que je crois avoir compris de ta demande. Bon, là il va chercher dans le dossier où est enregistré le classeur, mais c'est évidemment facile à personnaliser Bloc de code: Sub ChercherLesFichiers() Dim MonChemin As String MonChemin = & thSeparator ' MonChemin = "Macintosh HD:Users:xxxDocuments:zzz" ' si tu veux Dim NomFichier As String NomFichier = Dir(MonChemin, MacID("XLS8")) i = 1 Do While Len(NomFichier) > 0 ("A" & i) = NomFichier NomFichier = Dir i = i + 1 End Sub #5 Merci beaucoup cela fonctionne, il me manquait l'écriture complémentaire en fin de mon chemin "thSeparator".
Feuille de travail avec la liste des fichiers du dossier Comme vous pouvez le voir dans l'image 2, les 5 fichiers du dossier C:\Dossier VBA sont répertoriés dans la première colonne. VBA Coding Made Easy Stop searching for VBA code online. Excel vba lister fichiers d un répertoire des. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users! Learn More!
C'est, enfin, cette fois-ci, la variable, non pas myPath, comme dans l'exemple précédent, mais myFolder, qui nous permet, ici, dans la ligne suivante, Set mainFolder = tFolder(myFolder), d'enregistrer le chemin d'accès du dossier parent de celui dans lequel se trouve notre fichier. La boucle effectue l'affichage des sous-dossiers appartenant au dossier parent du dossier dans lequel se trouve notre fichier. Lister les fichier d'un répertoire avec vba excel | Les forums de MacGeneration. Juste pour info., voici un petit complément avec le code pour établir la liste des sous-dossiers du dossier parent selon la première méthode: Sub Dossiers4() myPath = CurDir(myPath) Cells(c, 5) = myFolder A noter que ce programme semble avoir du mal à reconnaitre certains dossiers Windows mais fonctionne parfaitement avec les dossiers créés par l'utilisateur. Ci-dessous le fichier au format contenant les exemples de cet article. Listings fichiers classeurs
La variable myFile récupère, le nom du fichier. On reconnait ici la variable myPath qui contient le chemin d'accès auquel nous ajoutons les caractères suivants & "\**": & nous permet de concaténer le chemin d'accès au reste des commandes à sa droite afin de définir le chemin d'accès et le nom du fichier. Entre les guillemets, nous retrouvons les indiquations suivantes: le séparateur \ nous informe du prochain niveau du chemin d'accès; l'extention * indique à la macro de ne considérer que les fichiers Excel; enfin le joker * signifie que * peut représenter un caractère quelconque, une chaîne de caractères quelconques, ou aucun caractère. Ainsi, notre extension * peut prendre les valeurs xls, xlsx, xlsm, xlsb et le joker * qui précède l'extension de fichier peut avoir n'importe quel nom. Enfin, la commande Dir(), qui encadre notre expression, dit à la macro de considérer les informations qu'elle contient non pas comme une quelconque chaîne de caractères mais comme un fichier. VBA - Lister les Fichiers dans un Dossier - Automate Excel. Nous entamons notre boucle qui va générer la liste des fichiers Excel dans la première colonne de l'onglet actif.
Ainsi, la macro n'inscrit que les noms de fichiers. Dossiers méthode 2 Sub Dossiers2() 'Dans la fenêtre VBA, sélectionner Outils, Références et cocher Microsoft Scripting Runtime Dim myPath As String, mainFolder As Folder Dim aa As Object Set aa = CreateObject("lesystemobject") Set mainFolder = tFolder(myPath) For Each f In bFolders Cells(c, 3) = f Next f Nous allons, en premier lieu, nous rendre dans la fenêtre VBA, sélectionner Outils, Références et cocher Microsoft Scripting Runtime: nous venons d'accéder à une « librairie » qui nous permet d'avoir des fonctionnalités supplémentaires. La première étape consiste à créer un « objet »: nous commençons par déclarer la variable, nommée aa, qui correspond à cet objet Dim aa As Objec t; nous créons, ensuite, l'objet aa Set aa = CreateObject("lesystemobject"). Excel vba lister fichiers d un répertoire des spécialités pharmaceutiques. Après avoir précisé le chemin d'accès à notre dossier que nous enregistrons dans la variable myPath, nous utilisons la commande Set mainFolder = tFolder(myPath) pour identifier le dossier contenant notre classeur et l'enregistrer dans la variable mainFolder.
J'utilise toujours le point comme séparateur décimal dans mes tests. 04/08/2010, 20h17 #3 Salut, il y a aussi ce lien, avec une recherche récursive possible, 04/08/2010, 22h58 #4 Bonjour, un peu de recherche dans les tutos et faq... cordialement, Didier 06/08/2010, 08h54 #5 merci merci à vous pour vos réponses rapides 28/12/2015, 20h24 #6 Membre régulier Excellent merci! Au cas où quelqu'un cherche, il faut ajouter la référence Microsoft Scripting Runtime. + Répondre à la discussion Cette discussion est résolue. Discussions similaires Réponses: 3 Dernier message: 20/11/2006, 08h32 Réponses: 2 Dernier message: 11/09/2006, 17h44 Réponses: 13 Dernier message: 24/08/2006, 13h05 Dernier message: 17/08/2006, 19h09 Dernier message: 24/05/2006, 19h29 × Vous avez un bloqueur de publicités installé. Le Club n'affiche que des publicités IT, discrètes et non intrusives. Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur
Idées sorties Agenda & événements Tourisme & loisirs Avec le développement de la restauration rapide, des restaurants spécialisés dans les pâtes se sont aussi mis à la tendance des repas à emporter ou en livraison. Les pâtes font partie de ces plats faciles à préparer que l'on peut faire varier avec des dizaines de sauces. Carbonara, bolognaise, pesto … Les idées ne manquent pas pour préparer cette spécialité italienne. Aucun lieu trouvé dans cette catégorie à Strasbourg! Tourisme et loisirs: on vous recommande Sorties: on vous recommande Les restaurants qui proposent ce type de plats sont en général bondés, tant la formule est efficace. Strasbourg - Pâtes à Emporter - Restaurants, Livraison à Domicile, Infos. Autrement dit, la rapidité d'un fast food avec le délice des pâtes cuisinées. Découvrez notre annuaire des restaurants de pâtes à emporter, pour trouver les horaires, adresses, téléphones, avis et toutes les infos utiles. Chaque jeudi l'agenda du week-end!
Pâtes fraiches artisanales Linguine. Fabrication artisanale à la commande. Livraison 48h après la commande. (sauf samedi dimanche) Détails du produit Linguine. Pâtes fraiches artisanales. Les Linguine sont des pâtes longues et plates, pour changer de style de pâte. Les pâtes longues s'accordent parfaitement avec une sauce plutôt liquide, à la crème, sauce tomate, ou plus simplement un filet d'huile d'olive. Choisissez votre parfum, épinard, curry ou nature. 3mn de cuisson et vos passez à table. Les Linguine sont confectionnées à la commande pour un maximum de fraîcheur. Livraison pates strasbourg alsace. A consommer 48h après la livraison Valeurs nutritionnelles pour 100g Calories: 168kcal Protéines: 5, 8g Glucides: 32g Lipides: 1, 3g Sucres:0g Fiche technique Poids: 500g Zone de livraison: Uniquement autour de Strasbourg ingrédient: Farine de blé dur, semoule de blé dur, oeufs frais, eau Fabrication artisanale à la commande. (sauf samedi dimanche)
Attention Restaurant exceptionnellement fermé ce midi Notre restaurant est fermé. Merci pour votre compréhension et joyeuses fêtes! Horaires d'ouverture 18h00 - 22h00 11h30 - 13h30 18h00 - 22h00 11h30 - 13h30 18h00 - 22h00 11h30 - 13h30 18h00 - 22h00 11h30 - 13h30 18h00 - 22h00 11h30 - 13h30 18h00 - 22h00 18h00 - 22h00 Minimum commande: 10. 00€ Frais de livraison: 0.
Attention Restaurant fermé pour congés jusqu'au 31 mai inclus Notre restaurant est fermé. Merci pour votre compréhension et joyeuses fêtes! Horaires d'ouverture 19h00 - 01h30 19h00 - 01h30 19h00 - 01h30 Fermé 19h00 - 01h30 19h00 - 01h30 19h00 - 01h30 Minimum commande: 17. 00€ Frais de livraison: 0.