[RESOLU] Variable dans une macro sous word

Résolu/Fermé

writer77 Messages postés 2 Date d'inscription jeudi 12 juillet 2018 Statut Membre Dernière intervention 12 juillet 2018 - Modifié le 12 juil. 2018 à 14:43
writer77 Messages postés 2 Date d'inscription jeudi 12 juillet 2018 Statut Membre Dernière intervention 12 juillet 2018 - 12 juil. 2018 à 14:40

Bonjour,

J'aimerai savoir comment faire appel à une variable dans un nom de fichier à enregistrer.
j'ai une macro pour enregistrer un fichier sous un autre nom, mais je ne sais pas incrémenter ma variable.


Sub PageMatin()
'
' PageMatin Macro
'
'
'Sélection des 16 premier caractères de la ligne Une (espace compris)
    Set montexte = ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:=ActiveDocument.Content.Start + 16)
montexte.Copy
'création de la variable
Dim monFichier As String
'Appel de la variable
    monFichier = montexte
'Enregistrement du fichier sous avec la variable dans le nom de fichier
    ActiveDocument.SaveAs2 FileName:= _
        "C:\CHEMIN\ICI_LA_VARIABLE.docx" _
        , CompatibilityMode:=15
' ferme word
    Application.Quit
End Sub

Merci

A voir également:

[RESOLU] Variable dans une macro sous word
Supprimer une page word - Guide
Macro word - Guide
Espace insécable word - Guide
Organigramme word - Guide
Word gratuit - Guide

1 réponse

Réponse 1 / 1

writer77 Messages postés 2 Date d'inscription jeudi 12 juillet 2018 Statut Membre Dernière intervention 12 juillet 2018
12 juil. 2018 à 14:40

Bonjour,
Je viens de trouver la solution.
Voici la macro finie et fonctionnelle.


Sub PageMatin()
'
' PageMatin Macro
'
'
'Sélection des 17 premiers caractères de la ligne Une (espace compris)
    Set montexte = ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:=ActiveDocument.Content.Start + 17)
montexte.Copy
'création de la variable
Dim monFichier As String
'Appel de la variable
    monFichier = montexte
'Enregistrement du fichier sous avec la variable dans le nom de fichier
    ActiveDocument.SaveAs2 FileName:= _
        "C:\CHEMIN\" & monFichier _
        , CompatibilityMode:=15
' ferme word
    Application.Quit
End Sub

Discussions similaires

programme qui n'affiche pas le mot secret

Symbole Attention dans Word

Discussions similaires

Newsletters