Sujet Précédent Sujet Suivant

Création d'une sauvegarde

Fermé
Tozinho64 Messages postés 43 Date d'inscription vendredi 9 juin 2017 Statut Membre Dernière intervention 23 novembre 2023 - 4 janv. 2019 à 11:36
Tozinho64 Messages postés 43 Date d'inscription vendredi 9 juin 2017 Statut Membre Dernière intervention 23 novembre 2023 - 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
A voir également:

1 réponse

Réponse 1 / 1
Tozinho64 Messages postés 43 Date d'inscription vendredi 9 juin 2017 Statut Membre Dernière intervention 23 novembre 2023
4 janv. 2019 à 14:54
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

Discussions similaires

Où se trouve les sauvegardes Steam ?
Samole28 -
xafloan -

3 réponses
Pokémon X et Y : comment effacer une partie ?
PokéFan -
yoshiedu13 -

49 réponses