Discussion :

[cacro790]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[l_autodidacte]

Déjà dans la boucle Do While il manque Rec.MoveNext ' après File3 et à la fin Loop.

Si tu donnais un exemple de ce que tu as et ce que tu veux obtenir, cela serait d'un grand secours pour qu'on puisse t'aider.

[ProgElecT]

Salut l_autodidacte

Pour cacro790, le code de la fonction que tu nous mes n'est pas du VBScript car tu ne dois pas typer tes variables et Debug n'est pas possible dans ce langage.

[kiki29]

Salut, mieux vaut tard que jamais, pour la fusion des pdf, c'est du VBA transposable en VBS
Acrobat : Fusion de fichiers PDF
PDFCreator Fusion de fichiers PDF / Fusion des PDF d'un Dossier
Acrobat : Fusion des fichiers PDF d'un dossier
Acrobat : Fusion des fichiers PDF d'un dossier à partir d'une liste Excel