Copier fichiers SharePoint sur Mac en VBA
Bonjour
Je dois dupliquer des fichiers situés sur SharePoint via une petite macro située sur un Mac. Or celui-ci ne reconnait pas le chemin.
Je sais faire cela sur un PC avec la procédure suivante :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| ChSharePoint = "https://XXX-my.sharepoint.com/personal/live_XXX_com/Documents/"
'Création d'un mappage du chemin SharePoint vers B:
Set objFd = Application.FileDialog(msoFileDialogFolderPicker)
objFd.InitialFileName = "https://XXX-my.sharepoint.com"
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "B:", ChSharePoint, False
Set fso = CreateObject("Scripting.FileSystemObject")
[...]
LeChemin = "B://"
FichierPPTX = LeChemin & "source.pptx"
Fichier = LeChemin & "destination.pptx"
fso.CopyFile FichierPPTX, Fichier |
Ce code ne fonctionne pas sur Mac, car FSO n'est pas fonctionnel.
Sur le site de Ron de Bruin (https://macexcel.com/), il est indiqué comment il faut procéder sur Mac pour copier des fichiers (plus particulièrement à l'adresse : https://macexcel.com/examples/filesandfolders/copyfile/)
Code:
FileCopy "/Users/rondebruin/Desktop/xlsx/File1.xlsx", "/Users/rondebruin/Desktop/Export/File1.xlsx"
Mais le chemin URL proposé par SharePoint ne fonctionne pas.
Est-ce que quelqu'un sait comment il faudrait écrire le lien SharePoint afin qu'il soit compris ?
En attendant votre retour, je vous souhaite une bonne journée ;)
Pierre Dumas
