liste fichiers vba

Le
stef b
Bonjour j ai une feuille dans un fichiers excel nommée FICHIERS

je voudrais si possible de la cellule A1 à Ax que le code me mette la liste
des fichiers avec leur chemin complet dont leur l'extension est .pdf.

est possible?

merci d avance
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #24859552
Bonjour,
Si les fichiers sont dans un même répertoire(ce qui est fortement conseiller)
Il y a ceci en adaptant le chemin
'--------------
Sub jj()
Dim Chemin As String, Fichier As String, i As Long
Columns(1).Clear
Chemin = "D:MesDocs" ' a adapter
Fichier = Dir(Chemin & "*.pdf")
Do While Len(Fichier) > 0
i = i + 1
Cells(i, 1) = Chemin & Fichier
Fichier = Dir()
Loop
End Sub
'--------------

--
Salutations
JJ


"stef b" 5076809b$0$18074$
Bonjour j ai une feuille dans un fichiers excel nommée FICHIERS

je voudrais si possible de la cellule A1 à Ax que le code me mette la liste des fichiers avec leur chemin
complet dont leur l'extension est .pdf.

est possible?

merci d avance


Répondre en citant
steph b
Le #24860942
super merci bcp


"Jacky" k56pf8$dk9$
Bonjour,
Si les fichiers sont dans un même répertoire(ce qui est fortement
conseiller)
Il y a ceci en adaptant le chemin
'--------------
Sub jj()
Dim Chemin As String, Fichier As String, i As Long
Columns(1).Clear
Chemin = "D:MesDocs" ' a adapter
Fichier = Dir(Chemin & "*.pdf")
Do While Len(Fichier) > 0
i = i + 1
Cells(i, 1) = Chemin & Fichier
Fichier = Dir()
Loop
End Sub
'--------------

--
Salutations
JJ


"stef b" 5076809b$0$18074$
Bonjour j ai une feuille dans un fichiers excel nommée FICHIERS

je voudrais si possible de la cellule A1 à Ax que le code me mette la
liste des fichiers avec leur chemin complet dont leur l'extension est
.pdf.

est possible?

merci d avance






Répondre en citant
Publicité
Poster une réponse
Anonyme