Re-Geff !
Regarde la macro qui suit :
Sub sauve()
'
' sauve Macro
' Macro enregistrée le 03/07/2003 par Robin
Range("B10").Select
Selection.Copy
Workbooks.Add
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Robin\Mes documents\Sauve2.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
End Sub
Je viens de la faire avec l'enregistreur de macros, tout simplement.
Il te reste à changer :
-Tes plages de cellules à recopier.
-Le nom du classeur
-Le chemin de rangement, de ce nouveau classeur
-Application.ScreenUpdating=False en début et idem = True en fin, de macro
Et si tu voulais que le nouveau nom de classeur soit automatiquement généré, je te rajoute une partie de macro :
'Sauvegarde du classeur sous le nom écrit dans la cellule B2 de la feuille 2
Sheets(2).Select
ActiveWorkbook.SaveAs Range("B2").Value
à mettre à la place de :
ActiveWorkbook.SaveAs Filename
Ceci te permet, de mettre un nom identique de classeur en changeant la fin.
Tu peux mettre un compteur quelconque dans une cellule cachée, puis dans une autre cellule, le nom de ton classeur, puis enfin dans une troisième tu concatène le nom + le compteur.
De cette façon tout est entièrement caché à l'utilisateur.
Pour répondre à ta question sur la fonction "Application.ScreenUpdating", Non cette fonction ne minimise pas le classeur.
Screen = Ecran, Updating = Mise à jour ou rafraîchissement, comme tu veux.
En fait cette fonction fige l'écran, tout simplement, mais n'empêche pas les macros ou fonctions d'avoir lieu.
@ +
Moa
