Création d'une feuille excel suivi d'un copier coller

Résolu/Fermé
regcou Messages postés 12 Date d'inscription samedi 2 juin 2007 Statut Membre Dernière intervention 24 avril 2015 - 25 nov. 2014 à 23:33
regcou Messages postés 12 Date d'inscription samedi 2 juin 2007 Statut Membre Dernière intervention 24 avril 2015 - 23 avril 2015 à 10:10
Bonjour,

je débute en VBA et je n'ai pas trouver le code suivant :

A partir d'un classeur existant, je souhaite exporter 3 feuilles entières (mon classeur en contient 10), dans un nouveau classeur que la macro créerai d'elle même.

Petite précision le fichier existant est en .xlsm et le nouveau fichier doit être créer en xlsx.

pour cette question on peut dire que :
le fichier existant = lot.xlsm
Le nouveau fichier = bdd.xlsx
Les trois feuilles = BDD_1
BDD_2
BDD_3

Une fois le classeur créer il devra écraser l'ancien (pour ce post on le met sur C\: )

Merci d'avance pour votre aide, j'espère avoir était compréhensible :)
Regcou

1 réponse

f894009 Messages postés 16710 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 28 septembre 2022 1 654
26 nov. 2014 à 07:14
Bonjour,

code fait avec l'enregistreur de macro:

A vous de l'adapter:

Sub Macro1()
Workbooks.Add
Windows("Classeur1").Activate
Sheets(Array("bdd_1", "bdd_2", "bdd_3")).Select
Sheets("bdd_3").Activate
Sheets(Array("bdd_1", "bdd_2", "bdd_3")).Move Before:=Workbooks("Classeur2").Sheets(1)
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete
ChDir "C:\Users\SWF\Downloads"
ActiveWorkbook.SaveAs Filename:="C:\Users\SWF\Downloads\Classeur2.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
2
regcou Messages postés 12 Date d'inscription samedi 2 juin 2007 Statut Membre Dernière intervention 24 avril 2015
26 nov. 2014 à 22:08
Merci F894009 :)

Je teste et je vous reviens

a+
Regcou
0
regcou Messages postés 12 Date d'inscription samedi 2 juin 2007 Statut Membre Dernière intervention 24 avril 2015
23 avril 2015 à 10:10
Avec un peu de retard merci pour aide
0