1 ligne fusion publipostage=1 doc, possible ?
Sidonie
-
Sidonie -
Sidonie -
Bonjour le Forum
Lorsque je fusionne un document principal et une base de données avec 300 lignes par exemples, j'obtiens un document avec 300 pages. Existe t'il un moyen d'obtenir 300 documents distincts ou de créer une requête à partir du document de 300 pages qui génerait les 300 fichiers automatiquement ?
Je cherche des solutions pour satisfaire cette demande d'un utilisateur, mais je n'ai pas encore trouvé. Si quelqu'un a une solution elle est la bienvenue.
Merci pour votre aide
Sidonie
Lorsque je fusionne un document principal et une base de données avec 300 lignes par exemples, j'obtiens un document avec 300 pages. Existe t'il un moyen d'obtenir 300 documents distincts ou de créer une requête à partir du document de 300 pages qui génerait les 300 fichiers automatiquement ?
Je cherche des solutions pour satisfaire cette demande d'un utilisateur, mais je n'ai pas encore trouvé. Si quelqu'un a une solution elle est la bienvenue.
Merci pour votre aide
Sidonie
A voir également:
- 1 ligne fusion publipostage=1 doc, possible ?
- .Doc - Guide
- Partager photos en ligne - Guide
- Publipostage - Accueil - Word
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
4 réponses
Bonjour,
Voila un cas d'ecole ... Pourquoi votre client veur-il merger dans 300 fichiers ditincts?
Merci
James_007
------------------------------------------------------------
"Hurle le Dragon et le grain de riz germe en silence"
Voila un cas d'ecole ... Pourquoi votre client veur-il merger dans 300 fichiers ditincts?
Merci
James_007
------------------------------------------------------------
"Hurle le Dragon et le grain de riz germe en silence"
Il existe aussin un soft qui fait ca :
http://www.fourthworld.com/products/webmerge/
------------------------------------------------------------
"Hurle le Dragon et le grain de riz germe en silence"
http://www.fourthworld.com/products/webmerge/
------------------------------------------------------------
"Hurle le Dragon et le grain de riz germe en silence"
Bonjour James 007
Merci pour l'intérêt.
Il s'agit de créer des documents contenant des informations destinées à un seul utilisateur à la fois. 300 pages = 300 utilisateurs et chacun ne doit recevoir que sa partie (mots de passe, etc...). Toutes les données seront contenues dans un fichier Excel.
Suis également en train de chercher si cela est possible via VBA, ce qui doit l'être, mais je ne suis pas spécialiste. Peut-être avez-vous une piste ?
Merci
Sidonie
Merci pour l'intérêt.
Il s'agit de créer des documents contenant des informations destinées à un seul utilisateur à la fois. 300 pages = 300 utilisateurs et chacun ne doit recevoir que sa partie (mots de passe, etc...). Toutes les données seront contenues dans un fichier Excel.
Suis également en train de chercher si cela est possible via VBA, ce qui doit l'être, mais je ne suis pas spécialiste. Peut-être avez-vous une piste ?
Merci
Sidonie
Le publipostage va creer un page par utilisateur. Il n'y a donc pas de melange d'info. Je vois pas l'interet de devoir sauvegarder 1 page par utilisateur.
Une fois que la fusion est terminee, vous sauvegardez le fichier de 300 pages.
Si vous souhaitez de l'aude su la fusion XL <=> Word, faites moi un signe
A bientot
James_007
------------------------------------------------------------
"Hurle le Dragon et le grain de riz germe en silence"
Une fois que la fusion est terminee, vous sauvegardez le fichier de 300 pages.
Si vous souhaitez de l'aude su la fusion XL <=> Word, faites moi un signe
A bientot
James_007
------------------------------------------------------------
"Hurle le Dragon et le grain de riz germe en silence"
Je me suis mal exprimée je pense. Le but est de pouvoir faire parvenir la page qui le concerne à chaque utilisateur sans qu'il puisse voir les infos des autres personnes.
En attendant, j'ai trouvé une macro qui permet d'enregistrer chaque section séparément et qui va me servir de base de travail. Ne me restera plus qu'à trouver le moyen de nommer les fichiers de façon cohérente. La voici si elle peut être utile à quelqu'un (je ne l'ai pas encore testée).
Sub BreakOnSection()
Application.Browser.Target = wdBrowseSection
For i = 1 To ((ActiveDocument.Sections.Count) - 1)
ActiveDocument.Bookmarks("Section").Range.Copy
Documents.Add
Selection.Paste
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
ChangeFileOpenDirectory "C:"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
ActiveDocument.Close
Application.Browser.Next
Next i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub
Merci
Sidonie
En attendant, j'ai trouvé une macro qui permet d'enregistrer chaque section séparément et qui va me servir de base de travail. Ne me restera plus qu'à trouver le moyen de nommer les fichiers de façon cohérente. La voici si elle peut être utile à quelqu'un (je ne l'ai pas encore testée).
Sub BreakOnSection()
Application.Browser.Target = wdBrowseSection
For i = 1 To ((ActiveDocument.Sections.Count) - 1)
ActiveDocument.Bookmarks("Section").Range.Copy
Documents.Add
Selection.Paste
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
ChangeFileOpenDirectory "C:"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
ActiveDocument.Close
Application.Browser.Next
Next i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub
Merci
Sidonie
Je cherche à faire la même chose pour réaliser des rapports de conseils de classe par élève.
J'ai trouvé une réponse sur http://www.msusenet.com/archive/index.php/t-2889203.html
Mais je ne sais pas comment mettre en oeuvre ces éléments : si j'arrive à exécuter la macro renseignée par Sidonie, je ne comprends pas la contribution d'Anacoluthe dans l'autre forum.
Si un pro des macros et de VBA peut nous aider...
Déjà merci !
Jean-Marie
J'ai trouvé une réponse sur http://www.msusenet.com/archive/index.php/t-2889203.html
Mais je ne sais pas comment mettre en oeuvre ces éléments : si j'arrive à exécuter la macro renseignée par Sidonie, je ne comprends pas la contribution d'Anacoluthe dans l'autre forum.
Si un pro des macros et de VBA peut nous aider...
Déjà merci !
Jean-Marie
Hello Mister Mouton
Depuis que j'avais mis la macro en ligne, une solution avec un enregistrement par nom pour chaque section m'a été proposée et fonctionne!
En gros, la macro sépare par section le fichier de fusion et enregistre chaque fichier sous le nom du premier champ que j'ai mis dans mon document tout en haut à gauche (qui correspond à mon champ nom de mon tableau Excel). Comme la macro ne coupe pas le champ après, je l'ai simplement mis en caractères blancs pour qu'il ne s'imprime pas! (faut bien s'arranger quand on n'a pas le niveau). Ca a très bien fonctionné. Voici la macro complète, ci tu as des questions...
Sub EnregistrerUnDocParSection()
'
' Scinder2 Macro
' Macro enregistrée le 15/04/2005 par Sabine Kastler
'
Dim NomDeMonFichier()
r = ActiveDocument.Sections.Count
For i = 1 To r - 1
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=i, Name:=""
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
ReDim Preserve NomDeMonFichier(i)
NomDeMonFichier(i) = Selection
Next i
For i = 1 To r - 1
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=i, Name:=""
Selection.SetRange Selection.Start, Selection.GoTo(wdGoToSection, wdGoToNext, 1).End
Selection.Copy
Documents.Add
Selection.Paste
ChangeFileOpenDirectory "C:\test scinder" '******* A MODIFIER ******
ActiveDocument.SaveAs FileName:="A - " & NomDeMonFichier(i) & ".doc"
s = DoEvents
ActiveDocument.Close
s = DoEvents
Next i
End Sub
Merci, @+
Sidonie
Depuis que j'avais mis la macro en ligne, une solution avec un enregistrement par nom pour chaque section m'a été proposée et fonctionne!
En gros, la macro sépare par section le fichier de fusion et enregistre chaque fichier sous le nom du premier champ que j'ai mis dans mon document tout en haut à gauche (qui correspond à mon champ nom de mon tableau Excel). Comme la macro ne coupe pas le champ après, je l'ai simplement mis en caractères blancs pour qu'il ne s'imprime pas! (faut bien s'arranger quand on n'a pas le niveau). Ca a très bien fonctionné. Voici la macro complète, ci tu as des questions...
Sub EnregistrerUnDocParSection()
'
' Scinder2 Macro
' Macro enregistrée le 15/04/2005 par Sabine Kastler
'
Dim NomDeMonFichier()
r = ActiveDocument.Sections.Count
For i = 1 To r - 1
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=i, Name:=""
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
ReDim Preserve NomDeMonFichier(i)
NomDeMonFichier(i) = Selection
Next i
For i = 1 To r - 1
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=i, Name:=""
Selection.SetRange Selection.Start, Selection.GoTo(wdGoToSection, wdGoToNext, 1).End
Selection.Copy
Documents.Add
Selection.Paste
ChangeFileOpenDirectory "C:\test scinder" '******* A MODIFIER ******
ActiveDocument.SaveAs FileName:="A - " & NomDeMonFichier(i) & ".doc"
s = DoEvents
ActiveDocument.Close
s = DoEvents
Next i
End Sub
Merci, @+
Sidonie
Bonjour,
J'ai fait la macro en question et elle fonctionne bien. Toutefois, si mon document comporte une entête et un pied-de-page sur la première page de mon document (qui en comporte plusieurs), les documents qui en résultent ne sont pas recopiés. Je crois que c'est parce que les entêtes et pied-de-page sont déjà dans une section. Sauriez-vous comment modifier la macro pour copier également les entêtes et pied-de-page. Merci à l'avance
J'ai fait la macro en question et elle fonctionne bien. Toutefois, si mon document comporte une entête et un pied-de-page sur la première page de mon document (qui en comporte plusieurs), les documents qui en résultent ne sont pas recopiés. Je crois que c'est parce que les entêtes et pied-de-page sont déjà dans une section. Sauriez-vous comment modifier la macro pour copier également les entêtes et pied-de-page. Merci à l'avance
Hello Josiane
Malheureusement je ne peux t'être d'aucune aide, étant donné que la macro est le résultat du travail d'autres personnes. Par contre je peux te donner le lien vers un site de férus d'Excel et un site de fous de VB avec un super forum à chaque fois où tu auras de grandes chances d'y trouver des solutions.
Les voici :
http://vb.developpez.com/
http://www.excel-downloads.com/forums/2.htm
Sido
Malheureusement je ne peux t'être d'aucune aide, étant donné que la macro est le résultat du travail d'autres personnes. Par contre je peux te donner le lien vers un site de férus d'Excel et un site de fous de VB avec un super forum à chaque fois où tu auras de grandes chances d'y trouver des solutions.
Les voici :
http://vb.developpez.com/
http://www.excel-downloads.com/forums/2.htm
Sido
