Bonjour ,

Présentation du sujet:
Je souhaite faire une macro qui sauvegarde, un copié collé en valeur et en format de deux onglets de mon fichier. Puis qu'elle donne un nom à ce fichier sauvegarder et le ferme.

Mon problème:
Ma macro tourne bien seulement je dois la modifier à chaque fois que je fais un test, en effet le nouveau classeur crée s'appelle "classeur7.xls" puis "classeur8.xls"
comment puis je faire pour remedier à ce eptit problème.

Voici le code que j'utilise:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Enregi_V3()  
Dim Nomfichier As String
Dim Emplacement As String 
  
Emplacement = ActiveWorkbook.Sheets(1).Range("C76" )
Nomfichier = ActiveWorkbook.Sheets(1).Range("C77" ) 
  
   Workbooks.Add
    Windows("FichierSource.xls" ).Activate
    Range("A1:J62" ).Select
    Selection.Copy
    Windows("Classeur7" ).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("FichierSource.xls" ).Activate
    Sheets("ONGLET1" ).Select
    Range("A1:89" ).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Classeur7" ).Activate
    Sheets("ONGLET2" ).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("ONGLET1" ).Select
    Application.CutCopyMode = False
    ChDir _
        Emplacement
    ActiveWorkbook.SaveAs Filename:= _
        Emplacement & "\" & Nomfichier _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Windows("FichierSource.xls" ).Activate
    Sheets("ONGLET1" ).Select
    Range("A2" ).Select
    
Application.Workbooks(Nomfichier & ".xls" ).Save
Application.Workbooks(Nomfichier & ".xls" ).Close
    
End Sub
Je vous remercie de votre et si vous estimez que mon programme peut être améliorer n'hésitez pous vos remarques !!

LeSqual