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

Phil69970 à dit:

Bonjour @lesoldat9

Je te propose ceci

VB:

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

Cliquez pour agrandir...