Problème de lieu de sauvegarde

[fox92]

Bonjour,

Voila, j'ai codé une macro qui me permet de sauvegarder un fichier suivant une certaine nomenclature. Je souhaiterais en ouvrant un nouveau fichier, remplacer le titre de ce fichier par cette nomenclature et sauvegarder celui ci à l'endroit du fichier ouvert. Or en activant cette macro, celle ci est sauvegarder dans le dossier "Mes Documents". Voici mon code pour que vous puissiez vous faire une idée de mon problème.


Dim Chemin As String, Fichier As String

Chemin = ActiveDocument.Path

'Ajoute les éléments de l'userform dans le nom du fichier

)

Fichier = UserForm1.TextBox1.Value & " " & UserForm1.TextBox5.Value & " " & UserForm1.TextBox7.Value & " " & UserForm1.TextBox1.Value ".doc"


ActiveDocument.SaveAs Chemin & Fichier

Merci d'avance,

 

[Pierrot93]

Re : Problème de lieu de sauvegarde

Bonjour,

avec "ActiveDocument" c'est plutôt une macro "Word", non .. ici c'est le forum Execl, préférable de poster dans le forum autre appli office...

Autres applications Microsoft Office

bon après midi
@+

 

[CHALET53]

Re : Problème de lieu de sauvegarde

Bonjour,

peut-être :

ActiveDocument.SaveAs Chemin & "\" & Fichier