vba word 2007 sauvegarder sous

[fbryce]

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

[Bob Phillips]

Par example


Sub Macro1()
Dim fname As String

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

[fbryce]

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

[fbryce]

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

[Bob Phillips]

aah, la fin de la phrase :)