XL 2016 Supprimer un fichier d'une bibliothèque SharePoint depuis Excel

Horusbk

XLDnaute Junior
Bonjour,

Tous nos fichiers étant migrés sur le cloud, nous les ouvrons depuis des bibliothèques de documents SharePoint vers l'application de bureau.
Nous avons une procédure qui permet d'archiver notre classeur Excel chaque jour. Le fichier sur lequel la procédure est lancée (en cours d'utilisation) est enregistré dans un nouveau répertoire (avec un "enregistrer sous") puis la macro supprime le fichier de son répertoire d'origine.

Voici le code :

VB:
Sub SupprimerFichierApresArchive()
    Dim supr As String
    Dim chemin As String
    
    'On indique le chemin du fichier à supprimer :
    Feuil1.Range("C6") = ThisWorkbook.FullName
    
    'On crée un backup dans le répertoire d'archive :
    chemin = Feuil1.Range("C7")
    ThisWorkbook.SaveAs Filename:=chemin & "\test2.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
    'On supprimer le fichier :
    supr = Feuil1.Range("C6")
    Kill supr
End Sub

Ce programme fonctionnait très bien lorsque nous utilisions des chemins "windows" du style : "C:\Program Files (x86)..." mais désormais il bug à la dernière instruction "Kill supr" en spécifiant que le fichier à supprimer est introuvable. Or, avant d'effectuer un enregistrer sous, nous indiquons son chemin dans une cellule du classeur = Feuil1.Range("C6").

N'hésitez pas à me dire si un fichier test peut vous intéresse, mais dans tous les cas il vous faut absolument un espace SharePoint pour essayer de reproduire mon problème...
En résumé, je cherche une automatisation permettant à l'utilisateur de déplace un fichier d'une bibliothèque SharePoint à une autre.

Merci d'avance pour votre aide,
Baptiste
 

Discussions similaires

Statistiques des forums

Discussions
315 087
Messages
2 116 086
Membres
112 656
dernier inscrit
VNVT