Macro sauvegarde
d
bonjour à tous
Déjà avant de commencer je tiens à remercier tous les membres pour leurs soutiens d'aides
en faite je cherche un macro qui a pour role de :
1/afficher le résultat dans un nouveau classeur
2/sauvegarder le nouveau classeur avec un boutton de parcourir dossier pour choisir l'emplacement
merci
Bonjour,
à tester,
Sub test()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String, NomComplet As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path
NomComplet = Chemin & "\" & "MonFichier"
Sheets("Feuil2").Copy
ActiveWorkbook.SaveAs Filename:=NomComplet, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Subd
il marche très bien merci beaucoup