Macro sous word Le sujet est résolu

Forum pour toutes vos questions concernant d'autres logiciels ou problèmes informatiques ...
Avatar du membre
writer77
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 10 juillet 2018
Version d'Excel : 2016

Message par writer77 » 10 juillet 2018, 23:07

Bonjour,
Je ne sais si je peux poser cette question pour word sur votre forum, mais je n'ai pas trouvé de forum pour word , un ami m'a conseiller d'essayer sur votre forum.
Je viens de faire cette macro, avec l'enregistreur de macro.

Code : Tout sélectionner

Sub PageduMatin02()
'
' PageduMatin02 Macro
'
'
    Selection.Copy
    ChangeFileOpenDirectory _
        "C:\CHEMIN\"
    Selection.Copy
    ActiveDocument.SaveAs2 FileName:= _
        "CHEMIN\fichier.docx" _
        , FileFormat:=wdFormatXMLTemplateMacroEnabled, LockComments:=False, _
        Password:="", AddToRecentFiles:=True, WritePassword:="", _
        ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, CompatibilityMode:=15
	
End Sub
J'aimerai changer la première commande "Selection.Copy" par une commande qui sélectionne la première ligne de la page, ou les 12 premiers caractères de la première ligne de la page.
et qui colle la copy à chaque nouveau fichier enregistré-sous, car le jour et l'heure change.
La première ligne est un champ automatique Date et Heure.
Et j'aimerai à la fin de la macro, fermer word.
Merci.
Modifié en dernier par writer77 le 12 juillet 2018, 14:48, modifié 1 fois.
Avatar du membre
writer77
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 10 juillet 2018
Version d'Excel : 2016

Message par writer77 » 12 juillet 2018, 14:46

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

Code : Tout sélectionner

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message