XL 2016 Enregistrer feuille active dans un autre classeur

  • Initiateur de la discussion Initiateur de la discussion sams96
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sams96

XLDnaute Nouveau
Bonjour à Tous ,
j'ai un classeur nommé " classeur 1" , dans ce classeur j ai une macro , mon problème est le suivant :
Quand j active ma macro , mes résultats s'affichent sur la feuille 1 ,
une fois que ces résultats s affiche , je veux crée une copie de ses résultats dans un autre classeur et sous un autre nom en utilisant "Application.GetSaveAsFilename"
sans modifier le nom de mon "classeur 1"

j 'ai essayé plusieurs fois mais j arrive pas à trouver mon erreur ,

Voila le code que j ai essayé d'appliquer , mais ça marche pas :

'Save the workbook
ActiveWorkbook.SaveAs Filename

Dim ActSheet As Worksheet
Dim ActBook As Workbook
Dim CurrentFile As String
Dim NewFileType As String
Dim NewFile As String
'Variable declaration
Dim sOldFile As String
Dim sNewFile As String
Application.ScreenUpdating = False ' Prevents screen refreshing.

CurrentFile = ThisWorkbook.FullName

NewFileType = "Excel Files 1997-2003 (*.xls), *.xls," & _
"Excel Files 2007 (*.xlsx), *.xlsx," & _
" Excel Files 2016 (*.xlsx), *.xlsx," & _
"All files (*.*), *.*"

NewFile = Application.GetSaveAsFilename( _
InitialFileName:=NewFileName, _
fileFilter:=NewFileType)

If NewFile <> "" And NewFile <> "False" Then
ActiveWorkbook.SaveAs Filename:=NewFile, _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
Set ActBook = ActiveWorkbook
Workbooks.Open CurrentFile
sOldFile = popo & "\" & "Classeur1.xlsm"

sNewFile = popo & "\" & "Classeur1.xlsm"
ActBook.Close
End If

Application.ScreenUpdating = True


End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
70
Réponses
3
Affichages
508
Réponses
10
Affichages
469
Retour