Débutant: Copie de colonnes dans une nouvelle feuille

[Djedi]

Bonjour a tous;

Il m'a été demandé aujourdh'ui de faire une macro qui copie les colonne préselectionnées d'une feuille Excel dans un nouveau fichier..
Etant neophyte dans le Vba j'ai tenté de faire quelque chose mais ca marche pas des masses...
En gros j'ai fait un formailre qui permet de choisir ses colonnes et la.... pof! plus rien.. J'avoue qu'un petit coup de pouce serait le bienvenue! je vous laisse ce que j'ai fait...
Merci a tous de votre aide


Private Sub CommandButton1_Click()



'Déclaration des variables

Dim X1 As Excel.Application
Dim NClasseur As Excel.Workbook
Dim NomFichier As String



'Creation d'une instance de l'objet Excel

Set X1 = CreateObject("Excel.Application")



'Affichage de l'objet X1

X1.Application.Visible = True



'Creation d'1 nouveau Classeur dans l'objet X1

Set NClasseur = X1.Workbooks.Add

'Enregistrement du classeur

NomFichier = "test.xls"

NClasseur.SaveAs "c:\" & NomFichier




'Suppression des 3 derniers feuillet du nouveau ocumetn

NClasseur.Sheets(2).Delete



' INSERTION DES COLONNES
'NClasseur.Sheets(1).Columns("A") = thisWorksBooks.Feuil1.Columns("B")

NClasseur.Sheets(1).Columns("a") = ThisWorksBook.Sheets(1).Columns("B")


'Enregistrement du classeur

NomFichier = Date & ".xls"
NClasseur.SaveAs "c:\" & NomFichier
NClasseur.Close



End Sub

 

[andré]

Salut Djedi,

Soit le bienvenu sur le forum,

Pour la copie de cellules sélectionnées, vois la réponse que j'ai donnée ce soir à Moa.

André.