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

Microsoft Office Discussion :

Remplacement d'un texte dans word par une macro sur excel


Sujet :

Microsoft Office

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Février 2015
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Février 2015
    Messages : 3
    Points : 1
    Points
    1
    Par défaut Remplacement d'un texte dans word par une macro sur excel
    Bonjour

    J'ai fait un peu le tour des discussions sur le sujet et je n'arrive pas à savoir pourquoi le texte ne se remplace pas comme prévu.
    Voici la macro que j'utilise sous Excel :

    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
    24
    25
    26
    27
    28
    29
    30
    31
    Sub Text_Replace_Word()
     
    Dim Word_App As Object
    Dim Word_Doc As Object
     
    Set Word_App = CreateObject("Word.Application")
    Word_App.Visible = True
     
    Set Word_Doc = Word_App.Documents.Open("C:\Users\\New.txt")
     
    Text_Replace = "Replace_text"
    Text_Find = "Original_text"
     
    Word_App.Selection.Find.ClearFormatting
    Word_App.Selection.Find.Replacement.ClearFormatting
     
    With Word_App.Selection.Find
        .Text = Texte_Find
        .Replacement.Text = Texte_Replace
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Word_App.Selection.Find.Execute Replace:=wdReplaceAll
     
    End Sub
    Il ouvre bien le fichier New.txt, trouve bien "Original_text", mais reste bloqué dessus sans le remplacer ...
    La macro ne bug pas.
    Pouvez-vous m'aider svp ?

    Tchuss
    Benoit L

  2. #2
    Expert éminent sénior
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Points : 18 677
    Points
    18 677
    Par défaut

    Bonjour, bonjour !

    Conformément aux règles du forum, merci d'utiliser l'icône # pour baliser le code ‼

    Pourquoi appeler Word depuis Excel ?‼ Quel intérêt ?

    Soit développer directement dans Word,
    soit ouvrir le fichier texte dans Excel pour effectuer un Rechercher / Remplacer et,
    en ayant activé l'Enregistreur de macros, le code est livré sur un plateau !

    Et si c'est ponctuel, l'effectuer manuellement dans Word, Wordpad ou même le Bloc-notes !

    __________________________________________________________________________________________________
    Tous unis, tous Charlie
    C'est parce que la vitesse de la lumière est plus rapide que celle du son que tant de gens paressent brillants avant d'avoir l'air con ! (Thomas Boishardy)

  3. #3
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Points : 11 274
    Points
    11 274

  4. #4
    Nouveau Candidat au Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Février 2015
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Février 2015
    Messages : 3
    Points : 1
    Points
    1
    Par défaut
    @Marc

    tout d'abord merci d'avoir mis en forme mon code.
    J'avais pas réussi à trouver comment faire.

    Pour mon code, mes documents de base sont tous fait sur excel.
    Je fais interagir des documents excel avec des fichiers texte, en lançant un logiciel et exécutant ces fichiers texte en macro dans ce logiciel, pour automatiser, la configuration du logiciel au démarrage,
    suivant certains critères de départ.
    J'ai essayé sur excel d'ouvrir et modifier (ce que je fais pour d'autres trucs), mais soit lors de la sauvegarde il me fait un changement de mise en forme du texte,
    soit il n'accepte pas de remplacer certains caractères.

    @kiki29

    Merci pour le lien mais je l'ai déjà lu et cela ne m'a rien apporté de nouveau.
    Je crois avoir fait les choses correctement.
    C'est pour ça que je fais appel à vous.

  5. #5
    Nouveau Candidat au Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Février 2015
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Février 2015
    Messages : 3
    Points : 1
    Points
    1
    Par défaut
    Je vous relance pour savoir si vous avez trouvé une anomalie dans mon code et savoir si cela vous est déjà arrivé !?
    La macro ne bug pas mais ne fait pas le remplacement ce qui est bloquant pour la suite des opérations.
    Merci d'avance

Discussions similaires

  1. [XL-2007] Rechercher et remplacer du texte dans word avec une macro excel
    Par littlepower dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 06/07/2015, 08h59
  2. Alimentation d'un tableau word par une macro
    Par YAJ_SKG dans le forum VBA Word
    Réponses: 4
    Dernier message: 15/09/2011, 10h15
  3. Remplacer texte dans Word par Textbox avec scrollbar
    Par 31400 dans le forum VBA Word
    Réponses: 0
    Dernier message: 06/09/2011, 15h06
  4. créer un évenement dans ThisWorkbook par une macro
    Par jmcrib dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/09/2007, 12h56

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