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 :
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
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 SubCe 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