Sauvegarde d'un fichier sous le nom d'une feuille
Bonjour à tous,
J'apprécierais qu'on m'aide à concevoir une macro qui permet de sauvegarder une feuille active sous son nom de feuille sans changer le nom du classeur. Je joins à ma demande le fichier "Exemple4.xlsm". Par exemple, lorsque la feuille "Feuil3" est active, en exécutant la macro, je désire sauvegarder uniquement la feuille "feuil3" dans le répertoire actif dans lequel se trouve le classeur "Exemple 4.xlsm" sous le nom de "Feuil3.xlsm". Après la sauvegarde de la feuille "Feuil3", le classeur "Exemple 4.xlsm" doit demeurer ouvert.
Je vous remercie par avance pour votre précieuse collaboration.
Salutations
Renaud D.
Bonjour
A mettre dans thisWorkBook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Nom As String
Chemin = ActiveWorkbook.Path & "\"
Nom = ActiveSheet.Name
Sheets(Nom).Copy
ActiveWorkbook.SaveAs Filename:=Chemin & Nom & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close False
End SubA+
Merci beaucoup Patty5046 pour votre aide.
Votre code fonctionne parfaitement.
Je vous souhaite une bonne fin de journée.
Sincères salutations,
Renaud D.
Bonjour
Enchantée pour vous
Bonne fin de journée