Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
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" a écrit dans le message de news: 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
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" <steph240900@hotmail.com> a écrit dans le message de news:
5076809b$0$18074$ba4acef3@reader.news.orange.fr...
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.
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" a écrit dans le message de news: 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
steph b
super merci bcp
"Jacky" a écrit dans le message de news: 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" a écrit dans le message de news: 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
super merci bcp
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
k56pf8$dk9$1@speranza.aioe.org...
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" <steph240900@hotmail.com> a écrit dans le message de news:
5076809b$0$18074$ba4acef3@reader.news.orange.fr...
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.
"Jacky" a écrit dans le message de news: 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" a écrit dans le message de news: 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.
