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+
 

guillotix

XLDnaute Nouveau
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

XLDnaute Nouveau
Re,

Ok je viens de voir qu'il s'agit bien de la 2ème option :rolleyes:
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

XLDnaute Nouveau
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 ?
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas