Création d'une feuille excel suivi d'un copier coller
Résolu
regcou
Messages postés
12
Statut
Membre
-
regcou Messages postés 12 Statut Membre -
regcou Messages postés 12 Statut Membre -
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
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
-
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
