VBA Excel: Importer des feuilles vers un classeur
Résolu/Fermé
Amélie
-
20 févr. 2015 à 10:33
cs_Le Pivert
cs_Le Pivert
- Messages postés
- 7752
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 26 mai 2022
A voir également:
- Importer une feuille excel dans un autre classeur vba
- Copier une feuille excel dans un autre classeur vba - Meilleures réponses
- Copier feuille excel dans un autre classeur vba - Meilleures réponses
- VBA Excel: Importer des feuilles vers un classeur ✓ - Forum - VB / VBA
- Copier une feuille d'un classeur à l'autre ✓ - Forum - VB / VBA
- VBA UserForm - Importer une feuille d'un autre classeur ✓ - Forum - VB / VBA
- VBA : copier-coller une feuille dans un autre classeur ✓ - Forum - VB / VBA
- VBA : bouton explorateur windows import fichier - Forum - Excel
2 réponses
cs_Le Pivert
20 févr. 2015 à 16:33
- Messages postés
- 7752
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 26 mai 2022
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
21 févr. 2015 à 09:08
C'est la manière la plus logique!
23 févr. 2015 à 09:01
le code transmis à 8h35 fonctionne parfaitement, ajustant même l'ordre des feuilles, il convient parfaitement!
En revanche, celui de 9h08 entraîne un message d'erreur, que j'ai pu corriger en comparant le code avec le précédent: en effet, la ligne 10 doit être rectifiée ainsi:
Ce qui correspond tout simplement à la ligne 11 du code de 8h35.
Pour le reste, rien à dire, merci encore!
23 févr. 2015 à 11:10
Question annexe: j'ai modifié le code de façon à ce que le nom du classeur contenant la macro soit automatiquement renseigné:
J'aimerais à présent savoir comment faire pour que le nom du classeur à copier se renseigne automatiquement après l'avoir choisi dans une boîte de dialogue ouvrant le répertoire dans lequel se trouvent les deux documents, autrement dit, sans avoir à passer par le développeur?
Merci