Menu

Création d'une sauvegarde

Messages postés
21
Date d'inscription
vendredi 9 juin 2017
Dernière intervention
4 janvier 2019
- - Dernière réponse : Tozinho64
Messages postés
21
Date d'inscription
vendredi 9 juin 2017
Dernière intervention
4 janvier 2019
- 4 janv. 2019 à 14:54
Bonjour,
j'ai un fichier excel "Toto" sous un dossier X avec 3 feuilles Ab Bb et Cb. Sur la feuille Ab j'ai crée un bouton de sauvegarde associer à une macro "Sauvegarde". J'aimerai quand je clique sur ce bouton : 1- qu'une sauvegarde de mon fichier se fasse, 2- qu'une copie de mon fichier soit créée "Copie de Toto" dans un dossier Y avec seulement la feuille Ab et Cb et sans le bouton de sauvegarde, 3 - que seul le fichier Toto reste ouvert à la fin (et éventuellement d'autres fichiers Excel ouvert en même temps).
Merci pour votre aide et bonne année 2019.

Toz
Afficher la suite 

Votre réponse

1 réponse

Messages postés
21
Date d'inscription
vendredi 9 juin 2017
Dernière intervention
4 janvier 2019
0
Merci
Alors je pense avoir trouvé mais je trouve le code un peu trop simple...
Sub Sauvegarde()
'Sauvegarde
ThisWorkbook.Activate
ThisWorkbook.Save
'Definir nom de la copie
Dim Chemin As String, Fichier As String
Chemin = "D:\Documents\Tests\"
'selectionner les feuilles à copier
Sheets(Array("Ab", "Cb")).Copy
'Suppression du bouton de Sauvegarde
Sheets("Ab").Select
ActiveSheet.Shapes.Range(Array("Bouton 1")).Select
Selection.Delete
'Définir nom de la copie
Fichier = "Copie" & " " & "de" & " " & "Toto" & ".xlsx"
'Sauvegarde de la copie en lecture seule
ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, ReadOnlyRecommended:=True
ActiveWorkbook.Close
End Sub
Commenter la réponse de Tozinho64