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

Signaler
Messages postés
12
Date d'inscription
samedi 2 juin 2007
Statut
Membre
Dernière intervention
24 avril 2015
-
Messages postés
12
Date d'inscription
samedi 2 juin 2007
Statut
Membre
Dernière intervention
24 avril 2015
-
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

Messages postés
15343
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 septembre 2020
1 360
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60926 internautes nous ont dit merci ce mois-ci

Messages postés
12
Date d'inscription
samedi 2 juin 2007
Statut
Membre
Dernière intervention
24 avril 2015

Merci F894009 :)

Je teste et je vous reviens

a+
Regcou
Messages postés
12
Date d'inscription
samedi 2 juin 2007
Statut
Membre
Dernière intervention
24 avril 2015

Avec un peu de retard merci pour aide