Private Sub CommandButtonEnregitrer_Click()
'Détecte le sous répertoir :
ChDir ThisWorkbook.Path & '\\Données Sites\\44'
'Sauvegarde le classeur avec le nom inséré dans le TextBox
ActiveWorkbook.SaveAs TextBoxNomSite.Value
'Enregistre le nouveau nom du classeur dans E15
Range('E15').Value = TextBoxNomSite.Value
ActiveWorkbook.Save
Unload Me
End Sub
Mais le problème est qu'a chaquue fois mon classeur se retrouve enregistré dans 'Mes documents' au lieu de '44'.
Ou est mon Erreur ?
Si quelqu'un à la solution.
Merci.