Bonjour, j'ai 2 fichiers sur le SharePoint. J'aimerai extraire la colonne A du fichier Classeur_travail.xlsx vers la colonne A du fichier Classeur_source.xlsx en VBA.

Voici le début de mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim Chemin As String, Fichier As String, rep as String
Chemin = Replace("https://sharepoint.com/.../folder", "https://", "\\")
Fichier = Dir(Chemin)
rep = Dir(path, vbDirectory)
Sheets("Classeur_travail").Select
 
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Classeur_source").Select
 
End Sub

Ce début de code ne fonctionne pas.