Exporter feuille avec macro Fermé

Question

Bonjour, 

J'ai un fichier excel avec plusieurs onglets : Voiture, Moto, Bateau. Ces onglets sont construits de la même manière et font tous appel à la même macro "module1".

Ce fichier est un "master", et ainsi me sert de modèle. Je souhaiterais pouvoir exporter 1 seul onglet dans mes documents (par exemple n'enregistrer que "Voiture.xlsm" depuis mon master) et que la macro associée à cette feuille fonctionne toujours.

Je me pose donc la question : Faut il, pour chaque feuille réécrire la macro ? ou bien que faut il faire ???

Avez vous des idées ?

Cordialement

Romain

eljojo_e · Accepted Answer

Bonjour,

Je te propose de faire un enregistrer sous, et soit de supprimer les deux onglet que tu veux pas soit de les cacher.
Comme ça tu conserve tout.

C'est bien ça que tu veux ?

Romain · Answer

Bonjour,

Oui c'est ca que je veux faire, mais j'aurais souhaité que l'utilisateur n'ai rien à faire. Mon classeur final va comporter une vingtaine de feuilles ! Je me vois mal dire à mon utilisateur "supprime les 19 feuilles dont tu n'as pas besoin". C'est pour cela que j'aurais souhaité n'exporter qu'une seule feuille avec le module1. Que ce soit via un menu d'excel ou une macro, peu m'importe !

Merci quand même pour ta réponse !

f894009 · Answer

Bonjour a vous deux,

Si une macro par feuille, copie dans un autre classeur suffi (en code VBA)

Si une seule macro dans un module, faire copie dans autre classeur et allez sur ce site pour un exemple de copie de macro dans un autre calsseur (le tout en VBA bien sur)


https://www.developpez.net/forums/d604294/logiciels/microsoft-office/excel/macros-vba-excel/copier-macro-vba-d-classeur/

A+

Maurice · Answer

Bonjour
Voila une macro qui peur le faire
a toi de voir si ca te convient
Bien sur il faut faire un peux de menage

Sub ExportXLS()
Application.ScreenUpdating = False
'Crée une copie de la Feuil1 dans un nouveau classeur
Chemin = ActiveWorkbook.Path
NomFiche = F05.Range("B15")
ChemFiche = Chemin & "\" & NomFiche & ".xls"
Temp = F06.Name
On Error GoTo Erreur
F06.Copy
ActiveWorkbook.Activate
Sheets(Temp).Name = NomFiche
For Each Shap In ActiveSheet.Shapes
If Shap.Name <> "Logo2" And Shap.Name <> "Logo3" Then
Shap.Delete
End If
Next
ActiveWindow.FreezePanes = False
Rows("1:1").Delete
Range("A1").Select
'Sauvegarde la copie
ActiveWorkbook.SaveAs ChemFiche
'Ferme le classeur sauvegardé
ActiveWorkbook.Close True
Application.ScreenUpdating = True
MsgBox "Création dans " & ChemFiche
F04.Select
Exit Sub
Erreur:
Application.DisplayAlerts = False
ActiveWorkbook.Close
Err.Clear
Application.DisplayAlerts = True
F04.Select
'F05.Visible = 2
End Sub

A+

f894009 · Answer

Re,
"Drag&Drop" de la feuille vers une autre instance d'Excel... Si dans la meme instance d'excel et c'est un move de l'onglet (couper/coller ou deplacer) dans le  2eme classeur qui doit etre ouvert. Ceci sans macro, par contre gerer la sauvegarde manuellement.

A vous de voir
 macro: vous avez deux solutions qui vous ont ete proposees

sans macro: probleme de gestion sauvegarde

A+

Romain · Answer

Après adaptation, cela fonctionne bien, mais ne copie pas les modules :( Sachant que c'est le coeur de mon fichier Excel...
 
Quelqu'un aurait il une idée ? est il possible d'adapter cette macro pour qu'elle copie aussi les modules ? ?

f894009 · Answer

Re,

Auriez-vous la memoire courte?????  je vous ai postez un lien voir f894009 28 févr. 2013 à 10:36 

A+

Romain · Answer

Re,

J'ai finalement fait comme eljojo_e l'a proposé. En effet, cette solution reste plus légère en terme de code, ainsi qu'en terme de manipulation de fichiers. De plus elle est plus rapide. C'est donc la meilleur solution à adapter :

- on supprime tous les onglets qui ne nous interessent pas dans une boucle
- on fait un "enregistrer sous" 
- on ferme le classeur sans l'enregistrer

Ainsi, on garde le master tel quel et on obtient le résultat : la feuille enregistrée avec toutes les macros dans un fichier à part, sans avoir eu à manipuler une macro !

Encore merci eljojo_e pour cette solution, et merci à f894009 pour m'avoir proposé ta solution.

A+

Exporter feuille avec macro

8 réponses

Discussions similaires