Copye feuille dans nouveau fichier

[jhofman]

Bonjour


Quel est le code qui permet à partir d'une séléction de feuille d'un premier classeur de créer un nouveau classeur excel et d'y copier les feuilles initialement sélectionnées ?

Merci

 

[Efgé]

Re : Copye feuille dans nouveau fichier

Bonjour,
Pour avoir le code, il suffit d'utiliser l'enregistreur de macro.
Outil / Macro/ nouvelle macro/
faire l'action désirer, puis arréter l'enregistrement.
Le code se trouve dans l'éditeur VBA (Alt + F11).
Ca devrait ressembler à ça:

Sub Macro11()
'
' Macro11 Macro
'
Sheets("Feuil2").Select
Sheets("Feuil2").Copy
End Sub

Cordialement

 

[jhofman]

Re : Copye feuille dans nouveau fichier

exact Efgé

c'est ce que j'avais fait mais à la lecture du code je me demandais s'il ne manquait pas un chouilla de code.... et bien non cela suffit.
Merci

 

[jhofman]

Re : Copye feuille dans nouveau fichier

en fai j'ai sélectionné plusieurs sheets : et ne sait comment continuer ...

Sub recopie()
isheetMaxi = Sheets.Count
Sheets(1).Select True
derniereFeuilleAcopier = 0
For i = 1 To isheetMaxi - 1
    If Sheets(i).Name = "FIN" Then
        derniereFeuilleAcopier = i
    End If
Next i
For i = 1 To derniereFeuilleAcopier - 1
    Sheets(i).Select False
Next i
'Selection.Copy
End Sub

 

[Efgé]

Re : Copye feuille dans nouveau fichier

Bonjour,
Pardon pour le retard réponse,
Pour sélectionner et copier plusieurs feuilles on peut utiliser ce code:
Sheets(Array("Feuill1", "Feuill2", "etc...")).Select
ActiveWindow.SelectedSheets.Copy
en espérant que vous pourrez l'adapter...
Cordialement

 

[jhofman]

Re : Copye feuille dans nouveau fichier

bonjour Efgé

effectivement tu as raison mais dans ce acs le code est figé et al suppression d'un onglet ou le changement de nom ne sont pas pris en compte par ta formule.
cdlt

 

[Efgé]

Re : Copye feuille dans nouveau fichier

Bonjour,
Un idée en l'air:
Vous pouvez copier le classeur sous un nouveau nom et ensuite supprimer les feuilles "en trop" dont vous connaissez le nom.
Encore une foi c'est une idée en l'air.
Cordialement