La methode SAVE AS de l'objet Workbook a échoué [Résolu]

Signaler
Messages postés
3
Date d'inscription
lundi 7 décembre 2020
Statut
Membre
Dernière intervention
7 décembre 2020
-
Messages postés
3
Date d'inscription
lundi 7 décembre 2020
Statut
Membre
Dernière intervention
7 décembre 2020
-
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

3 réponses

Messages postés
31087
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 janvier 2021
3 193
Bonjour
pour concaténer en visual Basic ce n'est pas le signe plus qu'il faut utiliser mais l'esperluette. Le &
Messages postés
3
Date d'inscription
lundi 7 décembre 2020
Statut
Membre
Dernière intervention
7 décembre 2020

J'ai déjà essayé avec le &. Cela n'enregistre pas le fichier. En revanche, dans les deux cas le fichier se renomme correctement.
Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
2 555
Bonjour,

Y a t'il plusieurs classeurs ouverts?
Si oui, lequel doit-être "enregistré sous"?

Cordialement,
Franck
Messages postés
3
Date d'inscription
lundi 7 décembre 2020
Statut
Membre
Dernière intervention
7 décembre 2020

Bon...

Après deux jours de recherche et 3 forum sollicité.... il y avait une faute dans mon chemin.... TBD bs TDB

Merci tout de même