Fonction GetSaveAsFilename pour enregistrer une extraction

Question

Bonjour le Forum,

Je voulais extraire les résultats de tableau filtre dans un nouveau classeur Excel avec la fonction GetSaveAsFilename mais j’obtiens aucun résultat ???

Pourriez-vous m'aider SVP, ci-après le code ainsi que le fichier

Sub Save_Doc()

Dim Plage
Dim MonClasseur As Workbook

Application.EnableEvents = False
Application.ScreenUpdating = False

Plage = ListeFichier = Application.GetSaveAsFilename(fileFilter:="Fichiers Excel (*.xls*),*xls*", Title:="Fichier ERP à Importer", ButtonText:="Importer")

If Plage <> False Then
With Feuil1
Set Plage = .Range("B2").CurrentRegion
Set MonClasseur = Workbooks.Add

Plage.SpecialCells(xlCellTypeVisible).Copy ActiveWorkbook.ActiveSheet.Range("A1")
Application.DisplayAlerts = False

Range("A1").Select
ActiveCell.CurrentRegion.EntireColumn.AutoFit

ActiveWorkbook.Close , False

End With
Application.EnableEvents = True

End If

MsgBox "Extraction faite"

End Sub

6fichier1.xlsm (15.50 Ko)

BsAlv · Accepted Answer

Sub Save_Doc() Dim Listefichier, Plage Listefichier = Application.GetSaveAsFilename(fileFilter:="Fichiers Excel (*.xls*),*xls*", Title:="Fichier ERP à Importer", ButtonText:="Importer") If Listefichier = False Then MsgBox "problème": Exit Sub Application.EnableEvents = False Application.ScreenUpdating = False With Feuil1 Set Plage = .Range("B2").CurrentRegion Plage.SpecialCells(xlCellTypeVisible).Copy With Sheets.Add .Range("A1").PasteSpecial xlAll ActiveCell.CurrentRegion.EntireColumn.AutoFit .Move ActiveWorkbook.SaveAs Left(Listefichier, Len(Listefichier) - 1), 51 ActiveWorkbook.Close , False End With End With Application.EnableEvents = True MsgBox "Extraction faite" End Sub...