Création d'une sauvegarde

Tozinho64 Messages postés 43 Date d'inscription   Statut Membre Dernière intervention   -  
Tozinho64 Messages postés 43 Date d'inscription   Statut Membre Dernière intervention   -
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

1 réponse

  1.
    Tozinho64 Messages postés 43 Date d'inscription   Statut Membre Dernière intervention  
     
    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
    0