Re : ajoute automatique d'onglet nouveau fichier
Salut Guy,
Dans un module, tu ajoute ce code :
Dim L As Integer, i As Integer, ws As Worksheet
Dim NomClas As String
NomClas = Sheets("Feuil1").Range("B1")
Workbooks.Add
ChDir "D:\Documents and Settings\Administrator\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"D:\Documents and Settings\Administrator\Desktop\" & NomClas & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
AjoutOnglets
Set ws = Workbooks("Classeur1").Sheets("Feuil1")
L = ws.Range("A65536").End(xlUp).Row
For i = 1 To L
If ws.Range("A" & i) = "" Then Exit Sub
Sheets.Add
ActiveSheet.Name = Workbooks("Classeur1").Sheets("Feuil1").Range("A" & i)
Next
Ce qui te creera un nouveau classeur ayant le nom qui est ecrit dans la cellule B1 de la feuil1.
Et pour chaque cellule de la colonne A, il creer une nouvelle feuille et lui attribue le nom inscrit dans la cellule correspondante.
A adapter a tes besoins bien sur.
Pour le reste, fais deja ca et envois le nous en fichier joint.
Bonne journee
Olivier
PS J'oublais, le code en question doit etre attribue a un bouton de preference...