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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
If Dir(chemin & nom, vbDirectory) = "" Then
Il m'indique le message d'erreur suivant:

Erreur d'exécution "52" - Nom ou numéro de fichier incorrect
Par avance merci pour votre aide!

Flo