Bonjour,

J'ai regardé sur les fils précédents mais je ne m'en sors pas pour y intégrer correctement le code nécessaire

Dans la macro export ci-joint que je dois optimiser, je souhaite gérer l'erreur "Save As" si le nom du fichier existe déjà et plus particulièrement au niveau du message d'alerte de remplacement si la personne réponds "non" ou "annuler" cela provoque une erreur 1004 (ce qui est logique).
Comment puis-je intégrer correctement des If/Then/Else à ces 2 cas et éventuellement mettre en place une InputBox qui deviendrait le nouveau nom de fichier svp ?

Merci d'avance pour vos conseils !

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub Export()

Sheets(Array("Mode opératoire", "6RECVT-414XYZ")).Select
Sheets("6RECVT-414XYZ").Activate
Application.DisplayAlerts = False

Sheets("6RECVT-414XYZ").Select

Sheets(Array("Mode opératoire", "6RECVT-414XYZ")).Copy
Sheets.Add.Name = "Feuil1"
Sheets("Feuil1").Delete
Application.DisplayAlerts = True
Sheets("6RECVT-414XYZ").Select
Range("B1:B2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("B11:B40").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Range("B6").Select

nomfic = "6RECVT-414XYZ-" & Cells(2, 2) & "-" & Cells(1, 2) & ".xlsx"
'Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & nomfic
'Application.DisplayAlerts = True

ThisWorkbook.Activate
Sheets("MENU").Select
Sheets("Mode opératoire").Select
Rows("1:20").Select
Selection.Copy
Range("A1").Select
Workbooks(nomfic).Activate
Sheets("Mode opératoire").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B1:B2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("A1").Select
ActiveWorkbook.Save

ThisWorkbook.Activate
Sheets("6RECVT-414XYZ").Select
Range("B11:B40").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Range("B6").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Sheets("MENU").Select
Range("A1").Select
ThisWorkbook.Save
MsgBox "Traitement terminé, veuillez compléter le fichier 6RECVT-414XYZ produit par la MACRO sous " & ThisWorkbook.Path, vbInformation, "OVNI CAI SOLDES CN CS_DS"

End Sub