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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 23 févr. 2015 à 17:56
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 23 févr. 2015 à 17:56
A voir également:
- Importer une feuille excel dans un autre classeur vba
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
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:
Bon WE
@+ Le Pivert