XL 2013 CODE VBA à modifier pour Lister les fichiers .XLS mais pas .XLSM

Chrystel01 · 30 Mars 2023

Bonjour,

J'ai un petit code VBA qui me liste les noms de fichier avec l'extension .xls (du même répertoire que le classeur actif) mais je ne souhaite pas que soient inclus de fichiers .xlsm

Pourriez-vous m'aider svp ?
Voici le fichier joint qu'il faut mettre dans 1 répertoire avec d'autres fichiers.

Je vous remercie par avance

Chrystel

pierrejean · 30 Mars 2023

bonjour
A tester:

VB:

Sub lister_dossiers()
'Appelle tous les fichiers contenus dans un répertoire

Dim ligne_dossier
ligne_dossier = 5 ' ligne ou on collera les nouveaux dossiers

Dim compteur_dossier
compteur_dossier = Dir(ThisWorkbook.Path & "\*.xls")

While compteur_dossier <> ""

    If InStr(compteur_dossier, ".") Then
       If Right(compteur_dossier, 1) <> "m" Then
      
        ' pas de point, on colle le nom du dossier dans colonne
        ThisWorkbook.Sheets("Datasource").Cells(ligne_dossier, 1).Value = compteur_dossier
        ligne_dossier = ligne_dossier + 1
       End If
    End If
    compteur_dossier = Dir()

Wend

End Sub

pierrejean · 30 Mars 2023

bonjour
A tester:

VB:

Sub lister_dossiers()
'Appelle tous les fichiers contenus dans un répertoire

Dim ligne_dossier
ligne_dossier = 5 ' ligne ou on collera les nouveaux dossiers

Dim compteur_dossier
compteur_dossier = Dir(ThisWorkbook.Path & "\*.xls")

While compteur_dossier <> ""

    If InStr(compteur_dossier, ".") Then
       If Right(compteur_dossier, 1) <> "m" Then
      
        ' pas de point, on colle le nom du dossier dans colonne
        ThisWorkbook.Sheets("Datasource").Cells(ligne_dossier, 1).Value = compteur_dossier
        ligne_dossier = ligne_dossier + 1
       End If
    End If
    compteur_dossier = Dir()

Wend

End Sub

Jacky67 · 30 Mars 2023

Chrystel01 à dit:
Bonjour,

J'ai un petit code VBA qui me liste les noms de fichier avec l'extension .xls (du même répertoire que le classeur actif) mais je ne souhaite pas que soient inclus de fichiers .xlsm

Pourriez-vous m'aider svp ?
Voici le fichier joint qu'il faut mettre dans 1 répertoire avec d'autres fichiers.

Je vous remercie par avance

Chrystel

Bonjour,
Il restait certainement des scories des essais précèdent et comme il n'y a pas de Raz de la colonne...
Ceci devrait être suffisant

VB:

Sub lister_dossiers()
'Appelle tous les fichiers contenus dans un répertoire
    Dim ligne_dossier&, compteur_dossier
    ligne_dossier = 5    ' ligne ou on collera les nouveaux dossiers
    With Sheets("Datasource")
        .Range("a" & ligne_dossier & ":a" & .Rows.Count).Clear   ' RAZ
        compteur_dossier = Dir(ThisWorkbook.Path & "\*.xls")
        While compteur_dossier <> ""
            .Cells(ligne_dossier, 1).Value = compteur_dossier
            ligne_dossier = ligne_dossier + 1
            compteur_dossier = Dir()
        Wend
    End With
End

job75 · 30 Mars 2023

Bonjour Chrystel01, Pierre, Jacky67,

J'utiliserai plutôt ce test :

VB:

While compteur_dossier <> ""
    If Right(compteur_dossier, 4) = ".xls" Then

A+

Jacky67 · 30 Mars 2023

job75 à dit:
Bonjour Chrystel01, Pierre, Jacky67,

J'utiliserai plutôt ce test :

VB:

While compteur_dossier <> "" If Right(compteur_dossier, 4) = ".xls" Then

A+

Hello Job
Je n'éprouve aucune difficulté sans ce test pour éditer que les .xls
Testé sur xl 2007 et 365

job75 · 30 Mars 2023

Jacky67 à dit:
Je n'éprouve aucune difficulté sans ce test pour éditer que les .xls

Sans ce test, chez moi sur Excel 2019 et sans doute chez Chrystel les fichiers .xlsm et .xlsx sont listés.

Jacky67 · 30 Mars 2023

job75 à dit:
Sans ce test, chez moi sur Excel 2019 et sans doute chez Chrystel les fichiers .xlsm et .xlsx sont listés.

Bien, je vais lier cela a mon installation récente d'office365 sur le même pc.
Bizarre tout de même ...

job75 · 30 Mars 2023

Autre détail, si le fichier peut être utilisé sur MAC on écrira :

VB:

compteur_dossier = Dir(ThisWorkbook.Path & Application.PathSeparator)

Chrystel01 · 30 Mars 2023

Bonjour Pierre Jean, Jacky67, Job75,

Je confirme que j'utilise excel 2013 et que le fichiers "xlsm" sont listés.
Je vais reprendre une des proprositions de Pierre Jean ou Job75 qui fonctionnenet parfaitement et ne rapptrient pas les fichiers ".xlsm"

Merci à tous pour votre aide rapide et efficace !

Bonne fin de semaine

Chrystel

patricktoulon · 30 Mars 2023

bonjour à tous
juste en passant je suis surpris du résultat sans le test right ".xls"
je viens de faire le test sur 2013 et en effet même sans l'astérisque à la fin tout les xlsm ou xlsx sont listés

si on peut plus faire confiance a une ligne de code des plus basique de DIR je me demande ou on va
par curiosité j'ai testé la macro sur 2007 et en effet on a que les ".xls"
encore une chose que vba 7 change

Jacky67 · 30 Mars 2023

patricktoulon à dit:
bonjour à tous
juste en passant je suis surpris du résultat sans le test right ".xls"
je viens de faire le test sur 2013 et en effet même sans l'astérisque à la fin tout les xlsm ou xlsx sont listés

si on peut plus faire confiance a une ligne de code des plus basique de DIR je me demande ou on va
par curiosité j'ai testé la macro sur 2007 et en effet on a que les ".xls"
encore une chose que vba 7 change

Hello Patrick
Merci d'avoir testé, du coup je me sens un peu moins seul

XL 2013 CODE VBA à modifier pour Lister les fichiers .XLS mais pas .XLSM

Chrystel01

XLDnaute Occasionnel

Pièces jointes

pierrejean

pierrejean

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Chrystel01

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Discussions similaires