Exporter un onglet sur OneDrive

Bonjour,

Voici le code que j'ai mis en place mais cela bug au moment de la dernière ligne

code effacé car buggé

Merci de vos retours.

Leakim

Bonsoir,

Petit UP.

L'idée du post c'est d'exporter la feuille d'où on appelle la macro pour un dépôt sur une adresse web.

Le code ci-dessous fonctionne super pour le local avec Path2

Lorsque je mets le Path "web" j'ai un bug de méthode de sauvegarde.

Merci d'avance de vos lumières.

Leakim

Sub drive()
Dim path As String
Dim path2 As String
Dim sheetname As String

ActiveSheet.Copy

Application.DisplayAlerts = False

path = "https://872478-my.sharepoint.com/personal/qualite_info/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Fqualite%5Finfo%2FDocuments%2FEchanges%5FESAT%2F03%20%2D%20ESAT%20de%20Tr%C3%A9laz%C3%A9/"
'path2 = "\\adap.local\Fichiers\Production\Gestion\GRAINES\Drive\"

sheetname = ThisWorkbook.ActiveSheet.Name

ActiveWorkbook.SaveAs Filename:=path & sheetname, FileFormat:=51

ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub

Bonjour Leakim

L'erreur est de vouloir effectuer une sauvegarde sur un lien Internet,
il faut faire la sauvegarde dans le dossier local lié à OneDrive

Sub drive()
  Dim Path As String
  Dim SheetName As String

  ActiveSheet.Copy
  Application.DisplayAlerts = False

  Path = "C:\Users" & Environ$("Username") & "\OneDrive\"
  SheetName = ThisWorkbook.ActiveSheet.Name
  ActiveWorkbook.SaveAs Filename:=Path & SheetName, FileFormat:=51
  ActiveWorkbook.Close SaveChanges:=False

  Application.DisplayAlerts = True
End Sub

A+

Bonjour,

Merci #BrunoM45 pour le changement de nom du fil, c'est plus clair.

Tu veux dire que c'est comme pour une GED ?

Leakim

Re,

Je ne sais pas pourquoi vous comparez ça à une GED, mais j'ai vu dans le lien indiqué "personnal"
donc pour moi, logiquement vous devez avoir un connecteur PC <-> Onedrive et donc un dossier en local

Si ce n'est pas le cas, il faut alors utiliser un chemin d'accès réseau, à savoir quelque chose du style :

\\monserveur.net@SSL\sites\mon-site\Shared Documents\mon-dossier\Workbook.xlsx

A+

Re,

Oui, je compare à une GED car c'est comme çà que cela fonctionne à mon boulot.

Avec l'adressage adapté comme tu me le proposes et bien cela fonctionne.

Merci