Enregistrement classeur VBA

Bonjour,

J'ai un problème lors de l'éxecution d'une macro devant enregistrer un classeur à un emplacement.
Cette emplacement est un sharepoint (en ligne donc)
Mon code est le suivant :

Code:

---

1 2 3 4 5 6 7 8

Dim Fichier As String Fichier = "https://xxxx.sharepoint.com/nomdufichier.xlsx"   ActiveWorkbook.SaveAs Filename:= _ Fichier _ , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False   Application.Quit

---

Cependant je fais face au message d'erreur suivant : "la méthode Save de la classe Workbook a échoué"

Auriez-vous des précisions à ce sujet ?

Merci par avance,

Citation:

---

Envoyé par mrnne

J'ai un problème lors de l'éxecution d'une macro devant enregistrer un classeur à un emplacement.
Cette emplacement est un sharepoint (en ligne donc)

---

Je ne voudrais pas te casser le moral mais je n'ai pas vu de solution viable aux demandes sur ce forum concernant ce type de demande.

A ta place, je décomposerai le problème en deux.
D'abord faire un enregistrement local du fichier
Ensuite transférer le fichier enregistré sur Sharepoint.

Voir, par exemple, s'il serait possible de déclarer l'hébergement Sharepoint comme un disque local.

Citation:

---

Code:

---

Application.Quit

---

---

Ca c'est une TREEES mauvaise idée.
Très dangereux ! 8O

Au pire, tu pourrais faire un ActiveWorkbook.Close, beaucoup moins dangereux.

Bonjour,

Merci beaucoup pour ta réponse !
J’ai en effet enregistré le fichier localement.
J'essaye maintenant de le transférer à l'aide d'une nouvelle macro ;
Bonjour,



Mon code est le suivant, mais je reçois un message d'erreur : "la méthode move file de l'objet IFileSystem3 a échoué"
La macro fonctionne si la destination est un emplacement du serveur...

Merci par avance pour ton aide si tu as d'autres idées !

Bonne journée,

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Transfertsharepoint()   Destination = "\\xxxxxx.sharepoint.com\sites\cisa\chasup\Documents%20partages\"   file = Application.GetOpenFilename   Set fso = CreateObject("Scripting.FileSystemObject")   fso.MoveFile file, Destination '   End Sub

---

Citation:

---

Envoyé par mrnne

J’ai en effet enregistré le fichier localement.
J'essaye maintenant de le transférer à l'aide d'une nouvelle macro ;

---

Rien n'empêche de faire les deux dans la même macro.

Citation:

---

Mon code est le suivant, mais je reçois un message d'erreur : "la méthode move file de l'objet IFileSystem3 a échoué"
La macro fonctionne si la destination est un emplacement du serveur...

---

Essaye plutôt de le faire en deux temps : copie vers la destination puis suppression du fichier source.

Comme je l'ai dis, ça a plus de chances de fonctionner si l'hébergement est déclaré comme un disque local.

Bonjour,

Apparemment, un utilisateur du forum aurait trouvé une solution à découvrir ici : https://www.developpez.net/forums/d1.../#post10247323

Bàt,

Bonjour, merci beaucoup pour votre réponse !! Je vais me pencher sur cette discussion, je vous ferai un retour.
Bonne journée

Comme je le disais, ça passe par une déclaration en disque local.
Personnellement, j'éviterais les lettres de A à E pour la déclaration en disque local.