Copier coller d'un fichier vers un autre fichier

Bonjour tout le monde je sollicite encore votre aide bienveillante

Alors je m'explique : j'ai 2 fichiers d'extractions que je souhaite copier dans 2 feuilles différentes d'un 3ème fichier (pour ceux qui ont suivi mon autre post il s'agit de la macro que j'effectue avant la comparaison) !

Alors mon code fonctionne pour le 1er fichier, je l'ouvre je copie et je le ferme mais pour le 2nd fichier cela ne marche pas !

Ça m'indique une erreur d’exécution au moment de coller !

Je ne comprend pas pourquoi étant donné que j'ai effectué les même commandes que pour le 1er fichier

Voila le code que j'ai écrit ! (Je débute donc je me doute bien qu'il n'est pas optimal)

Sub Macro_Copier_Coller()

'Declarations des différentes variables

Dim Fichier1 As String
Fichier1 = "extraction1.xlsm"

Dim Fichier2 As String
Fichier2 = "extraction2.xlsm"

Dim Fichier3 As String
Fichier3 = "Fichier3.xlsm"

'Ouverture du fichier1 
fichier1 = "C:\Users\Documents\" + Fichier1
Application.Workbooks.Open (fichier1)

'Copie dans la feuille 1 du fichier 3
Workbooks(Fichier1).Sheets("extraction1").Columns("A:E").Select
Selection.Copy
Workbooks(Fichier3).Sheets("1").Paste

'Fermeture du fichier1
Workbooks(Fichier1).Close

'Ouverture du fichier2
fichier2 = "C:\Users\Documents\" + Fichier2
Application.Workbooks.Open (fichier2)

'Copie dans la feuille 2 du fichier 3
Workbooks(Fichier2).Sheets("extraction2").Columns("A:G").Select
Selection.Copy
Workbooks(Fichier3).Sheets("J2").Paste

'Fermeture du fichier2
Workbooks(Fichier2).Close

End Sub

Encore merci à vous ^^

Rechercher des sujets similaires à "copier coller fichier"