Enregistrer une feuille d'un classeur dans un autreRésolu

Question

Bonjour à toutes et tous,

Encore un petit problème à soumettre aux membres du forum :
J'aurai besoin d'enregistrer une feuille d'un classeur excel dans un autre classeur qui serait créer par la même occasion. Le tout via une macro en vba. J'ai bien trouvé quelque chose mais cela me renvoi une erreur code 1046 je crois.

Pourriez-vous m'aider svp ?

D'avance merci et bonne journée.

philguejr · Accepted Answer

merci beaucoup, j'essaie ce soir.
Il semblerait que c'est ce que voulais.

Bonne journée.

artgile · Answer

Bonsoir,

Vite fait j'ai pas le temps pour le moment pour les explications.
A toute à l'heure peut-être....

Cordialement, JML

Sub Macro()
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select
    Windows("Classeur1").Activate
    Application.CutCopyMode = False
    Range("A1").Select
End Sub




"Ce que tu garde est perdu à jamais, ce que tu donne est à toi pour toujours " (E.E.Schmitt)

artgile · Answer

Re-bonsoir

Voilà une voie de recherche, avec des commentaires cette fois ci (c'est plus digeste...) :

'=================== SOLUTION 1

Sub Poisson()
    Cells.Select		'Sèlectionne la totalité de la feuille  active du Classeur source
    Selection.Copy		'Copie dans le presse papier le contenu de la feuille active
    Workbooks.Add		'Crée un nouveau classeur nommé  'Classeur_N' , N étant le nombre de classeur actif +1 
    Cells.Select		'Sèlectionne la feuille active du nouveau classeur (ici la feuille 1)
    ActiveSheet.Paste		'Colle le contenu de la feuille source dans la feuille active du nouveau classeur
    Range("A1").Select	'Sèlectionne la cellule A1 afin de dessèlectionner la feuille du nouveau classeur
    Windows("Classeur1").Activate	'Active le Classeur source
    Application.CutCopyMode = False	'Désactive la copie de la feuile source
    Range("A1").Select	'Sèlectionne la cellule A1 
End Sub

'=================== SOLUTION 2
Option explicit

Dim Chemin As String
Dim NomClasseur As String
Dim NbClasseur As String

Sub Poisson()
    Chemin = "C:\Users\HP\Desktop"    
    	'----------------- IDEM solution 1
    Cells.Select	
    Selection.Copy
    Workbooks.Add
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select
    	'------------------

    NbClasseur = Workbooks.Count	'Compte le nombre de classeurs ouverts
    NomClasseur = "UnNomApproprié" & NbClasseur & ".xls"	'Défini un nom de classeur
'Sauve  le classeur aprés copie des données
    ActiveWorkbook.SaveAs Filename:=Chemin & NomClasseur, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

'----------------- IDEM solution 1
    Windows("Classeur1").Activate
    Application.CutCopyMode = False
    Range("A1").Select
    	'-----------------

    Windows(NomClasseur).Activate 	'Active le classeur crée
End Sub



"Ce que tu garde est perdu à jamais, ce que tu donne est à toi pour toujours " (E.E.Schmitt)

Enregistrer une feuille d'un classeur dans un autre

3 réponses

Votre réponse

Discussions similaires