Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

identification Fichier .xls

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion munity
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

munity

Guest
bonjour à toutes et tous

une ame charitable pourrait il m'aider sur ce sujet,
j'ai un certain nombre de fichier xls à importer quotidiennement
j'ai donc la macro qui me liste les fichiers présent sur le C pour ensuite me les afficher dans un listbox
la personne n'a plus qu'a choisir les fichiers qui l'intéresse pour les importer
seulement je souhaiterai seulement affichir les fichiers Xl
j'ai essayé avec cette instructions mais ca plante

If Not Fichier.FileFormat = xl And Cells(Ligne, 2) <> "" Then

pourrais t on me donner l'instruction pour ne lister que les fichiers XLS
a tout hasard je mets l'instruction pour lister les fichiers existants sur le c pour une date donnée

Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers
Sheets("test").Select
For Each Fichier In Dossier.Files

If Fichier.datecreated >= Date Then
While Cells(Ligne, 1) <> "": Ligne = Ligne + 1: Wend
Cells(Ligne, 1) = Fichier.Name
Cells(Ligne, 2) = Fichier.datecreated
End If
If Not Fichier.FileFormat = xl And Cells(Ligne, 2) <> "" Then
'If Right(Cells(Ligne, 1).Value, 4) <> ".xls" And Cells(Ligne, 2) <> "" Then
Rows(Ligne).Select: Selection.Delete Shift:=xlUp
End If
Next

merci d'avance

munity
 
Trier par date Trier par votes
Re : identification Fichier .xls

Bonsoir Munity,

si j ai bien compris ton problème, regarde le code ci dessous si ca peut t'aider :

Code: 
Sub RechFichier()
Dim MonRepertoire As String

Set fs = Application.FileSearch
MonRepertoire = "D:\Donnees\"
With fs
    .LookIn = MonRepertoire
    .FileName = "*.xl*"
    If .Execute > 0 Then
        MsgBox "Ce dossier contient " & .FoundFiles.Count & _
        " fichier(s) répondant aux critères."
        For i = 1 To .FoundFiles.Count
            ActiveCell.Value = .FoundFiles(i)
            ActiveCell.Offset(1, 0).Select
        Next i
    Else
        MsgBox "Aucun fichier n'a été trouvé."
    End If
End With

End Sub

Cela nécessitera sans doute des adaptations car il lit dans un répertoire, a voir si l on peut inclure les sous dossiers.

Bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : identification Fichier .xls

salut pierrot

je teste et te tiens au courant
mais je pense que cela devrait convenir vu que je n'ai pas de sous dossier
en fait un certain nombre de fichier est crée à J
dans la matinée une personne vient consulter cette liste et charge ceux qui l'intéresse pour une vérification de concordance

merci de ton aide

munity
 
Vote positif 0 Vote négatif
Re : identification Fichier .xls

pierrot merci

cela fonctionne
juste une question comment faire pour ne voir que le nom du fichier sans le répertoire
test.xls plutot que C:\test.xls

je pourrais ajouter une variable me tronquant les 3 premiers caractères mais si il existe une manière plus propres je suis preneur

merci du temps que tu me consacres

munity
 
Vote positif 0 Vote négatif
Re : identification Fichier .xls

pierrot

concernant ta deuxième réponse
je ne récupére que l'extension
normal puisque déclarée en variable

y a t il une autre instruction ?

munity
 
Vote positif 0 Vote négatif
Re : identification Fichier .xls

voila

n'ayant pas de réponse
je suppose que tu n'es pas assez intelligent🙂 🙂 🙂
j'ai cherché et j'ai trouvé (isolation du nom de fichier sans le répertoire)

par contre pour la date de création de ce fichier je suis toujours preneur
😱

Sub RechFichier()
Dim ligne
Set fs = Application.FileSearch
With fs
.LookIn = "c:\"
.FileType = msoFileTypeExcelWorkbooks
.Filename = "*.xl*"
Sheets("Liste Fichier ADID").Select
ligne = 2
If .Execute > 0 Then
For I = 1 To .FoundFiles.Count
While Cells(ligne, 1) <> "": ligne = ligne + 1: Wend
Cells(ligne, 10) = .FoundFiles(I)
Range("k" + Format(ligne)) = "=MID(RC[-1],4,SEARCH(""xls"",RC[-1],1))"
Cells(ligne, 1) = Range("k" + Format(ligne)).Value
'Cells(ligne, 2) = .FoundFiles.Datecreated
'ActiveCell.Value = .FoundFiles(I)
'ActiveCell.Offset(1, 0).Select
Next I
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub

munity
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
426
patricktoulon
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
466
nabilexcel2007
N
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
551
mikeduff
M
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
899
TooFatBoy
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
836
Lu76Fer
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
774
job75
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
791
nat54
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
447
CDALE
C
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
721
job75
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
390
job75
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
541
Yogean
Y
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
534
sylvanu
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
859
dadu35
D
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
786
Phil69970
  • Question Question
Autres Extraire code SAS egp dans Excel
Réponses
3
Affichages
442
suistrop
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…