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