title: Save an Excel file and export it to pdf with a different sheet
body: <p>I have never written VBA code, but I checked on internet for some information.</p>
  
  <p>My wish is the following: I have an Excel file with 3 sheets. On one of them, I'd like to add one button which can:</p>
  
  <ol>
  <li>Save the totality of my Excel file following this naming convention: <code>[name of a cells of a page]_AP_[date of today].xls</code>.</li>
  <li>Save one of the sheets in a .pdf file.</li>
  <li>Print 2 of the 3 sheets while adjusting the contents. </li>
  </ol>
  
  <p>I already started something, but I'm really bad at programming:</p>
  
  <pre><code>Public Sub Savefile_Click() 'copie sauvegarde classeur
  
  ' save my file following a name
  Dim nom As String
  Dim chemin As String
  Dim wSheet As Worksheet
  
      chemin = "C:\Users\aaa\Desktop"
      nom = [Q13].Value &amp; "_" &amp; Day(Date) &amp; "-" &amp; Month(Date) &amp; "-" &amp; Year(Date) _
            &amp; ".xlsm"
     With ActiveWorkbook
      .SaveAs Filename:=chemin &amp; nom
      .Close
      rep = MsgBox("Fichier excell sauvegardé")
      End With
  
  ' ... and print my active sheet (where the button will stay)
  For Each wSheet In ActiveWorkbook.Worksheets
  If wSheet.Visible Then wSheet.PrintOut
  Next
  
  'Save my page 'offre' in pdf on my desktop and print it
     Worksheets("OFFRE A ENVOYER").Range("A1:i47").ExportAsFixedFormat _
      Type:=xlTypePDF, _
      Filename:=[Q13].Value &amp; "_Offre de prix", _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
  
  End Sub
  </code></pre>
  
  <p>After that there will be another option and details, but this is really the base.</p>