Création d'une feuille excel suivi d'un copier coller Résolu/Fermé

Question

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

f894009 · Accepted Answer

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.CloseEnd Sub

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

1 réponse

Discussions similaires