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

Résolu
regcou Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   -  
regcou Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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   Statut Membre Dernière intervention  
 
Merci F894009 :)

Je teste et je vous reviens

a+
Regcou
0
regcou Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
Avec un peu de retard merci pour aide
0

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
dessin au clavier cannabis
val2t1 -
Mamaaaa18 -

10 réponses