Créer un dossier via VBA sur Sharepoint
Bonjour,
Je souhaite utiliser une macro pour enregistrer un classeur Excel dont le nom dépend de la valeur d'une cellule. Mais avant cela je dois créer un dossier dont le nom dépend de la même cellule.
Ci-dessous ma tentative de code:
Code:
1
2
3
4
5
6
7
8
9
10
| chemin = "//as2020.sharepoint.com/sites/App/Documents%20partages/AppAS/MP/"
nom = Range("B1").Text
If Dir(chemin & nom, vbDirectory) = "" Then
MkDir (chemin & nom)
End If
ActiveWorkbook.SaveAs Filename:=chemin & nom & "/" & nom & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub |
Excel me détecte un problème sur la ligne:
Code:
If Dir(chemin & nom, vbDirectory) = "" Then
Il m'indique le message d'erreur suivant:
Citation:
Erreur d'exécution "52" - Nom ou numéro de fichier incorrect
Par avance merci pour votre aide!
Flo
