Macro pour sauver la feuille courante dans un nouveau classeur

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro pour sauver la feuille courante dans un nouveau classeur

M-V

Avatar non valide

Hello hello,

J'ai un classeur divisé en 54 feuilles correspondants chacune à un set d'instruction que je dois passer chaque semaine un interlocuteur.
Je me suis dis que je suis feignant et que j'ai la flemme de remplir mon tableau, de le copier/coller dans une nouvelle feuille que je vais Sauvegarder dans un nouveau document. Alors je pourrais faire une macro qui le fait à ma place.

En cherchant un peu, j'ai trouvé ceci

Code :

Sub Macro2()
For Each feuille In ActiveWorkbook.Sheets
feuille.Copy
With ActiveWorkbook
.Title = feuille.Name
.Subject = feuille.Name
.SaveAs Filename:="animation_HP" + feuille.Name + ".xls"
End With
Next
End Sub

Cette macro marche plutôt bien, même très bien, voire trop bien dans mon cas et applique ça à l'ensemble de mon classeur. Résultat, ça crée et ouvre tout seul 54 documents dans lesquels je retrouve mes instructions (j'ai testé et Excel 2010 a commencé à pleurer, true story [:fail] )
J'ai jamais réellement écrit du VBA, mais j'ai compris qu'une partie du problème se trouve dans la boucle For Each feuille In ActiveWorkbook.Sheets.

Dont en une phrase, quelle est la syntaxe VBA pour ne sélectionner que la page courante au lieu de lancer une boucle sur l'ensemble de mon classeur?

Merci à qui prendra le temps de me lire :jap:

Message édité par M-V le 28-01-2014 à 10:23:02

Publicité

MaybeEijOrNot

but someone at least

Pas testé mais je ne vois pas pourquoi ça ne fonctionnerait pas :

Code :

Sub Macro1()
ActiveSheet.Copy
With ActiveWorkbook
.Title = ActiveSheet.Name
.Subject = ActiveSheet.Name
.SaveAs Filename:="animation_HP" + ActiveSheet.Name + ".xls"
End With
End Sub

Par contre Excel 2010 c'est .xlsx je crois.

M-V

Avatar non valide

Salut, et merci pour le coup de main

Ta fonction fait bien ce que je veux, mais elle sauvegarde le nouveau fichiers dans le répertoire Mes Documents.

Comment est-ce que je peux faire pour que, quel que soit l'endroit ou se trouve mon classeur original (en local ou sur un serveur de partage), la nouvelle feuille extraite soit sauvegardée au même endroit?

Merci d'avance pour ta réponse :jap:

MaybeEijOrNot

but someone at least

Code :

Sub Macro1()
chemin = ActiveWorkbook.Path
ActiveSheet.Copy
With ActiveWorkbook
.Title = ActiveSheet.Name
.Subject = ActiveSheet.Name
.SaveAs Filename:=chemin + "\animation_HP" + ActiveSheet.Name + ".xls"
End With
End Sub

M-V

Avatar non valide

Super, merci beaucoup

J'avais vu la variable ActiveWorkbook.Path mais je savais pas vraiment comment l'intégrer au bouzin :jap:

Bonne journée

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro pour sauver la feuille courante dans un nouveau classeur

Sujets relatifs
Créer macro pour ajout de ligne en cas de doublons	une feuille = une PAGE PDF
Copier une feuille dans un nouveau classeur	Excel 2010 - Ruban disparait lorsque le classeur n'est plus actif
extraire une feuille de plusieurs classeurs vers un autre classeur	Macro Word pour edition d'une nouvelle.
Plus de sujets relatifs à : Macro pour sauver la feuille courante dans un nouveau classeur

Page générée en 0.060 secondes