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

comeochris 51 Messages postés lundi 23 mai 2005Date d'inscription 19 octobre 2014 Dernière intervention - 30 sept. 2005 à 15:10 - Dernière réponse : comeochris 51 Messages postés lundi 23 mai 2005Date d'inscription 19 octobre 2014 Dernière intervention
- 3 oct. 2005 à 09:03
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
Afficher la suite 

2 réponses

Meilleure réponse
comeochris 51 Messages postés lundi 23 mai 2005Date d'inscription 19 octobre 2014 Dernière intervention - 3 oct. 2005 à 09:03
3
Merci
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

Merci comeochris 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

comeochris 51 Messages postés lundi 23 mai 2005Date d'inscription 19 octobre 2014 Dernière intervention - 30 sept. 2005 à 21:44
0
Merci
Personne n'a une idée ?

Je suis réellement bloqué, 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é
ActiveDocument.SaveAs FileName: =" c:\MonChemin.doc 'Enregistre le

Christophe

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.