VBA Excel: Importer des feuilles vers un classeur
Résolu/Fermé
Amélie
-
20 févr. 2015 à 10:33
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 23 févr. 2015 à 17:56
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 23 févr. 2015 à 17:56
A voir également:
- Vba importer une feuille d'un autre classeur
- Excel reporter des données sur une autre feuille avec conditions - Forum Excel
- Feuille de score belote excel - Forum Excel
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Comment supprimer une feuille sur word - Guide
- Copier une feuille excel dans un autre classeur avec liaison ✓ - Forum Excel
2 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
20 févr. 2015 à 16:33
20 févr. 2015 à 16:33
Faire alt f11 pour accéder à l'éditeur
Insérer un UserForm
Mettre un bouton avec ce code
Insérer un UserForm
Mettre un bouton avec ce code
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer
Dim nom As String
Workbooks.Open ThisWorkbook.Path & "\" & "Classeur1.xls" 'classeur à copier a adapter le nom
'on parcourt toutes les feuilles
For i = 1 To Worksheets.Count
Workbooks("Classeur1.xls").Activate 'classeur à copier a adapter le nom
nom = Worksheets(i).Name
Sheets(nom).Select
Sheets(nom).Copy after:=Workbooks("Copier_onglet.xls").Sheets(1) 'classeur à coller a adapter le nom
Next
End Sub
21 févr. 2015 à 08:24
Et merci pour la réponse! Après avoir essayé le code, je peux affirmer qu'il fonctionne parfaitement! Les onglets n'arrivent pas dans le même ordre, mais ça n'est pas important, l'essentiel y est.
Merci encore!
21 févr. 2015 à 08:35
J'ai ajouté l'effacement des onglets au cas ou.
il faudra ajouter un bouton.
Voici le code:
Option Explicit Private Sub CommandButton1_Click() Dim i As Integer Dim nom As String Workbooks.Open ThisWorkbook.Path & "\" & "Classeur1.xls" 'classeur à copier a adapter le nom 'on parcourt toutes les feuilles For i = 1 To Worksheets.Count Workbooks("Classeur1.xls").Activate 'classeur à copier a adapter le nom nom = Worksheets(i).Name Sheets(nom).Select Sheets(nom).Copy After:=Workbooks("Copier_onglet.xls").Sheets(1) 'classeur à coller a adapter le nom Sheets(nom).Move After:=Sheets(Sheets.Count) 'on met les onglets dans l'ordre Next End Sub Private Sub CommandButton2_Click() Sheets("Recapitulatif").Select EffacementTouteFeuille End Sub Sub EffacementTouteFeuille() Dim Ctr Application.DisplayAlerts = False For Ctr = Sheets.Count To 1 Step -1 If Sheets(Ctr).Name <> ActiveSheet.Name Then Sheets(Ctr).Delete End If Next Application.DisplayAlerts = True End Sub Private Sub UserForm_Initialize() CommandButton1.Caption = "Copier feuilles" CommandButton2.Caption = "Supprimer feuilles" End SubBon WE
@+ Le Pivert