Copie d'un onglet dans un fichier

bonjour Milano,

voici un exemple,

Sub Macro1()
X = InputBox("Entrer le chemin complet du répertoire pour la sauvegarde", "Sauvegarde", "c:zaza")
Y = InputBox("Entrer le nom du répertoire pour la sauvegarde", "Répertoire", "lili")
For Each f In Sheets
Sheets(f.Name).Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
ChDir X
ch = X & "" & f.Name & "_" & Y & ".xls"
ActiveWorkbook.SaveAs Filename:=ch, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _
CreateBackup:úlse
ActiveWorkbook.Close
Next
End Sub

isabelle

Bonjour à tous,
J'ai un fichier contenant 30 onglets que je souhaite copier (pas les
formules) dans un répertoire.Donc j'aurai 30 nouveaux fichiers.
La macro devra me demander le nom du nouveau répertoire et chaque fichier
copié dans le répertoire doit avoir comme nom:nom onglet_nom du répertoire.
Merci à tous

Bonjour,

Sub CopieOngletsClasseurs()
répertoire = InputBox("Chemin?", "Sauvegarde onglets",
ThisWorkbook.Path & "sauv")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
Application.DisplayAlerts = False ' supprime les messages
d'avertissement si le fichier existe déjà
For s = 1 To Sheets.Count
Sheets(s).Copy
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
ActiveWorkbook.SaveAs Filename:=répertoire & "" & Sheets(1).Name
ActiveWorkbook.Close
Next s
End Sub

JB

Bonjour à tous,
J'ai un fichier contenant 30 onglets que je souhaite copier (pas les
formules) dans un répertoire.Donc j'aurai 30 nouveaux fichiers.
La macro devra me demander le nom du nouveau répertoire et chaque fichi er
copié dans le répertoire doit avoir comme nom:nom onglet_nom du rép ertoire.
Merci à tous