Liste Excel de fichiers
Bonjour à tous
Je voudrais savoir si quelqu'un à une macro pour extraire les noms des documents se trouvant dans un dossier sous explorateur windows.
Si en plus la macro peux ne prendre que les fichiers types pdf ce serait parfait.
Merci d'avance.
Max
Bonjour
Tu choisiras selon ta convenance
Cordialement
Bonjour Max, bonjour le forum,
À adapter :
Sub Macro1()
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim LF() As Variant 'déclare la variable LF (Liste des Fichiers)
Dim F As String 'déclare la variable F (Fichier)
CA = "C:\Users\Max\Mes Documents" 'définit la chemin d'accès CA (tu adapteras évidement)
F = Dir(CA & "\*.pdf") 'définit le fichier F (premier fichier PDF du dossier ayant CA comme chemin d'accès)
Do While Not F = "" 'exécute tant que F n'est pas vide
ReDim Preserve LF(I) 'redimensionne le tableau LF
LF(I) = F 'récupère le nom du fichier F
I = I + 1 'incrément I
F = Dir 'redéfinit le fichier F (prochain fichier PDF du dossier ayant CA comme chemin d'accès)
Loop 'boucle
'si I est supérieur à 1 renvoie dans A1 redimensionnée de l'onglet "Feuil1" (à adapter) le tableau LF transposé (= la liste)
If I > 1 Then Sheets("Feuil1").Range("A1").Resize(UBound(LF) + 1, 1) = Application.Transpose(LF)
End SubBonjour à tous
Petit utilitaire personnel qui autorise la sélection multiple ou sélective...
Si cela intéresse quelqu'un...
Bye !
Merci à vous deux Amadèus et Thau Théme. Ça me laisse du choix pour gérer mes fichier comme ça.
Amadèus : le fichier répertoire indiqué ne fonctionne pas. La macro bug sur Application.SearchFile la fonction ne serait pas prise en charge apparemment.
Gmb :
gmb a écrit :Bonjour à tous
Petit utilitaire personnel qui autorise la sélection multiple ou sélective...
Si cela intéresse quelqu'un...
Bye !
J'ai pas compris ce que tu proposes
Merci à tous encore une fois
Max0490 a écrit :J'ai pas compris ce que tu proposes
Effectivement !
Sans la pièce jointe, tu auras du mal !
Avec mes excuses.
Bye !
Effectivement
Un grand