Mini aide sur code VBA

Bonjour,

J'ai un léger soucis sur un code VBA. Le code consiste en gros à imprimer une feuille dans un classeur avec plusieurs onglets et sauvegarder uniquement cette même feuille sur un emplacement réseau. Jusqu’à là tout va bien.

Aujourd'hui j'ai le besoin que mon code VBA copie également un 2eme onglet du classeur nommé "FACTURE 2 PAGES"....

Voici le code actuel :

Sub MACRO6()

Dim extension As String

Dim chemin As String, nomfichier As String

Dim style As Integer

Application.ScreenUpdating = False

Sheets("FACTURE").Copy

extension = ".xls"

chemin = "C:\HistoriqueFRE\"

nomfichier = ActiveSheet.Range("G15") & extension

With ActiveWorkbook

.SaveAs Filename:=chemin & nomfichier

.Close

End With

ActiveSheet.PrintOut Copies:=2

Sheets("CALCUL FACTURE COMPLEMENTAIRE").Select

Range("C1").Select

ActiveSheet.PrintOut

End Sub

Ou et comment insérer la commande ?

merci d'avance

Bonsoir

Aujourd'hui j'ai le besoin que mon code VBA copie également un 2eme onglet du classeur nommé "FACTURE 2 PAGES"....

Les deux feuilles à copier sont dans le même classeur ?

Crdlt

Bonsoir

Oui les deux feuilles sont dans le même classeur

re

essaie ceci :

Sub MACRO6()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer

Application.ScreenUpdating = False
extension = ".xls"
chemin = "C:\HistoriqueFRE\"

With ThisWorkbook
    .Sheets("FACTURE").Copy
    nomfichier = .Sheets("FACTURE").Range("G15") & extension
    .Sheets("CALCUL FACTURE COMPLEMENTAIRE").Copy Before:=ActiveWorkbook.Sheets("FACTURE")
End With

With ActiveWorkbook
    .Sheets("FACTURE").PrintOut
    .Sheets("CALCUL FACTURE COMPLEMENTAIRE").PrintOut Copies:=2
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub

Attention aux espaces dans le nom de feuilles. Remplace les par un souligné --> _

Si ok, clique sur le V vert à coté du bouton Editer pour clôturer le fil lors de ta réponse

Crdlt