Bonjour à tous,

Voilà, je cherche à copier une feuille d'un classeur Excel et le sauvegarder dans un dossier.
Je suis débutant sur VBA, j'ai pu établir le code ci dessous. Cependant, il me copie tout le classeur et non la feuille "Etape 2 - Factures EDF".

Je cherche donc un peu d'aide pour corriger mon code.

Je vous remercie par avance.

Bien à vous.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Public Sub CommandButton1_Click()
Dim nom As String
    nom = "Facture EDF_" & Sheets("ETAPE 2 - Factures EDF").Range("C4") & "_" & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\Factures_EDF\" & nom
    rep = MsgBox("Votre facture est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
 
End Sub