Comment activer un document qui vient d'être fusionné ?Résolu

Question

Bonjour,

Merci de votre compréhension, c'est peut-être une question bête mais je bloque... (Et je suis Stagiaire).
Voilà, j'ai créé une procédure qui permet de fusionner un document et j'aimerais enregistrer le résultat de la fusion. Pb : Comment sélectionner un document qui vient d'être fusionné pour pouvoir utiliser la propriété saveas de activedocument ??? En d'autres termes, comment rendre actif le résultat d'une fusion pour pouvoir l'enregistrer sous... ?

        Documents.Open FileName:="Doc1.doc", ReadOnly:=True         'Ouvre le modèle en lecture seule
        Documents("Doc1.doc").Activate
        With ActiveDocument
            .MailMerge.Destination = wdSendToNewDocument 'Définition du résulatat de la fusion comme document
            .MailMerge.Execute                           'Exécution de la fusion
            .Close SaveChanges:=wdDoNotSaveChanges       'Ferme le modèle sans enregistrer de chgmt
        End With
        Documents(???????????).Activate                  'Positionne-toi sur le document fusionné
        ActiveDocument.SaveAs FileName:=" c:\MonChemin.doc   'Enregistre le

Merci pour vos lumières.

Un pauvre Stagiaire dans la pénombre.
Christophe

comeochris · Accepted Answer

Bonjour,

Je me réponds à moi-même (et si ça peut aider pour d'autres, ne vous gênez pas) : En fait le document fusionné devient le document actif après sa fusion.
Il suffit de l'enregistrer juste après la fusion, et voilà le tour est joué.


        Documents.Open FileName:="Doc1.doc", ReadOnly:=True         
        Documents("Doc1.doc").Activate                                  
        With ActiveDocument
            .MailMerge.Destination = wdSendToNewDocument
            .MailMerge.Execute Pause:=True
        End With
        ActiveDocument.SaveAs FileName:= "c:\MonChemin.doc"       
        Documents("Doc1.doc").Activate                           
        ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges 


Bonne programmation,

Christophe

comeochris · Answer

Personne n'a une id&#233;e ?

Je suis r&#233;ellement bloqu&#233;, HELP.

        Documents.Open FileName:= "Doc1.doc", ReadOnly:=True         
        Documents("Doc1.doc").Activate
        With ActiveDocument
            .MailMerge.Destination = wdSendToNewDocument 
            .MailMerge.Execute
            .Close SaveChanges:=wdDoNotSaveChanges 
        End With
        Documents( ??????????? ).Activate  'Positionne-toi sur le document fusionn&#233;
        ActiveDocument.SaveAs FileName: =" c:\MonChemin.doc   'Enregistre le

Christophe

Comment activer un document qui vient d'être fusionné ?

2 réponses

Discussions similaires