A voir également:
- Créer un fichier depuis 5 fichiers différents vba
- Fichier bin - Guide
- Fichier epub - Guide
- Comment réduire la taille d'un fichier - Guide
- Creer un fichier .bat - Guide
- Fichier rar - Guide
2 réponses
Bonjour,
Si ta demande est bien le rapatriement des onglets de tous les classeurs, ces quelques lignes devraient faire l'affaire
Sub Récup_onglets()
Dim a As Variant, Nom As String
Dim Sh As Worksheet
Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xlsm), *.xlsm", _
, "Sélection de vos fichiers excel", , True)
Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select
Nom2 = ActiveWorkbook.Name
For Each Sh In Workbooks(Nom2).Worksheets
'Workbook(classeur1).Sheets(Sh.Name).Select
Workbooks(Nom2).Sheets(Sh.Name).Copy Before:=Workbooks(Nom).Sheets(1)
Next Sh
If MsgBox("Besoin d'une autre importation ?", vbYesNo, "Demande de confirmation") = vbYes Then Call Récup_onglets
Windows(Nom2).Close
End Sub
Bonne journée,
Si ta demande est bien le rapatriement des onglets de tous les classeurs, ces quelques lignes devraient faire l'affaire
Sub Récup_onglets()
Dim a As Variant, Nom As String
Dim Sh As Worksheet
Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xlsm), *.xlsm", _
, "Sélection de vos fichiers excel", , True)
Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select
Nom2 = ActiveWorkbook.Name
For Each Sh In Workbooks(Nom2).Worksheets
'Workbook(classeur1).Sheets(Sh.Name).Select
Workbooks(Nom2).Sheets(Sh.Name).Copy Before:=Workbooks(Nom).Sheets(1)
Next Sh
If MsgBox("Besoin d'une autre importation ?", vbYesNo, "Demande de confirmation") = vbYes Then Call Récup_onglets
Windows(Nom2).Close
End Sub
Bonne journée,
oui ma demande est bien le rapatriement des onglets de tous les classeurs et d'avoir un seul fichier avec tous les onglets
j'ai erreur 1004
la méthode copy classe ......
Fais le test avec un xlsm et tiens moi au courant
ca me crée des onglets au niveau de ma macro