copie classeur sans formule en vba

[excel_lence]

salut t le monde,
je voudrai modifier le code ci dessous.
ce code me permet de faire des sauvegarde en XLSM et XLS en meme temps avec le meme nom de fichier et le meme emplacement ( adresse) ,le tout automatiquement.
le hic est que des fois, pour diverses raisons, j'ai pas envie de sauvegarder, il le fait quant meme malgré que dans la boite de dialogue je clique sur "non" il sauvegarde quand meme le deux fichier ( XLS & XLSM ).

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim n%, chemin$, fichier$
If Val(Application.Version) < 12 Or Right(Me.Name, 4) = ".xls" Then Exit Sub
Me.Save 'sauvegarde
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier .xls existe déjà
With Application
n = .SheetsInNewWorkbook
.SheetsInNewWorkbook = Me.Worksheets.Count
Workbooks.Add 'nouveau document
.SheetsInNewWorkbook = n
End With
With ActiveWorkbook
For n = 1 To .Worksheets.Count
With .Worksheets(n)
Me.Worksheets(n).Cells.Copy .Cells
.UsedRange = .UsedRange.Value
.Name = Me.Worksheets(n).Name
End With
Next
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = Left(Me.Name, Len(Me.Name) - 5) & ".xls"
.SaveAs chemin & fichier, 56
.Close
End With
End Sub

 

[excel_lence]

Re : copie classeur sans formule en vba

salut job75,

cette discussion avec vous a était très bénéfique pour moi car vous m'avez donné plusieurs choix par vos messages et liens et que je vais utilisé dans le futur et c'est grâce à vous que le vba m’intéresse encore plus sauf que c'est encore un peu du charabia mais je pense pouvoir être capable de faire mes propres codes.

A+

 

[excel_lence]

Re : copie classeur sans formule en vba

merci pour tout

 

[excel_lence]

Re : copie classeur sans formule en vba

salut tout le monde et particulierement JOB75
Je reviens à ce fil pour un autre petit détail
Voilà, je voudrais faire une modification sur fichier joint du #30 de facon à faire des copies seuelemnt des onglets que j'aurai auparavant choisi dans le code, par exemple OV, Termes Contrat ...ect
Merci d'avance.