Bonjour le forum et tout mes meilleurs à vous pour cette nouvelle année
J'ai une petite question à vous poser
Je me sert un bout de code en VBA, ci-dessous, pour sauvegarder mon classeur.
Mon soucis c'est que je ne veux pas basculer sur le classeur sauvegarder, donc pouvoir resté sur classeur initial après le ".SaveAs"
Est-ce possible ?
En vous remerciant,
Cordialement.
J'ai une petite question à vous poser
Je me sert un bout de code en VBA, ci-dessous, pour sauvegarder mon classeur.
Mon soucis c'est que je ne veux pas basculer sur le classeur sauvegarder, donc pouvoir resté sur classeur initial après le ".SaveAs"
Code:
Private Sub CommandButton2_Click()
Dim PatchEtNomXLS As String
Dim Bureau As String
Bureau = CreateObject("WScript.Shell").SpecialFolders("Desktop")
NumNDFxls = Sheets("NDF").Range("J2").Value
PatchEtNomXLS = Bureau & "\" & "Note de frais N° " & NumNDFxls
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs Filename:=PatchEtNomXLS, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End With
Application.DisplayAlerts = True
Unload UserForm
End Sub
Est-ce possible ?
En vous remerciant,
Cordialement.