Macro sous word Le sujet est résolu

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
Avatar du membre
writer77
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 10 juillet 2018
Version d'Excel : 2016
Version de Calc : LibreOffice6
Contact :

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.
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
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 10 juillet 2018
Version d'Excel : 2016
Version de Calc : LibreOffice6
Contact :

Message par writer77 » 12 juillet 2018, 14:46

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