Bonjour,
J'ai un fichier Excel qui contient des macros sur Sharepoint. Je souhaiterai que l'utilisateur puisse, en cliquant sur un bouton, enregistrer un fichier XML depuis son ordinateur vers Sharepoint automatiquement.
Le problème est que ma macro ne fonctionne que si on déplace un fichier d'un endroit de l'ordinateur à un autre. Dès qu'il faut écrire sur le Sharepoint c'est impossible : il met une erreur ! Je pense que la solution doit être dans une bibliothèque à activer ou une variable particulière à mettre en place mais je ne trouve pas ... Si l'un d'entre vous aurait une piste ce serait top
Je vous mets ici ma macro qui fonctionne sur PC (c'est-à-dire si à la place de http://... on met par exemple C:\...)
Sub importXML()
Dim file As String
Dim chemin As String
Dim Fichier As Object
chemin = ActiveWorkbook.Path 'mon Excel étant sur Sharepoint, il s'agit de la destination de mon fichier (ex : "https://....sharepoint.com/sites/...)
file = Application.GetOpenFilename 'ouverture fenêtre pour que l'utilisateur sélectionne son fichier XML à déplacer (ex : C:\Mes documents ...)
Set fso = CreateObject("Scripting.FileSystemObject")
Set dos = fso.GetFolder(dosfichiers)
fso.MoveFile file & "\" & Fichier.Name, chemin & "/" & Fichier.Name
End Sub
Merci pour vos idées/suggestions/pistes...
J'ai un fichier Excel qui contient des macros sur Sharepoint. Je souhaiterai que l'utilisateur puisse, en cliquant sur un bouton, enregistrer un fichier XML depuis son ordinateur vers Sharepoint automatiquement.
Le problème est que ma macro ne fonctionne que si on déplace un fichier d'un endroit de l'ordinateur à un autre. Dès qu'il faut écrire sur le Sharepoint c'est impossible : il met une erreur ! Je pense que la solution doit être dans une bibliothèque à activer ou une variable particulière à mettre en place mais je ne trouve pas ... Si l'un d'entre vous aurait une piste ce serait top
Je vous mets ici ma macro qui fonctionne sur PC (c'est-à-dire si à la place de http://... on met par exemple C:\...)
Sub importXML()
Dim file As String
Dim chemin As String
Dim Fichier As Object
chemin = ActiveWorkbook.Path 'mon Excel étant sur Sharepoint, il s'agit de la destination de mon fichier (ex : "https://....sharepoint.com/sites/...)
file = Application.GetOpenFilename 'ouverture fenêtre pour que l'utilisateur sélectionne son fichier XML à déplacer (ex : C:\Mes documents ...)
Set fso = CreateObject("Scripting.FileSystemObject")
Set dos = fso.GetFolder(dosfichiers)
fso.MoveFile file & "\" & Fichier.Name, chemin & "/" & Fichier.Name
End Sub
Merci pour vos idées/suggestions/pistes...