récuperer le chemin d'un document ou sauver dans le bon repertoire

re salut

toujours pour ma macro.

j'utilise la routine donn=E9e en exemple qui permet de faire un saveas
pour faire un sauvegarde en html (en fait je change l'extension car
l'objectif est juste d'obtenir les images dans un repertoire)

mais .SaveAs ne pose pas le fichier dans le repertoire origine du
document mais dans le repertoire par d=E9faut de Word (pour mon poste
/mes documents )

Comment faire,
- soit pour r=E9cuperer l'url du document courant pour l'ajouter au nom
du fichier avant sauvegarde
- soit pour sauvegarder directement dans le r=E9pertoire courant

=3D=3D=3D=3D code=3D=3D=3D=3D
Sub SaveAsHTML()
Dim strDocName As String
Dim intPos As Integer
'Find position of extension in filename
strDocName =3D ActiveDocument.Name

'Strip off extension and add ".tex" extension
strDocName =3D Left(strDocName, intPos - 1)
strDocName =3D strDocName & ".tex"

'Save file with new extension
ActiveDocument.SaveAs FileName:=3DstrDocName, _
FileFormat:=3DwdFormatHTML
=20
End Sub
=3D=3D=3D=3D=3Dcode=3D=3D=3D=3D