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

A voir également:

Création d'une feuille excel suivi d'un copier coller
Liste déroulante excel - Guide
Copier une vidéo youtube - Guide
Feuille de pointage excel - Télécharger - Tableur
Copier coller pdf - Guide
Suivi des modifications word - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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

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

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

Discussions similaires

Dessiner avec son clavier et avec des lettres

Discussions similaires

Newsletters