Bonjour, j'aimerais sauvegarder un fichier en pdf avec un nouveau nom venant d'une textbox.
Au préalable j'ai déjà effectué une copie papier de ce document. Voici mes codes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 Rem Impression des feuilles de contrôle 1 et 2
          Rem copie papier
 
Worksheets("IMP").Select
    Application.ActivePrinter = "HP LaserJet 5100 reseau sur Ne04:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, ActivePrinter:= _
    "HP LaserJet 5100 reseau sur Ne04:", Collate:=True
 
           Rem copie pdf
   Application.ActivePrinter = "PDFCreator sur Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne01:", Collate:=True
Donc pour résumer j'aimerais remplacer le nom du fichier pdf avec le contenu d'une textbox c:\monchemin\anciennom.pdf par c:\monchemin\nouveaunom_textbox.pdf

Merci pour votre aide