Discussion :

[mrnne]

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

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Menhir]

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.

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Quit

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

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

[mrnne]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

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.

[Guy7700]

Bonjour,

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

Bàt,

[mrnne]

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

[Menhir]

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.