Microsoft 365 Créer dossiers, sous-dossiers et enregistrer sous OneDrive en ligne

Casim

XLDnaute Nouveau
Bonjour à tous,

J'ai une macro avec une création de dossiers et sous-dossiers utilisant mkdir.
Jusqu'à présent, je créais et enregistrais dans un environnement windows explorer (C: et un serveur distant WSS).
Mon entreprise fonctionne dorénavant avec un cloud OneDrive et supprime le WSS.
Je voudrais une macro qui crée les dossiers sur mon espace onedrive en ligne, et non pas dans l'environnement onedrive de mon poste, parce que je veux que cette macro soit utilisable depuis plusieurs postes.

Ce qui permet aux utilisateurs du fichier où se trouve la macro d'enregistrer sur l'espace onedrive et ce à distance.

J'ai cru comprendre que mkdir ne fonctionne que sous environnement windows, de ce fait, comment puis-je remplacer cette fonction?

Merci d'avance (mon code ci-dessous, j'ai enlevé la partie wss pour simplifier),


VB:
Sub Print_freinage_partiel()
Dim DossBF As String
DossBF = "c:\BF"
If Dir(DossBF, vbDirectory) = "" Then MkDir DossBF

Dim DossAnnéeC As String
DossAnnéeC = "c:\BF\" & Year(Date)
If Dir(DossAnnéeC, vbDirectory) = "" Then MkDir DossAnnéeC

Dim mois As String

If Month(Date) = 1 Then
mois = "Janvier"
End If
If Month(Date) = 2 Then
mois = "Février"
End If
If Month(Date) = 3 Then
mois = "Mars"
End If
If Month(Date) = 4 Then
mois = "Avril"
End If
If Month(Date) = 5 Then
mois = "Mai"
End If
If Month(Date) = 6 Then
mois = "juin"
End If
If Month(Date) = 7 Then
mois = "juillet"
End If
If Month(Date) = 8 Then
mois = "Aout"
End If
If Month(Date) = 9 Then
mois = "Septembre"
End If
If Month(Date) = 10 Then
mois = "Octobre"
End If
If Month(Date) = 11 Then
mois = "Novembre"
End If
If Month(Date) = 12 Then
mois = "Décembre"
End If

Dim DossmoisC As String
DossmoisC = "c:\BF\" & Year(Date) & "\" & mois
If Dir(DossmoisC, vbDirectory) = "" Then MkDir DossmoisC

Sheets("Rapport de freinage partiel").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\BF\" & Year(Date) & "\" & mois & "\" & "Freinage partiel " & Range("C4") & " du " & Format(Date, "dd-mm-yyyy") & " à " & Format(Time, "hh-mm-ss"), _
           Quality:=xlQualityStandard, _
           IncludeDocProperties:=True, IgnorePrintAreas:=False, _
           From:=1, To:=1, _
           OpenAfterPublish:=True
          
 
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
313 197
Messages
2 096 105
Membres
106 500
dernier inscrit
mmontagu