Bonoir à tous,
j'ai une macro qui fonctionne très bien, 'merci à PatrickToulon et Stapple1600), mais je souhaite avec le même bouton, pouvoir enregistrer aussi en xlsm et fermer le classeur
voici la macro en xlsx,
Private Sub CommandButton5_Click()
Dim NOM_PRECIS$, vEMPLACEMENT$, messheets
Application.EnableEvents = False
messheets = Array("Feuil1", "Feuil2", "Feuil5") 'mettre les noms de sheets que tu veux ici
If Sheets("V3").Range("G27") = "" Then
If MsgBox("Vous devez préciser le nom du client !", vbOKOnly + vbInformation, "vous informe") = vbAbort Then Exit Sub
Else
NOM_PRECIS = Sheets("V3").Range("G27").Value & "_" & Format(Now, "dd-mm-yyyy") & ".xlsx"
vEMPLACEMENT = ThisWorkbook.Path & "\"
Sheets(messheets).Copy ' a pour effet de copier les sheets dans un new classeur
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs vEMPLACEMENT & NOM_PRECIS
.Close
End With
End If
'peut on fermer aussi le xlsm <<!!sans fermer Excel ?>>!!
'ben...
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub
un grand merci pour votre aide