La methode SAVE AS de l'objet Workbook a échoué

Bonjour à tous,

J'ai épluché les sujets similaires mais je n'arrive pas à trouver ma solution à cette erreur. J'ai récupéré une macro qui existait déjà dans un de nos fichiers et qui fonctionne. La seule différence est que dans la mienne j'ajoute des variables via un userform.

Je veux enregistrersous mon classeur dans un fichier existant (2020 - TDB ABS TARIFICATION) et le renommer avec l'année et le mois qui sont déterminée dans le userform (2020-11 TDB ABS TARIFICATION)

Je vous montre mon code. Merci de l'aide apportée

Private Sub CommandButton1_Click()

Dim mois As String, Annee As Long
Dim chemin As String
Dim fichier As String

Annee = ComboBox2.Value
mois = ComboBox3.Value

'Enregsitrement du fichier

chemin = "S:\BUDGETS\Dde DONNEES\DEMANDES DONNEES SECTEURS\TARIFICATION\TBD ABS TARIFICATION\" & Annee & " - TDB ABS TARIFICATION\"
fichier = Annee & "-" & mois & " TDB ABS TARIFICATION.xlsm"

With ActiveWorkbook
.SaveAs Filename:=chemin + fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End With

End Sub

Private Sub UserForm_Initialize()

ComboBox2.AddItem 2018
ComboBox2.AddItem 2019
ComboBox2.AddItem 2020
ComboBox2.AddItem 2021
ComboBox2.AddItem 2022

ComboBox3.AddItem "01"
ComboBox3.AddItem "02"
ComboBox3.AddItem "03"
ComboBox3.AddItem "04"
ComboBox3.AddItem "05"
ComboBox3.AddItem "06"
ComboBox3.AddItem "07"
ComboBox3.AddItem "08"
ComboBox3.AddItem "09"
ComboBox3.AddItem "10"
ComboBox3.AddItem "11"
ComboBox3.AddItem "12"

End Sub

Bonjour,

.SaveAs Filename:=chemin + fichier, >> devrait être >> .SaveAs Filename:=chemin & fichier,

ric

Bonjour toutes et tous

@Ric je pense aussi que le chemin sera en conflit puisque :

chemin = "S:\BUDGETS\Dde DONNEES\DEMANDES DONNEES SECTEURS\TARIFICATION\TBD ABS TARIFICATION\" & Annee & " - TDB ABS TARIFICATION\"

Bonjour à tous,

crée ton répertoire avec mkdir avant.
eric

@Ric j'ai déja essayé de mettre le & à la place du + et le meme probleme se produit.

@Eriic mon repertoire c'est à dire ? Le dossier d'enregistrement esixte déjà sur mon reseau.

Pour info lorsque que je clique sur mon bouton "enregistrer" le fichier se renomme bien comme il faut mais c'est l'enregistrement qui coince

Ok. Je pense que tu es sûre à 100% que tu as les droits dessus également.
A tout hasard, essaie avec le chemin UNC : \\nom_de_ton_serveur\ton_chemin\...
Parfois vba a du mal avec l'autre.
eric