Bonsoir à tous.
Je cherche un code pour enrgistrer un classeur excel dans un sous répertoire du classeur.
En plus claire, j'ai 1 répertoire 'ApplicationXL' qui comporte mon classeur, dans lequel il y à un sous répertoir 'Données Sites\\44'
J'ai réalisé un Userform comportant ce code :
Je cherche un code pour enrgistrer un classeur excel dans un sous répertoire du classeur.
En plus claire, j'ai 1 répertoire 'ApplicationXL' qui comporte mon classeur, dans lequel il y à un sous répertoir 'Données Sites\\44'
J'ai réalisé un Userform comportant ce code :
Code:
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.