Bonjour à tous,
J'ai créer un code en VBA qui me permet de copier des données d'un fichier Excel (ici Fichier1) pour les coller dans un autre fichier Excel (mon fichier actif avec mon code VBA).

J'aimerais faire deux modification :

1) Ce serai de pouvoir choisir mon fichier Excel. C'est à dire ouvrir une boite qui me permettrait de choisir un fichier Excel et non devoir changer à chaque fois mon chemin dans le code.

2) Et ici je sélectionne 2 colonnes C et D que je copy/colle. Je voudrais aussi sélectionner la colonne M, pour la copy/colle aussi mais je n'y arrive pas comme elles ne sont pas à coté.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Choix_du_Fichier()
 
Dim Source As Workbook
 
Set Source = Workbooks.Open("C:\Fichier1.xlsx")
 
    With Workbooks("Fichier1.xlsx").Worksheets("feuille1").Range("C12:D800").Copy
    End With
 
Range("A1:B800").PasteSpecial
Workbooks("Fichier1.xlsx").Close False
 
End Sub
Merci à vous par avance pour votre aide.