Macro pour sauvegarder un classeur en un classeur simplifié

[pascal35135]

Bonjour à tous,
J'ai encore besoin de vos lumières!!
J'ai un classeur qui comporte plusieurs onglets avec des données et un onglet "total" qui est le recensement de différentes données issues des autres onglets.
J'aimerais faire une macro qui lancée du fichier ouvert:
Copie l'onglet "total"
Colle les valeurs de cet onglet dans un nouveau classeur
Renomme ce nouvel onglet "total"
Sauvegarde ce nouveau classeur au nom de fichier inscrit dans une cellule du fichier de départ.

Merci énormément pour votre aide.
Pascal
Exemple ci joint

 

[Papou-net]

Re : Macro pour sauvegarder un classeur en un classeur simplifié

Bonsoir Pascal,

Ton fichier en retour avec une macro (minimaliste) attachée au bouton "Macro de sauvegarde".

Cordialement.

 

[PASCALC]

Re : Macro pour sauvegarder un classeur en un classeur simplifié

Merci pour la rapidité de la réponse.
C'est exactement ce que je cherche à faire.
J'ai tout de même une question.
Dans le script je lis:
Feuil1.Copy
Ne peut on pas nommer la feuille à copier?

Pascal

 

[Papou-net]

Re : Macro pour sauvegarder un classeur en un classeur simplifié

Merci pour la rapidité de la réponse.
C'est exactement ce que je cherche à faire.
J'ai tout de même une question.
Dans le script je lis:
Feuil1.Copy
Pourquoi Feuil1?

Pascal

Re :

Feuil1 est le CodeName de la feuille "total", Ce nom, affiché à gauche du nom de l'onglet dans l'explorateur d'objets de VBE, est géré par Excel et ne change jamais, même si tu renommes l'onglet. J'aurais tout aussi bien pu écrire :

Sheets("total").Copy

Les deux expressions étant équivalentes, je préfère employer la première, plus courte à écrire et plus sûre.

Espérant avoir répondu.

Cordialement.

 

[PASCALC]

Re : Macro pour sauvegarder un classeur en un classeur simplifié

J'ai à peine eu le temps de peaufiner ma question que la réponse était déjà là.
C'est vraiment beau l'informatique.
Encore merci Beaucoup.

Amicalement et bonne soirée.
Pascal

Résolu

 

[Papou-net]

Re : Macro pour sauvegarder un classeur en un classeur simplifié

Bonjour Pascal,

Je me doutais bien que la question ne pouvait être aussi basique, c'est pourquoi je t'avais précisé que la macro était "minimaliste".

Donc, pour répondre à ta dernière demande par MP, voici ton fichier modifié. Les formules dans les cellules sont remplacées par leurs valeurs et j'ai ajouté une ligne de gestion d'erreur. En effet, j'ai remarqué que si le fichier existait déjà, et que l'on répondait non au message de confirmation d'écrasement, une erreur interrompait le programme.

Bonne journée au soleil de Bretagne.

Amicalement.

 

[PASCALC]

Re : Macro pour sauvegarder un classeur en un classeur simplifié

Bonjour Papou-net,
Ce matin j'ai parlé un peu vite, ici maintenant il pleut.
Merci de t'occuper de moi je progresse à petit pas!
Il y a bien une copie mais elle contient les formules, comment faire pour que seuls les valeurs et formats soient copiés.
Il faut que le fichier soit exploitable tout seul.

Je continue dans le peaufinage.
Est il possible de forcer l'enregistrement d'un classeur en retirant les feuilles non renseignées (je mets un test par exemple en A1 de chaque feuille?
Merci.
Pascal

 

[Papou-net]

Re : Macro pour sauvegarder un classeur en un classeur simplifié

RE:

Bonsoir Pascal,

As-tu testé le fichier "Copie 01 de..." que je t'ai adressé ? Les formules de la feuille "total" du nouveau fichier sont bien remplacées par leur résultat.

Pour répondre à ta deuxième question, je te joins la copie 02 du même fichier : la macro copie toutes les feuilles dont la cellule A1 contient une valeur. Par contre, j'ai supprimé la ligne qui enregistre le nouveau fichier car je ne sais pas sur quelle feuille se trouve la cellule qui définit le nom.

A +

Amicalement.