Discussion :

[Flo4591]

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

[EricDgn]

Bonjour,
Commencer par remplacer %20 par un espace et les / par des \.
Il y a parfois des caractères qui ne sont pas visibles dans les noms de fichiers, dont Chr(9).
Cordialement.

[SolalOnepiece]

Bonjour, @Flo4589

As-tu finalement pu trouver une solution à ton problème si oui je veux bien voir ton code .

CDT.