Renommer fichiers PDF de 3 reprtoires sous Access 2010
Bonjour à tous,
Mon problème est assez simple, en fait je n'arrive pas à remplacer des caractères dans des noms de fichiers PDF dans 3 repertoires différents (afin de les fusionner, mais ça c'est pas pour tout de suite...), voilà mon code (basée sur une requête SQL qui fonctionne correctement) :
En fait les noms de fichiers PDF doivent se terminer par des noms différents suivant les dossiers.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Public Function Generate_()
Dim sqlstr2, Chemin, DocName As String
Dim File1, File2, File3, File4 As String
Dim Tmp1, Tmp2 As String
Dim DB As Database
Dim Rec As Recordset
Dim Response
Set DB = CurrentDb()
Set Rec = DB.OpenRecordset(sqlstr2, dbReadOnly)
Do While Not Rec.EOF
Debug.Print DocName
File1 = "C:\temp\folder1\files\" & Replace(Rec("Surname") & Left$(Rec("Firstname"), 1) & "_" & Replace(Rec("ProjectNumber"), "-toto", "") & "_newname1.pdf", " ", "")
File2 = "C:\temp\folder2\files2\" & Replace(Rec("Surname") & Left$(Rec("Firstname"), 1) & "_" & Replace(Rec("ProjectNumber"), "-toto", "") & "_newname2.pdf", " ", "")
File3 = "C:\temp\folder\files3\" & Rec("Surname") & Left$(Rec("Firstname"), 1) & "_" & Replace(Rec("ProjectNumber"), "-toto", "") & "_newname3.pdf"
End Function |
Sauriez vous aussi comment je peux fusionner les fichiers obtenus selon leur n° de projet ?
Merci à tous pour votre aide.
