copie d'un onglet dans un nouveau fichier

[MrGweg]

Bonjour à tous!

j'ai besoin d'aide pour écrire une macro.
elle doit:
-sélectionner un onglet précis
-copier uniquement le contenu de cet onglet dans un nouveau fichier excel en générant le nom de ce nouveau fichier avec le contenu d'une cellule.

Merci d'avance de votre aide!!

Gweg.

 

[job75]

Re : copie d'un onglet dans un nouveau fichier

Bonjour MrGweg, bienvenue sur XLD,

Voyez cette macro, à adapter bien sûr :

Sub NouveauFichier()
Workbooks.Add 'crée un nouveau document
ThisWorkbook.Sheets("TOTO").Cells.Copy Cells
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("TITI").Range("A1") & ".xls" 'chemin d'accès, feuille et cellule à adapter
ActiveWorkbook.Close 'si l'on veut fermer le nouveau classeur
End Sub

A+

 

[MrGweg]

Re : copie d'un onglet dans un nouveau fichier

Merci Beaucoup Job75!!
c'est exactement ce qu'il me fallait.
ça marche impec.