vba word 2007 sauvegarder sous

Bonjour,

J'ai besoin d'aide svp.
Je cherche a creer une macro word qui me permettrait de sauvegarder un document sous 'enregistrer sous' en prenant comme nom de sauvegarde la 1ere ligne de mon document.
Pour le moment j'ai pu selectionner la 1ere ligne de mon document mais je n'ai pas reussi a le coller commer nom de sauvegarde du fichier.
Pouvez m'aidez svp?

Pour le moment mon code ressemble a ca mais il y a une erreur au niveau du paste :

Sub Macro1()
'
' Macro1 Macro
'
'
ActiveDocument.Paragraphs(1).Range.Select
Selection.Copy
ActiveDocument.SaveAs FileName:=Paste

End Sub

Par example

Code:

---

Sub Macro1()
Dim fname As String

    fname = ActiveDocument.Paragraphs(1).Range
    ActiveDocument.SaveAs FileName:=fname
End Sub

---

Merci pour la reponse.
Avec ce code, j'ai un message d'erreur :

Erreur d'execution'5487':
Impossible de terminer l'enregistrement : erreur d'autorisation d'acces au fichier

J'ai trrouve la solution grace a un autre post.

Il fallait ajouter la ligne :

fname = Left(fname, (Len(fname)-1))

qui permettait d'avoir un nom d'enregistrement valide

aah, la fin de la phrase :)