Pdf

Bonjour à tous,

Je souhaite transposer le code suivant pour récupérer des noms de fichiers
au format pdf. Le problème c'est que je ne sais pas comment traduire ça dans
la macro.
Pouvez vous m'aider ?

Dim StrChemin As String
Dim StrFichier As String, wkclasseur As Workbook
StrChemin = "Z:Données Scannées 31-12-04xxxxyyyyy"
StrFichier = Dir(StrChemin & "*.pdf")

Do While StrFichier <> ""
Set NomClasseur = Workbooks.Open(Filename:=StrChemin & StrFichier)

Quoi mettre à la place de Workbooks ?

StrFichier = Dir()
Loop

Merci d'avance.

bonjour dan,

Sub TousFichiersPDFDunDossier()
Dim fso As Object, Dossier As Object, NomDossier, x As Integer
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:zaza"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If Right(File.Name, 3) = "pdf" Then
x = x + 1
Range("A" & x) = File.Name
End If
Next
End If
End Sub

isabelle

Bonjour à tous,

Je souhaite transposer le code suivant pour récupérer des noms de fichiers
au format pdf. Le problème c'est que je ne sais pas comment traduire ça dans
la macro.
Pouvez vous m'aider ?

Dim StrChemin As String
Dim StrFichier As String, wkclasseur As Workbook
StrChemin = "Z:Données Scannées 31-12-04xxxxyyyyy"
StrFichier = Dir(StrChemin & "*.pdf")

Do While StrFichier <> ""
Set NomClasseur = Workbooks.Open(Filename:=StrChemin & StrFichier)

Quoi mettre à la place de Workbooks ?

StrFichier = Dir()
Loop

Merci d'avance.