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 ^^