Discussion :

[Gualino]

Bonjour à tous,

Je suis débutant en programmation.

Voilà j'ai créer une macro qui export des valeurs issuent de plusieurs pages sous une feuille simple

La macro se finit par une demande d'enregistrement.

Je voudrais faire quelques améliorations:

-Conserver le format de couleur et bordure des cellules
-Ne jamais faire apparaître la feuille nouvellement créer, seulement la sauvegarder. (Pour l'instant elle apparait au moment de la sauvegarde et rest ouverte ensuite.)
-Faire commencer par [Front] le nom de sauvegarde, mais laisser à l'utilisateur le nom final et l'adresse.

Voici le code et 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
Private Sub front_suspension_out_but_Click()
 
Dim F_choice As Single
 
F_choice = 1
 
Dim copie As Workbook
 
Application.ScreenUpdating = False
 
    Worksheets("Front suspension").Range("A1:H34").Copy
    Worksheets("Double A-Arm").Range("A1").PasteSpecial 12
 
If F_choice = 1 Then ' Front_U Macro
    Worksheets("ARB+Ref.pts+comments").Range("A3:H9").Copy
    Worksheets("Double A-Arm").Range("A35").PasteSpecial 12
 
    Worksheets("ARB+Ref.pts+comments").Range("A34:H53").Copy
    Worksheets("Double A-Arm").Range("A42").PasteSpecial 12
End If
 
If F_choice = 2 Then ' Front_T Macro
    Worksheets("ARB+Ref.pts+comments").Range("A11:H19").Copy
    Worksheets("Double A-Arm").Range("A35").PasteSpecial 12
 
    Worksheets("ARB+Ref.pts+comments").Range("A34:H53").Copy
    Worksheets("Double A-Arm").Range("A44").PasteSpecial 12
End If
 
If F_choice = 3 Then ' Front_T_3rd Macro
    Worksheets("ARB+Ref.pts+comments").Range("A21:H32").Copy
    Worksheets("Double A-Arm").Range("A35").PasteSpecial 12
 
    Worksheets("ARB+Ref.pts+comments").Range("A34:H53").Copy
    Worksheets("Double A-Arm").Range("A47").PasteSpecial 12
End If
 
Set copie = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Double A-Arm").Copy Before:=copie.Sheets(1)
Application.DisplayAlerts = False
copie.Sheets(2).Delete
Application.DisplayAlerts = True
 
Application.ScreenUpdating = True
 
Application.Dialogs(xlDialogSaveAs).Show
 
End Sub

[helas]

Bonjour,
copier et conserver le format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Worksheets("Double A-Arm").Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

pour fermer le classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Worksheets("Double A-Arm").Close

pour la sauvegarde je préconise

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
 
Function SelectionFichier() As String
 Dim fd As FileDialog, v As Variant,n As Long
 Set fd = Application.FileDialog(msoFileDialogSaveAs)
 With fd
  .Title = "Sauvegarde"
  If .Show Then
   For Each v In .SelectedItems
    SelectionFichier = v
   Next v
  End If
 End With
 n = InsTrRev(SelectionFichier,"\")
 SelectionFichier = Left$(SelectionFichier ,n) & "[Front]" & Mid$(SelectionFichier ,n+1)
End Function

à utiliser ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.Dialogs(xlDialogSaveAs).Show

serait remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 fichier=SelectionFichier
 Worksheets("Double A-Arm").saveAs fichier

Si je n'ai pas fait d'erreur, cela te présente une façon de traiter ces problèmes