Revenir a mon fichier moule Fermé

Question

Bonjour, 

Je dispose d'une feuille de calcul que l'on va  désigner MOULE.
Je complète les informations demandées dans ce moule dans diverses cellules.
Certaines de ces informations sont concaténées pour former le non d'un nouveau fichier que l'on va désigner ici par MOULE2.

Question:

Comment construire la macro qui après enregistrement de MOULE2 efface l'écran et recharge MOULE qui alors prêt pour une nouvelle saisie (MOULExx par exemple).

Cela tente t'il quelqu'un d'apporter une solution à cette question?

Par avance merci

Configuration: Windows 7 / Chrome 27.0.1453.116

pijaku · Answer

Bonjour,

Moule est composé d'une unique feuille?

Très bien.
votre macro devrait :
1- copier cette feuille dans un nouveau classeur,
2- enregistrer ce nouveau classeur sous moule2

et voilà.
Moule est inchangé, vous pouvez saisir dans moule2, l'enregistrer et le fermer en fin d'utilisation, moule vous attendra pour de nouvelles aventures!

CLAVERELI · Answer

Bonjour Pijaku

Merci pour la réponse.

Non mon classeur n'est pas composé d'une unique feuille. Mais c'est sans importance car seuls les résultats calculés de la première sont à sauvegarder ce qui réduit l'espace disque occupé.
Une question se pose alors que je dois tester: 
Il me faudra donc effacer MOULE2 pour retrouver MOULE caché en arrière plan?.
Est-ce bien cela?
Dans le code VBA exécutant votre solution (bouton macro) il doit y avoir la possibilité d'insérer une ligne permettant d'obtenir cet effacement après sauvegarde et de revenir à MOULE sans intervention au clavier. Pouvez-vous m'en proposer une?

Avec mes remerciement

pijaku · Answer

Bonjour,

Voici la procédure, toute simple, comme promis, suffit d'adapter le nom de la feuille à copier :

Sub Clavereli()
Dim Moule As Workbook, Moule2 As Workbook

Set Moule = ThisWorkbook
Moule.Sheets("Feuil3").Copy 'A ADAPTER nom de la feuille à copier
Set Moule2 = ActiveWorkbook
Application.Dialogs(xlDialogSaveAs).Show (Moule.Path)
End Sub 

Pas besoin de ligne de code supplémentaire, Moule redevient le classeur actif dès fermeture de Moule2...
La macro ci-dessus, ne fait que créer un nouveau classeur avec la feuille concernée, et propose la boîte de dialogue Enregistrer sous avec, par défaut, le répertoire ou est situé Moule...

CLAVERELI · Answer

Bonjour pijaku
WAOUH!!! Je sens que l'on est pas loin de l'objectif.
Je fais une adaptation et te ferai part du résultat.
Ayant l'age de pouvoir faire des compliments, en voici deux: merci pour ton efficacité et pour la valeur de ta promesse!
A suivre..

Revenir a mon fichier moule

4 réponses

Discussions similaires