Discussion :

[bzh.floriane]

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.

[curt]

Bonsoir bzh.floriane,

peux-tu en dire plus sur ce qui ne fonctionne pas ?
Kenavo

[Jean-Philippe André]

Bonjour,

pour ouvrir un classeur, il faut passer a minima par une syntaxe comme celle-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Workbooks.Open(chemin_du_fichier)

ce qui n'apparait pour l'instant pas dans ton code