Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

action sur classeur uniquement sur le savecopy as

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

charette63

XLDnaute Occasionnel
Bonjour à toutes et tous,

je cherche à archiver un classeur avec une action lourde de conséquence si cette action s'effectue sur le classeur d'origine. Cette action est de figer les données donc je perds toutes les formules et liaisons.

Pour le test, cette macro est remplacée par une inscription "archivé" dans la cellule G1 de la feuille "Récapitulatif"

Dans cette macro,
Code: 
Sub archive3()

    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & "archive" & " " & ActiveWorkbook.Name
    Sheets("Récapitulatif").Range("G1") = "archivé"
    
End Sub

la commande s'effectue sur le classeur d'origine et pas sur le classeur archivé.

Et avec cette configuration,
Code: 
Sub archive4()

    Sheets("Récapitulatif").Range("G1") = "archivé"
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & "archive" & " " & ActiveWorkbook.Name
    
    
End Sub
la commande s'effectue sur les deux classeurs.

Comment faire pour que l'action ne se fasse que sur le classeur archivé?

Je joint un petit fichier, les deux macros se situent dans le module4

merci de votre aide

cordialement
Thierry
 

Pièces jointes

Trier par date Trier par votes
Re : action sur classeur uniquement sur le savecopy as

Bonjour,

inverse peut être les 2 lignes :
Code: 
'peut être un save ici    
Sheets("Récapitulatif").Range("G1") = "archivé"
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & "archive" & " " & ActiveWorkbook.Name
'un close ici sans enregistrement

enfin, si j'ai bien compris...

bon après midi
@+
 
Vote positif 0 Vote négatif
Salut Pierrot, merci de t’intéresser,

ça fonctionne, mais cela implique la fermeture du classeur "d'origine". Si il n'y a pas d'autre solution, j'adapterai le code avec une ligne de commande d'ouverture du classeur.

merci

cordialement
Thierry
 
Vote positif 0 Vote négatif
Re: Re : action sur classeur uniquement sur le savecopy as

Comme signalé dans mon premier post, la ligne de commande qui modifie la cellule G1 n'est qu'une commande de test, la commande finale est de figer (copier/collage spécial/valeur) les données dans un classeur d'une trentaine de feuilles.(donc perte de liaisons et formules).

cordialement
Thierry
 
Vote positif 0 Vote négatif
Re : action sur classeur uniquement sur le savecopy as

Re,


ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & "archive" & " " & ActiveWorkbook.Name
Cliquez pour agrandir...
et bien lance cette instruction avant toutes les autres, tu auras alors une sauvegarde de ton fichier initial..... ensuite à voir s'il y a lieu de sauvegarder le fichier initial avec les nouvelles données....
 
Vote positif 0 Vote négatif
Re : action sur classeur uniquement sur le savecopy as

Re,

oui tout à fait... tu la tout au début de ta procédure... mais je crois que quelque chose m'échappe.... je ne vois pas où se situe le problème...
 
Vote positif 0 Vote négatif
Re: Re : action sur classeur uniquement sur le savecopy as

je cherche à "enregistrer sous" un classeur, "enregistrer sous" avec changement de nom (ajout "archive" au nom du dossier) et un "copier/collage spécial/valeur" de toutes les cellules de toutes les feuilles ---->cette fonction seule, pas de problème
je pourrais même effectuer cette commande via la barre d'outil excel, mais le dossier "souche" se ferme pour laisser place au dossier "archive"

Ce que j'aimerai, c'est une macro qui:
1-- m'enregistre le dossier sous son nouveau nom avec les valeurs figées (macro "copier/collage spécial/valeur"), macro remplacée ici pour le test par l'inscription de "archivé" dans la cellule G1
Code: 
Sheets("Récapitulatif").Range("G1") = "archivé"

2-- garde ouvert le dossier souche sans aucun changement


voilà, j'espère que ces explications sont plus claires que celles de mon premier post

cordialement
Thierry
 
Vote positif 0 Vote négatif
Re : action sur classeur uniquement sur le savecopy as

Re,

m'enregistre le dossier sous son nouveau nom avec les valeurs figées (macro "copier/collage spécial/valeur"), macro remplacée ici pour le test par l'inscription de "archivé" dans la cellule G1
Cliquez pour agrandir...
faire le "SaveCopyAs" après cette action...

2-- garde ouvert le dossier souche sans aucun changement
Cliquez pour agrandir...
ne pas enregistrer les modifs, fermer et réouvrir le classeur original....
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
462
farid
F
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
553
sylvanu
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
685
Lu76Fer
  • Question Question
XL 2016 Excel vba : faire une action sur certaines feuilles d'un classeur
Réponses
7
Affichages
947
Dranreb
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
1 K
un internaute
U
R
  • Résolu(e)
Microsoft 365 Insérer une copie d'un onglet dans le classeur
Réponses
2
Affichages
673
Rosco1669
R
POWERQUERY/POWERPIVOT :: Injecter dynamiquement un fichier .csv dans le modèle de données - pratique en cas de forte volumétrie - V0.004
Réponses
1
Affichages
809
oguruma
R
  • Résolu(e)
XL 2016 Interdire le clique sur un bouton avant un autre
2 3 4
Réponses
54
Affichages
5 K
ReneDav14000
R
B
  • Question Question
XL 2016 Envoyer PDF depuis Excel
Réponses
3
Affichages
1 K
benito87
B
  • Question Question
Microsoft 365 exécuter un code uniquement si le classeur est ouvert sur mon ordinateur
2 3
Réponses
32
Affichages
3 K
Tetonne
T
B
  • Résolu(e)
Microsoft 365 Extraire des données d'un classeur sur un autre classeur
Réponses
9
Affichages
1 K
Bob 31
B
T
  • Résolu(e)
XL 2016 Copier feuille sur classeur protégé
Réponses
12
Affichages
1 K
TechnologyNewStore
T
A
  • Question Question
XL 2013 Fichier maitre appelant un fichier esclave et revenir sur le maitre
Réponses
10
Affichages
2 K
Alain BIMBAUD
A
F
  • Question Question
XL 2019 Avis macro sur classeur maître
Réponses
0
Affichages
791
Fanrs
F
S
  • Résolu(e)
XL 2019 Récupérer le automatiquement le nom d'une feuille récemment créée
Réponses
8
Affichages
1 K
Staple1600
H
  • Résolu(e)
XL 2016 Export plusieurs feuilles dans un nouveau classeur
2
Réponses
15
Affichages
4 K
Staple1600
S
  • Résolu(e)
Microsoft 365 Générer bouton commande sur l'ensemble des Feuils d'un classeur
2
Réponses
15
Affichages
2 K
spike29
S
  • Question Question
Microsoft 365 Recherche dans tout le classeur de youky(BJ)
Réponses
6
Affichages
1 K
Usine à gaz
  • Question Question
Microsoft 365 Ouverture classeur sur une feuille différente chaque jour
Réponses
3
Affichages
908
oinegain
A
  • Résolu(e)
XL 2016 Résolu VBA - Comparaison de cellules sur différentes feuilles
Réponses
2
Affichages
1 K
Archeon
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…