Macro excel : copier une feuille pour ensuite la sauvegarder comme classeur

Question

Bonjour à tous, 1er post d'un novice sur ce forum et je remercie ceux ou celles qui me viendront en aide.

Mon objectif est le suivant : construire une macro Excel permettant de créer un nouveau classeur à partir d'une feuille d'un classeur différent et faire en sorte que la macro continue de travailler sur le nouveau classeur.

J'explique 

J'ai construit un classeur Excel de plusieus feuilles qui génére des devis. J'ai écrit une macro qui me reprend des éléments de plusieurs feuilles et les place dans une feuille temporaire. La macro continue en copiant cette feuille temp dans un nouveau classeur. Quel est le code que je dois ajouter à la macro pour que ce nouveau classeur soit : sélectionné, sauvegardé avec un nom de fichier composé de valeurs de certaines cellules dans ce classeur, puis fermé le classeur ?

Au passage, dans la macro je copie-colle 2 feuilles avant de les supprimer, mais dans le déroulement de la macro une boite de dialogue s'ouvre me demandant de confimer la suppression des classeurs, comment faire pour que cette suppression se fasse en auto sans avoir à cliquer ?

Facile, non ?  je suis prêt à donner plus d'explications mais il me faut une réponse rapide.

En tous cas merci d'avance.

cs_casy · Answer

Il n'est pas nécessaire de poster plusieurs fois la même question, tu n'obtiendra pas plus de réponses.

Au contraire, tu risque d'énerver ceux qui sont succeptible de te répondre.

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

Salut, Si un admin passe, à supprimer (doublons) : topic 1 topic 2 merci

essaie ce code : Coloration syntaxique automatique Sub test() Dim sFileName As String ' * sFileName sera dans cet exemple, en admettant que tu souhaites ' utiliser la cellule A1 possédant la formule '= Maintenant()' ' le string suivant ' C:\Documents and Settings\\Bureau\mon fichier du 12_09_2006 23_59_26 sFileName = "C:\Documents and Settings\\Bureau" & _ "mon fichier du " & _ Replace (Replace(CStr(Range("A1").Value), "/", "_"), ":", "_") & _ ".xls" Sheets(1).Select Cells.Select Selection.Copy Application.Workbooks.Add ActiveSheet.Paste ActiveWorkbook.Close True, sFileName End Sub Coloration syntaxique automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

mnt2006 · Answer

Salut, un grand merci à toi, je vais lire tout cela, et essayer d'appliquer dès demain.

oui, doublons mais la difficulté est de savoir où poster, merci du conseil 

A+

mnt2006 · Answer

salut, ce n'est pas une réponse mais un conseil, merci quand même mais la difficulté est de savoir où poster, A+

Macro excel : copier une feuille pour ensuite la sauvegarder comme classeur

4 réponses

Votre réponse

Discussions similaires