Créer plusieurs documents à partir d'un seul document
mariadoc
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
essai2012 -
essai2012 -
Bonjour,
J'ai créer un publipostage à partir d'un fichier excel et obtenu un fichier word avec plusieurs pages. J'ai besoin d'enregistrer chaque page dans un dossier différent. Du coup j'aurais besoin de créer un document par page de publipostage.
Sauriez-vous comment faire ?
Merci d'avance et bonne journée !
J'ai créer un publipostage à partir d'un fichier excel et obtenu un fichier word avec plusieurs pages. J'ai besoin d'enregistrer chaque page dans un dossier différent. Du coup j'aurais besoin de créer un document par page de publipostage.
Sauriez-vous comment faire ?
Merci d'avance et bonne journée !
A voir également:
- Créer plusieurs documents à partir d'un seul document
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment reduire la taille d'un document - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Signer un document word - Guide
3 réponses
Bonjour,
Je n'ai jamais été confronté à ce problème, mais pour ma part je tenterai avec une macro. Qu'en penses-tu ?
Je n'ai jamais été confronté à ce problème, mais pour ma part je tenterai avec une macro. Qu'en penses-tu ?
J'en pense que du bien ! Sauf que je n'ai aucune idée ni compétence en matière de macro ... Tu peux m'aider ?
Sub test()
Dim file_name As String
With ActiveDocument.MailMerge.DataSource
.ActiveRecord = wdFirstRecord
file_name .DataFields("Disease") & .DataFields("Country")
ActiveDocument.SaveAs FileName:=file_name, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
For i = 1 To .RecordCount
.ActiveRecord = wdNextRecord
file_name = .DataFields("Disease") & .DataFields("Country")
ActiveDocument.SaveAs FileName:=file_name, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Next i
End With
End Sub
voici un script qui devrait t aider tiens moi au courant a+
Dim file_name As String
With ActiveDocument.MailMerge.DataSource
.ActiveRecord = wdFirstRecord
file_name .DataFields("Disease") & .DataFields("Country")
ActiveDocument.SaveAs FileName:=file_name, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
For i = 1 To .RecordCount
.ActiveRecord = wdNextRecord
file_name = .DataFields("Disease") & .DataFields("Country")
ActiveDocument.SaveAs FileName:=file_name, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Next i
End With
End Sub
voici un script qui devrait t aider tiens moi au courant a+