XL 2010 Ajout chemin macro enregistrement feuille

guillotix

XLDnaute Nouveau
Bonjour à tous !

Voilà mon souci, j'ai adapté une macro trouvée à force de persévérance :) à mon classeur. Celle-ci permet d'enregistrer une feuille d'un classeur en collant les données sous forme de valeurs avec un nom pris dans une cellule.
Elle répond parfaitement à mon besoin mais le souci c'est que je voudrais que l'enregistrement se fasse dans un dossier spécifique.
Cette macro ne spécifie aucun dossier de destination et je n'arrive pas à l'adapter, je me retrouve toujours avec des messages d'erreurs, c'est hyper frustrant :eek:o_O

Bref, quelqu'un pourrait m'aider svp ? Par avance un grand merci à mon sauveur !! :D
La macro en question :

Sub copier_feuille ()
Dim feuille, nom, Export
Set feuille = ActiveWorkbook.Sheets("RECAP")
nom = feuille.Range("D1") & ".xlsx"

Application.Workbooks.Add
Export = ActiveWorkbook.Name
feuille.Cells.Copy

With Workbooks(Export).Sheets("RECAP").Cells
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValues
End With
Workbooks(Export).SaveAs nom

Application.CutCopyMode = False

End Sub
 

job75

XLDnaute Barbatruc
Bonsoir guillotix, bienvenue sur XLD,

Application.FileDialog permet de choisir le dossier d'enregistrement :
VB:
Sub copier_feuille()
Dim chemin$, nom$
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "DOSSIER D'ENREGISTREMENT"
    If Not .Show Then Exit Sub
    chemin = .SelectedItems(1)
End With
nom = Sheets("RECAP").[D1]
Workbooks.Add 'nouveaudocument
With ThisWorkbook.Sheets("RECAP").UsedRange
    ActiveSheet.[A1].Resize(.Rows.Count, .Columns.Count) = .Value 'copie les valeurs
End With
ActiveSheet.Columns.AutoFit 'ajustement largeurs
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.SaveAs chemin & "\" & nom, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close False
End Sub
A+
 

Discussions similaires