IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBA Excel+Word] modification du résultat du publipostage


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    22
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 22
    Par défaut [VBA Excel+Word] modification du résultat du publipostage
    Bonjour,

    Je vais essayer d'etre clair (en fait c pas compliqué^^)
    Je pars d'excel. En VBA j'ai un bouton qui réalise les choses suivantes :
    1. tri d'une bases de donnée sur Feuil1
    2. Ajout d'un X a la fin de chaque ligne répondant au critère de tri
    3. Copie des lignes obtenues vers Feuil2
    4. Publipostage de ces lignes vers Word

    A ce moment de la procédure j'ai 3 fichiers ouverts : mon fichier excel, mon fichier word de modèle d'étiquettes, et mon fichier word de résultat de publipostage.

    J'aimerai, toujours en partant de mon bouton dans mon formulaire sous excel, réaliser une recherche et un remplacement de texte dans le document word résultat de publipostage.

    Le document word résultat de publipostage s'apelle toujours "Lettres types1" mais je n'arrive pas à le sélectionner puisqu'a ce moment de la procédure il n'est pas sauvegardé ; on ne peut donc pas le sélectionner dans un répertoire. C'est également le document visible sur mon écran, mais ActiveDocument semble ne pas fonctionner.

    Je vous passe mon code de fusion :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Set wdApp = New Word.Application
        With wdApp
            .Visible = True
            .Documents.Open "C:\Documents and Settings\Administrateur\Bureau\modèleetiquette.doc"
            .ActiveDocument.MailMerge.OpenDataSource Name:="C:\Documents and Settings\Administrateur\Bureau\Anciens élus(2).xlsm", sQLStatement:="SELECT * FROM [Feuil3$]"
            .ActiveDocument.MailMerge.Destination = wdSendToNewDocument
            .ActiveDocument.MailMerge.Execute
        'With wdApp
        With ActiveDocument.Selection.Find
            .Text = "  "
            .Replacement.Text = " "
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With ActiveDocument.Selection.Find
            .Text = ", ^p"
            .Replacement.Text = "^p"
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        End With
    End If
    End Sub
    C'est juste apres
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    .ActiveDocument.MailMerge.Execute
    Comment lui dire de sélectionner un document word "flottant" ou alors le résultat de "wssendtonewdocument" ?

    merci de votre aide ou de vos conseils

  2. #2
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonjour

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
            .Text = "  "
            .Replacement.Text = " "
    à quoi correspondent ces espaces que tu cherches à supprimer ?

    Pourquoi ne pas les supprimer directement dans la source de données ou modifier la mise en forme du document principal ?


    bonne journée
    michel

Discussions similaires

  1. VBA/EXCEL/WORD parcourir sous repertoires
    Par jef35jef dans le forum VBA Word
    Réponses: 1
    Dernier message: 21/02/2007, 16h39
  2. VBA EXCEL/WORD
    Par forsay1 dans le forum VBA Word
    Réponses: 2
    Dernier message: 16/01/2006, 13h37
  3. VBA EXCEL / WORD
    Par forsay1 dans le forum VBA Word
    Réponses: 7
    Dernier message: 23/12/2005, 11h49
  4. VBA EXCEL / WORD
    Par forsay1 dans le forum VBA Word
    Réponses: 17
    Dernier message: 20/12/2005, 16h23
  5. [VBA Excel Word]Adapter un code Excel a Word
    Par Baxter67 dans le forum VBA Word
    Réponses: 4
    Dernier message: 08/08/2005, 23h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo