Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Coier des feuilles de plusieurs fichiers excel vers un seul

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nonoTT
  • 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 !

S'inscrire
N

nonoTT

XLDnaute Occasionnel
Bonjour
Après avoir fait une petite recherche sur le forum, je suis tombé la dessus :
Code: 
Sub c()
Dim nom$, WBKSource As Workbook
With Application.FileDialog(msoFileDialogOpen)' ton bout de code
   .Title = "Choisissez le fichier"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xls*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom = .SelectedItems(1)
            Set WBKSource = Workbooks.Open(nom) ' mon petit bout à moi ;-)
           With WBKSource
                .Sheets("Activités").Copy Before:=ThisWorkbook.Sheets(1)
                .Close False
            End With
        Else
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
        End If
End With
End Sub
issu de ce sujet : https://www.excel-downloads.com/threads/importer-une-feuille-excel-depuis-un-autre-classeur.176033/

Je souhaite l'adapter pour insérer 2 fichiers dans mon fichier de synthèse, voilà ce que j'ai écrit (recopié) mais ça ne marche pas tout à fait :
Code: 
Sub IMPORT()

Dim nom$, nom2$, WBKSource, WBKSource2 As Workbook
' sélectionne et copie la feuille Rejets du fichier sélectionné
' et la colle dans la feuille avant la feuille Synthese
With Application.FileDialog(msoFileDialogOpen) '
   .Title = "Choisissez le fichier où les Rejets sont comptabilisés"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xlsx*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom = .SelectedItems(1)
            Set WBKSource = Workbooks.Open(nom) ' mon petit bout à moi ;-)
           With WBKSource
                .Sheets("Rejets").Copy before:=ThisWorkbook.Sheets("Synthese")
                .Close False
            End With
        Else
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
        End If
End With

' sélectionne et copie la feuille Totaux du fichier sélectionné
' et la colle dans la feuille avant la feuille Synthese

With Application.FileDialog(msoFileDialogOpen) '
   .Title = "Choisissez le fichier où les totaux sont comptabilisés"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xlsx*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom2 = .SelectedItems(1)
            Set WBKSource2 = Workbooks.Open(nom) ' mon petit bout à moi ;-)
           With WBKSource2
                .Sheets("Totaux").Copy before:=ThisWorkbook.Sheets("Synthese")
                .Close False
            End With
        Else
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
        End If
End With
End Sub
2 problèmes apparaissent :
- je suis obligé d'éxécuter et d'insérer cette macro dans le fichier qui va me servir de résultat
- J'ai une erreur d'exécution '9': L'indice n'appartient pas à la sélection
- le code ne m'apparaît pas très optimisé.
Merci de m'aider.
Cordialement.
 
Trier par date Trier par votes
Re : Coier des feuilles de plusieurs fichiers excel vers un seul

Bonjour,

Voici une modification du programme
Code: 
Sub ImportFichier()

 Dim nom As String
 Dim WBKSource As Workbook
 Dim myBook As Workbook
 
 Set myBook = ThisWorkbook
 
 With Application.FileDialog(msoFileDialogOpen) ' ouverture de la dialogFichier
    .Title = "Choisissez le(s) fichier(s)"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xls*"
    .AllowMultiSelect = True
    If .Show <> 0 Then
        If .SelectedItems.Count > 1 Then            'Si selection multiple de fichiers
            For i = 1 To .SelectedItems.Count
                nom = .SelectedItems(i)
                Set WBKSource = Workbooks.Open(nom)
                WBKSource.Sheets("Activites").Copy
                myBook.Sheets.Add before:=myBook.Sheets(1)
                myBook.ActiveSheet.Paste
                myBook.Sheets(1).Name = i & " Activites"
                WBKSource.Close False
            Next i
        Else
        'Selection unique de fichier
            nom = .SelectedItems(1)
            Set WBKSource = Workbooks.Open(nom)
            WBKSource.Sheets("Activites").Copy
            myBook.Sheets.Add before:=myBook.Sheets(1)
            myBook.ActiveSheet.Paste
            myBook.Sheets(1).Name = "1 Activites"
            WBKSource.Close False
        End If
    Else                                    'Pas de selection de fichier
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
    End If
 End With
 End Sub

Bonne journée
 
Vote positif 0 Vote négatif
Re : Copier des feuilles de plusieurs fichiers excel vers un seul

Bonjour je viens de corriger ma macro, je n'ai pas fait assez attention à une variable.

Code: 
Sub IMPORT()

Dim nom$, nom2$, WBKSource, WBKSource2 As Workbook
' sélectionne et copie la feuille Rejets du fichier sélectionné
' et la colle dans la feuille avant la feuille Synthese
With Application.FileDialog(msoFileDialogOpen)
   .Title = "Choisissez le fichier où les Rejets sont comptabilisés"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xlsx*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom = .SelectedItems(1)
            Set WBKSource = Workbooks.Open(nom) ' mon petit bout à moi ;-)
           With WBKSource
                .Sheets("Rejets").Copy before:=ThisWorkbook.Sheets("Synthese")
                .Close False
            End With
        Else
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
        End If
End With

' sélectionne et copie la feuille Totaux du fichier sélectionné
' et la colle dans la feuille avant la feuille Synthese


With Application.FileDialog(msoFileDialogOpen)
   .Title = "Choisissez le fichier où les totaux sont comptabilisés"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xlsx*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom2 = .SelectedItems(1)
            Set WBKSource2 = Workbooks.Open(nom2)
           With WBKSource2
                .Sheets("Totaux").Copy before:=ThisWorkbook.Sheets("Synthese")
                .Close False
            End With
        Else
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
        End If
End With
End Sub

Elle fonctionne toujours est-il que 2 éléments ne me satisfont pas :
- comment lancer cette macro sans qu'elle soit associée aux résultats ?
- comment la simplifier ?
Cordialement.
PS
--> PrinceCorwin
je n'ai pas réussi à faire fonctionner ta macro.
 
Vote positif 0 Vote négatif
Re : Coier des feuilles de plusieurs fichiers excel vers un seul

J'ai encore modifier la macro et j'arrive presque à mes fins sauf que j'ai une erreur d'éxécution 424 : Objet requis sur la ligne suivante de ma macro
Code: 
  .Sheets("Rejets").Copy before:=Mybook.Sheets("Synthese")
dans la macro suivante:
Code: 
 Sub IMPORT()

Dim nom$, nom2$, WBKSource, WBKSource2 As Workbook
'Sélectionne un fichier et le stocke dans la variable Mybook
Mybook = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx")
If Mybook <> False Then
    Workbooks.Open Mybook
End If

' sélectionne et copie la feuille Rejets du fichier sélectionné
' et la colle dans la feuille avant la feuille Synthese
With Application.FileDialog(msoFileDialogOpen) '
   .Title = "Choisissez le fichier où les Rejets sont comptabilisés"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xlsx*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom = .SelectedItems(1)
            Set WBKSource = Workbooks.Open(nom) ' mon petit bout à moi ;-)
           With WBKSource
                .Sheets("Rejets").Copy before:=Mybook.Sheets("Synthese")
                .Close False
            End With
        Else
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
        End If
End With

' sélectionne et copie la feuille Totaux du fichier sélectionné
' et la colle dans la feuille avant la feuille Synthese


With Application.FileDialog(msoFileDialogOpen) '
   .Title = "Choisissez le fichier où les totaux sont comptabilisés"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xlsx*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom2 = .SelectedItems(1)
            Set WBKSource2 = Workbooks.Open(nom2) ' mon petit bout à moi ;-)
           With WBKSource2
                .Sheets("Totaux").Copy before:=Mybook.Worksheets("Synthese")
                .Close False
            End With
        Else
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
        End If
End With

End Sub

il me semble pourtant que la variable Mybook et WBKSource sont différentes ?
Comment corrigé cela?
Cordialement.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

E
  • Question Question
XL 2019 Boite de dialogue Save as affiche mauvaise extension
Réponses
9
Affichages
477
patricktoulon
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
700
TooFatBoy
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
798
job75
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
757
vgendron
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
511
PHIL37
P
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
955
tnion
T
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
401
NONO14
N
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
562
JJ69
J
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
599
fanch55
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
436
sylvanu
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
818
Liner77
L
P
  • Résolu(e)
XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur
Réponses
3
Affichages
858
Panda79360
P
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
649
Lu76Fer
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
739
NONO14
N
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
370
CDALE
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…