Microsoft 365 Vérification d'un dossier sur sharepoint vba

[lesoldat9]

Bonjour les experts,

Il y a t-il une formule sous VBA pour vérifier l'existence d'un dossier sur sharepoint ?

Cordialement.

 

[Phil69970]

Bonjour @lesoldat9

Je te propose ceci

Sub Vérif()
Dim Wbk As Workbook, Chemin$, Fichier$, FichierExiste$

Chemin = "https://monsharepoint/mondossier/monsousdossier/" '==> A adapter bien sur
Fichier = Range("A1")  '==> A adapter bien sur

FichierExiste = Dir(Chemin & Fichier)

If FichierExiste = "" Then
    MsgBox "Le fichier sélectionné n'existe pas"
    Exit Sub 'on sort par exemple
Else
    MsgBox "Le fichier sélectionné existe"
    'On fait une action
    Set Wbk = Workbooks.Open(Chemin & Fichier) 'on ouvre le fichier par exemple
End If
End Sub

Merci de ton retour

@Phil69970

 

[lesoldat9]

Bonjour @lesoldat9

Je te propose ceci

Sub Vérif()
Dim Wbk As Workbook, Chemin$, Fichier$, FichierExiste$

Chemin = "https://monsharepoint/mondossier/monsousdossier/" '==> A adapter bien sur
Fichier = Range("A1")  '==> A adapter bien sur

FichierExiste = Dir(Chemin & Fichier)

If FichierExiste = "" Then
    MsgBox "Le fichier sélectionné n'existe pas"
    Exit Sub 'on sort par exemple
Else
    MsgBox "Le fichier sélectionné existe"
    'On fait une action
    Set Wbk = Workbooks.Open(Chemin & Fichier) 'on ouvre le fichier par exemple
End If
End Sub

Merci de ton retour

@Phil69970

Je souhaite vérifier l'existence d'un dossier pour pouvoir ensuite enregistrer un fichier:

Si dossier existant on enregistre le fichier.
Sinon on créait un dossier via la macro puis on enregistre le fichier...
Merci.