Bonjour,

Je suis actuellement en apprentissage et je ne connais strictement rien au VBA, j'essaie de m'y mettre difficilement par moi-même.

J'ai un fichier sur lequel on désire enregistrer des feuilles dans un dossier, le problème est que la macro rentrée ne fait qu'un copier/coller de cette feuille, ce qui fait qu'à chaque clic, le fichier écrase l'ancien. Plutôt que de devoir déplacer tous les jours les feuilles et les renommer, j'aimerai savoir si je peux faire autrement? Comme utiliser SaveAs ou une macro archivage ?

Étant donné que je ne connais rien, je ne comprend même pas la macro qui a été entrée dans le fichier

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
45
46
47
48
Sub enregistrementFDS()
'
 
' Macro24 Macro
'
Dim v_chemin As String
Dim v_fichier As String
 
Application.ScreenUpdating = False
 
v_chemin = Sheets("TBO").Range("E16").Value
v_fichier = Sheets(TBO").Range("E17").Value
 
'Windows("FDS.xls").Activate
   Sheets("S").Select
    ChDir _
       v_chemin
    Workbooks.Open Filename:= _
         v_chemin & "\" & v_fichier
    Sheets.Add
    Windows("Fichier_A.xls").Activate
    Range("A5:AF5").Select
    Selection.Copy
    Windows(v_fichier).Activate
    ActiveSheet.Paste
    Rows("2:2").RowHeight = 58.5
    Rows("2:2").RowHeight = 75
    Columns("A:U").Select
    Selection.ColumnWidth = 6.29
    ActiveWindow.LargeScroll ToRight:=-1
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    Selection.ColumnWidth = 4.43
    Selection.ColumnWidth = 6.14
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Windows("Fichier_A.xls").Activate
    Range("A6:AG1000").Select
    Application.CutCopyMode = False
    Selection.Cut
    Windows(v_fichier).Activate
    Range("A3").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
 
    Application.ScreenUpdating = True
End Sub

Merci d'avance !