Discussion :

[carte_blanche]

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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim nom As String
    nom = "Facture EDF_" & "_" & ThisWorkbook.Name
    CopySheetSaveAs ThisWorkbook.Sheets("BD BLS"), ThisWorkbook.Path & "\Factures_EDF\" & nom
    rep = MsgBox("Votre facture est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
 
End Sub
Sub CopySheetSaveAs(Feuille As Worksheet, Classeur As String)
Dim Wb As Workbook
Set Wb = Workbooks.Add
  Feuille.Copy Wb.Sheets(1)
   Wb.Sheets(1).Name = Feuille.Name
   If Dir(Classeur) <> "" Then Kill Classeur
   Wb.SaveAs Classeur
   Wb.Close flase
End Sub

[carte_blanche]

Merci rdurupt,

Cependant, j'ai du mal à adapter le script "CopySheetSaveAs" à mon fichier. Il ne fonctionne pas chez moi.

[Invité]

tu n'as rien à adapter juste à copier coller?

je ne donne jamais de source sans les tester!

ton répertoire "\Factures_EDF\" existe bien
sur quel ligne est l'erreur?

[carte_blanche]

J'ai un message d'erreur qui s'affiche : "Erreur d’exécution '9' : L'indice n'appartient pas à la sélection

Et en cliquant sur Débogage, la ligne suivante est surlignée en jaune :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CopySheetSaveAs ThisWorkbook.Sheets("BD BLS"), ThisWorkbook.Path & "\Factures_EDF\" & nom

EDIT: Et oui, le répertoire "\Factures_EDF\" existe bien.

[Invité]

je ne suis pas sur que ton onglet s'appel "BD BLS" qui est mon classeur d'exemple mais sans doute "ETAPE 2 - Factures EDF"