title: VBA Save a Workbook
body: <p>There is my code where I try to Save a Workbook in a specific place:</p>
  <pre><code>Private Sub zouzou()
  
      Nom = Cherche(&quot;Z:\3_BASE\WORK\BD\01 - PRODUCTION\&quot; &amp; SE &amp; &quot;\&quot; &amp; Batch &amp; &quot;\&quot; &amp; TMD &amp; &quot;\01 - ANALYSE IMPACT\&quot;)
      
      FDP = &quot;Z:\3_BASE\WORK\BD\01 - PRODUCTION\&quot; &amp; SE &amp; &quot;\&quot; &amp; Batch &amp; &quot;\&quot; &amp; TMD &amp; &quot;\01 - ANALYSE IMPACT\&quot; &amp; Nom
      
      Enregistrement FDP, Nom
  
  End Sub
  </code></pre>
  <pre><code>Private Sub Enregistrement(Chemin, Nom)
      
      DossierConcat = &quot;Z:\3_BASE\WORK\BD\01 - PRODUCTION&quot; &amp; SE &amp; &quot;\&quot; &amp; Batch &amp; &quot;\&quot; &amp; TMD &amp; &quot;\99 - AS DATA VERIFICATION\Input\&quot;
     
      Set WB1 = Workbooks.Open(Chemin)
      
      WB1.SaveAs Filename:=DossierConcat &amp; Nom
      
      Workbooks(Chemin).Close False
      
  End Sub
  </code></pre>
  <p>My code work until the line <code> WB1.SaveAs Filename:=DossierConcat &amp; Nom</code></p>
  <p>Nom = <code>ZOZOT.xlsx</code>
  And I get error message:</p>
  <blockquote>
  <p>&quot;Runtime Error '1004': Method 'SaveAs' of object '_Workbook' failed&quot;</p>
  </blockquote>
  <p>I don't understand why I got this message, any ideas?</p>