Fusionne des fichiers PDF

Bsr

J'ai un code qui fusionne des fichiers PDF je veux un petit changement. par ce que dans ce fichier le nom est constant : .MergedFile
je veux le nom de fichier après fusionnement = le nom de fichier dans la cellule sélectionne dans la colonne A ainsi sans "/"
Exempele si je selctionne cellule A5 : VPM/2567 donc le nom de fichier est : VPM2567 ainsi de suite

merci

Bonjour Nizar2015

Le code du fichier est pourtant explicite, non

Il faut supprimer cette ligne avec constante

Const DestFile As String = "MergedFile.pdf" ' <-- change to suit

Définir une variable de type String "DestFile"

Ensuite attribuer ce que vous voulez à cette variable, avant la ligne

Call MergePDFs(MyPath, MyFiles, DestFile)

Maintenant dans le code, à aucun moment vous ne traiter la valeur de vos cellules...
donc je ne sais pas comment vous voulez procéder, mais l'idée est là

A+

Merci pour votre aide je changer le code :

Const DestFile As String = "MergedFile.pdf" ' <-- change to suit

par

Dim ligne As Long
Dim DestFile As String
ligne = ActiveCell.Row

    DestFile = Replace(Sheets("DATABASE").Cells(ligne, 1).Value, "/", ".pdf")

sa marche bien mais le probleme que le nom de fichier devient :

exemple : VPM.pdf2570

le .pdf appraitre au milieu de nom de fichier

merci

RQ: je suis débutant en Vba

Bonjour nizar2015

J'ai été également débutant et j'ai énormément bouquiné pour y arriver

Je dis juste réfléchissez à la fonction REPLACE() que vous avez utilisez et comment se présente votre valeur
vous devriez comprendre, du moins je l'espère pour vous.

merci pour votre consignes

ton aide sur la ligne ou le problème j'ai changé la structure plusieurs fois est finalement le bon resulat c'est simple

DestFile = Replace(Sheets("DATABASE").Cells(ligne, 1).Value, "/", "") & ".pdf"

merci