Modif code pour copie feuil

Question

Bonjour m3ellem1 je reviens vers toi au sujet de mon fichier dont tu as résolu le format monétaire. j’essaie de résoudre un autre souci sur la macro du bouton DEVIS EXCEL J'ai ce code : (qui fonctionne bien mais qui me copie uniquement la feuil DEVIS et je voudrai également qu'il copie la feuil FACTURE pour que je puisse reprendre le nouveau classeur copié ou je retrouverai ces deux feuil afin d’éditer la facture par la suite) Sub DEVIS_MacroEXCEL() Dim extension As String Dim Chemin As String, nomfichier As String Dim style As Integer ThisWorkbook.ActiveSheet.Copy je ne sais pas comment modifier cette ligne je ne voudrai pas bousiller le reste du code c'est trop compliquer pour moi extension = ".xlsm" Chemin = "D:\WILLY\Devis-Factures-2019\DEVIS-EXCEL\" 'MsgBox ThisWorkbook.Path nomfichier = " - Devis N°" & Range("F2") & " - " & Range("F9") & " - " & "Client N° " & Range("H2") & " - " & Format(Now, " dd-mm-yy") & extension ' & extension With ActiveWorkbook 'ActiveSheet.Copy 'ActiveWorkbook.SaveAs Filename:=nomfichier 'ActiveWorkbook.Close '.DrawingObjects(1).Delete .SaveAs Filename:=Chemin & nomfichier, FileFormat:=52 .Close End With End Sub...

i20100 · Answer

A tester, Sheets(Array("DEVIS", "FACTURE")).Copy...

m3ellem1 · Answer

Re,

Sub DEVIS_MacroEXCEL()

Dim extension As String
Dim Chemin As String, nomfichier As String
Dim style As Integer

Application.ScreenUpdating = False
'ThisWorkbook.ActiveSheet.Copy
Worksheets(Array("DEVIS", "FACTURE")).Copy
'extension = ".xlsm"
Chemin = "D:\WILLY\Devis-Factures-2019\DEVIS-EXCEL\"
'MsgBox ThisWorkbook.Path
nomfichier = " - Devis N°" & Range("F2") & " - " & Range("F9") & " - " & "Client N° " & Range("H2") & " - " & Format(Now, " dd-mm-yy")
' & extension
With ActiveWorkbook
   'ActiveSheet.Copy
    'ActiveWorkbook.SaveAs Filename:=nomfichier
    'ActiveWorkbook.Close

      '.DrawingObjects(1).Delete
      .SaveAs Filename:=Chemin & nomfichier, FileFormat:=52
      .Close
End With
End Sub

oups i20100 était plus raide