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"

[carte_blanche]

Ah oui en effet.

Mais du coup, j'ai 3 autres problèmes qui apparaissent.

1) J'ai un autre message d'erreur qui s'affiche : Erreur d'exécution '1004' : Les projets VB et les feuilles XLM ne peuvent pas être enregistrés dans une feuille sans macros. en cliquant sur débogage, j'ai la ligne ci-dessous qui est surlignée

Code :

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

Wb.SaveAs Classeur

2) Le nouveau fichier s'ouvre sous le nom "Classeur". Alors que j'avais spécifié le nom du fichier dans la variable "nom". De plus, je ne veux pas que ce fichier s'ouvre mais qu'il s'enregistre directement dans le chemin spécifié.

3) Le fichier ne s'enregistre pas dans le chemin spécifié. Quand j'active la macro, le nouveau fichier s'ouvre et puis je dois l'enregistrer sous manuellement.

[Invité]

ton fichier change de nom quand tu l'enregistre!

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
17
18
19
 
Private Sub CommandButton1_Click()
Dim nom As String
    nom = "Facture EDF_" & "_" & Split(ThisWorkbook.Name, ".")(0) & ".xlsx"
    CopySheetSaveAs ThisWorkbook.Sheets("ETAPE 2 - Factures EDF"), 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
   Application.DisplayAlerts = False
   Wb.SaveAs Classeur, FileFormat:=xlOpenXMLWorkbook
   Application.DisplayAlerts = True
   Wb.Close flase
End Sub

[carte_blanche]

C'est exactement ce que je veux.

Merci de m'avoir accordé ton temps.

Bonne journée à toi !