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

  • Initiateur de la discussion Initiateur de la discussion Horusbk
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
522
Retour