Débutant: Copie de colonnes dans une nouvelle feuille

  • Initiateur de la discussion Initiateur de la discussion Djedi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

Djedi

Guest
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
622
Réponses
5
Affichages
379
Réponses
3
Affichages
485
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
827
Retour