XL 2010 Ajout chemin macro enregistrement feuille

[guillotix]

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 😱😵

Bref, quelqu'un pourrait m'aider svp ? Par avance un grand merci à mon sauveur !! 😀
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]

Bonsoir guillotix, bienvenue sur XLD,

Application.FileDialog permet de choisir le dossier d'enregistrement :

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+

 

[guillotix]

Bonsoir job75,

Merci pour cette solution, je teste demain au boulot.
Juste une précision :

Application.FileDialog permet de choisir le dossier d'enregistrement

Cela signifie-t-il que le dossier de destination devra être choisi lors de l'enregistrement ou bien dois-je saisir le chemin à

"DOSSIER D'ENREGISTREMENT"

Pardon, je débute ...

 

[guillotix]

Re,

Ok je viens de voir qu'il s'agit bien de la 2ème option 🙄
Autre question par contre : je ne vois rien quant au format du fichier, celui-ci sera bien enregistré en .xlsx ?

Pardon pour ces questions à la c** 🙂

 

[guillotix]

Re re,

Ok j'ai compris.

FileFormat:=xlOpenXMLWorkbook

Pardon du dérangement.

Je vois demain. Merci encore et good night !!

 

[guillotix]

Bonjour job75, bonjour le forum,

J'ai essayé cette macro mais il y a un souci sur le chemin, je suppose que c'est parce qu'il s'agit d'une adresse réseau ?

 

[guillotix]

Re,

C'est bon j'ai réussi

Bonne journée et merci encore