Enregistrer sous une feuille d'un classeur sans les autres feuilles

[choupi_nette]

Bonjour,
Je voudrais enregistrer une feuille nommée "Result" dans un autre classeur
J'arrive avec le classeur entier mais pas la feuille individuellement
L'enregistrement devra se faire selon le nom de fichier inscrit case J4 d'une autre feuille nommée "Bdd"
J'ai le code suivant
Quelqu'un peut m'aider à adapter ? Merci pour votre aide

Sub enregistrer_classeur()
Dim chemin As String
Dim fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & Range("J4") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier
End Sub

 

[Pierrot93]

Re : Enregistrer sous une feuille d'un classeur sans les autres feuilles

Bonsoir,

essaye comme ceci :

Option Explicit
Sub enregistrer_classeur()
Dim chemin As String
Dim fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & Sheets("Bdd").Range("J4") & ".xls"
Sheets("Result").Copy
ActiveWorkbook.SaveAs Filename:=fichier
End Sub

bonne soirée
@+

 

[Guest]

Re : Enregistrer sous une feuille d'un classeur sans les autres feuilles

Bonjour,

Avec la méthode Copy de l'objet Worksheet:

    Dim chemin As String
    Dim fichier As String
    chemin = ThisWorkbook.Path
    fichier = chemin & "\" & Range("J4") & ".xls"
    ThisWorkbook.Sheets("Result").Copy
    ActiveWorkbook.SaveAs Filename:=fichier

A+
[Edit] Hello Pierrot toujours synchro🙂

 

[choupi_nette]

Re : Enregistrer sous une feuille d'un classeur sans les autres feuilles

Merci ca fonctionne
Excellente soiree a vous 2
Merci