Copier un document PDF et le renommer avec une textbox

[olivowitch]

Bonjour,

Je souhaiterai à partir d'une Macro, copier un document modèle.pdf (qui aura toujours le même nom et qui sera toujours au même chemin) et nommer la copie avec les termes présents dans une textbox et ranger la copie renommée dans un autre dossier DossierDesCopies.

J'imagine qu'il faut utiliser des codes type :
"SaveCopyAs"
Shell PathName:="C:\chemin\AcroRd32.exe C:\Users\chemin\modèle.pdf", windowstyle:=1
Mais je n'arrive pas à combiner ce que je veux.

Merci et bonne journée

 

[PMO2]

Re : Copier un document PDF et le renommer avec une textbox

Bonjour,

Une piste avec l'exemple de code suivant à copier dans un module standard.
Les constantes cernées par des ### sont à adapter selon votre usage.

'### Constantes à adapter ###
Const SOURCE As String = "C:\modèle.pdf"
Const DIR_DEST As String = "C:\DossierDesCopies"
'############################

Sub CopieFichierPDF()
Dim FSO As Object
Dim Fichier As Object
Dim Dossier As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(SOURCE) Then
  MsgBox "Le fichier " & SOURCE & " n'existe pas."
  Exit Sub
End If
If Not FSO.FolderExists(DIR_DEST) Then
  Set Dossier = FSO.CreateFolder(DIR_DEST)
End If
FSO.CopyFile SOURCE, DIR_DEST & "\" & "CopiePDF.pdf", True
'pour votre cas      FSO.CopyFile SOURCE, DIR_DEST & "\" & TextBox1 & ".pdf", True
End Sub

Cordialement.

PMO
Patrick Morange

 

[olivowitch]

Re : Copier un document PDF et le renommer avec une textbox

Salut PM02.

Merci de ton aide!

Bonne journée

Olivowitch