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),
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
