Consulting

Results 1 to 5 of 5

Thread: vba word 2007 sauvegarder sous

  1. #1
    VBAX Newbie
    Joined
    Jan 2020
    Posts
    3
    Location

    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

  2. #2
    Distinguished Lord of VBAX VBAX Grand Master Bob Phillips's Avatar
    Joined
    Apr 2005
    Posts
    25,443
    Location
    Par example

    Sub Macro1()
    Dim fname As String
    
        fname = ActiveDocument.Paragraphs(1).Range
        ActiveDocument.SaveAs FileName:=fname
    End Sub
    ____________________________________________
    Nihil simul inventum est et perfectum

    Abusus non tollit usum

    Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
    James Thurber

  3. #3
    VBAX Newbie
    Joined
    Jan 2020
    Posts
    3
    Location
    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

  4. #4
    VBAX Newbie
    Joined
    Jan 2020
    Posts
    3
    Location
    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

  5. #5
    Distinguished Lord of VBAX VBAX Grand Master Bob Phillips's Avatar
    Joined
    Apr 2005
    Posts
    25,443
    Location
    aah, la fin de la phrase
    ____________________________________________
    Nihil simul inventum est et perfectum

    Abusus non tollit usum

    Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
    James Thurber

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •