remplacer des mots en utilisant file input et

Version imprimable

Bonjour,

Je voudrais depuis excel (VBA), ouvrir un fuchier un word, remplacer quelques mots par de valeurs lues sur la feuille excel en utilisant file input et file outpout.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim tempstr, temp vacature = Trim(Range("F3").Text) Open "C:Mailingmaker.doc" For Input As #1 Do While Not EOF(1) Line Input #1, temp tempstr = tempstr & temp Loop Close #1 tempstr = Replace(tempstr, "<function", vacature) Open "C:\Mailingmaker.doc" For Output As #1 Print #1, tempstr Close #1
Mais l'application word est bien demarrée, car le document est vide, alors qu'il contien du texte. Mais rien ne se passe.

Merci de votre aide

27/11/2008, 22h11
ucfoutu

Bonsoir,

Un fichier Word ne saurait être lu et écrit par cette méthode (ton code est valable pour un fichier texte, ce qui n'est pas le cas d'un fichier Word).

EDIT : J'ajoute que si tu t'amuses à lire par open la totalité (c'est possible), à la modifier, puis à la réécrire ===>> ton fichier Word deviendra totalement inexploitable (même plus ouvrable depuis Word).
28/11/2008, 10h02
decondelite
Alors, j'ajoute quelque précisions capitales à ce que ucfoutu vient de te dire.
En gros tu dois:
- Ajouter une référence à Microsoft Word à ton projet
- Démarrer une instance de Word (via la méthode CreateObject)
- Utiliser le modèle objet de Word pour ouvrir ton fichier (et non pas utiliser l'instruction Open)
- Faire tes manipulations sur ton fichier (toujours avec le modèle objet Word)
- Enregistrer le fichier
- Fermer ton application word (très très important)
Pour que cela fonctionne sans interruption dans le code, Word doit rester en arrière plan (normalement il devrait l'être par défaut), et tu ne verras pas les opérations effectuées

Merci pour vos réponse,

Au fait j'utilise cette methode car la solution suivante la plus simple normalement n'a pas fonctionné:

Le macro fonctionne sous word mais pas sous excel.

Sous excel j'ai le message d'erreur:

La méthode 'Replacement' de l'objet 'Find' a échoué

Voici le code utilisé:

Code:

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
32
33
34
35
36
 
Dim wdApp As Word.Application, wdDoc As Word.Document
 
Public Sub macro1()
  Dim email as String
  set wdApp = New Word.Application
  wdApp.Visible = True
 
  Set wdDoc = wdApp.Documents.Open("C:\Mailingmaker.doc")
 
  email = Trim(Range("C3").Text)
 
  Call TakenDataExcelToWord("<E-mailAdres>", email)
 
End Sub
 
Sub TakenDataExcelToWord(toReplace, theValue)
 
    wdDoc.ActiveWindow.Selection.Find.ClearFormatting
    wdDoc.ActiveWindow.Selection.Find.Replacement.ClearFormatting
 
    With wdDoc.ActiveWindow.Selection.Find
        .Text = toReplace
        .Replacement.Text = theValue
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    wdDoc.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceAll
 
End SubJ'utilise excel 2007 et word 2007

J'utilise excel 2007 et word 2007

Merci d'avance de votre aide,

28/11/2008, 11h08
Godzestla

Bonjour,

simple commentaire peut-être pas du tout à propos, mais j'ose.

ce que tu essaie de faire ressemble assez bien à du publipostage, c'est à dire que tu veux mettre le contenu d'une variable à un endroit, ou plusieurs.

cela peut se faire via des signets sans utiliser replace.

Est-ce correct ?

Autrechose, j'ai généré un code de find & replace dans Word, pour tester le tien, c'est très similaire mais je ne comprends pas pourquoi tu précise Activewindow dans tes instructions. cela me parait inutile.
28/11/2008, 11h52
decondelite

C'est à quelle ligne exactement qu'il y a cet échec? Car j'en vois 2 qui sont susceptibles d'être sujettes à cette erreur, même s'il y en a une que je privilégie (histoire de bogues récurrents). ;)
28/11/2008, 12h11
faamugol

Merci vous tous pour vos efforts,

Godzestla,

peux-tu me donner plus d'info sur les signets, des leins ou je peux trouver des exemples. J'en ai entendu parler mais je ne sais pas comment ça fonctionne. Si ne fais pas Activewindow, comment je acceder au document, etant donné que je suis dans excel. Je n'ai pas pu trouver une solution ou methode

decondelite
l'erreur se trouve à la ligne suivante:

Code:

wdDoc.ActiveWindow.Selection.Find.Replacement.ClearFormatting

Sous excel j'ai le message d'erreur:

La méthode 'Replacement' de l'objet 'Find' a échoué

Merci d'avance de votre aide,
28/11/2008, 12h30
Godzestla

Citation:

Envoyé par faamugol

Merci vous tous pour vos efforts,

Godzestla,

peux-tu me donner plus d'info sur les signets, des leins ou je peux trouver des exemples. J'en ai entendu parler mais je ne sais pas comment ça fonctionne. Si ne fais pas Activewindow, comment je acceder au document, etant donné que je suis dans excel. Je n'ai pas pu trouver une solution ou methode

Pour moi activewindow est inutile car Wdoc est définit comme un object Word.

Pour un exemple de signet, je regarde, mais à la base tu dois définir ton signet dans le document word via insérer -> Signet .....
28/11/2008, 13h39
decondelite

Citation:

Envoyé par Godzestla

Pour moi activewindow est inutile car Wdoc est définit comme un object Word.

J'ai vérifié le chemin dans l'explorateur: ça n'a pas l'air d'être ça.

A mon avis, il se peut que ton objet Find ne soit pas de la forme voulue lorsque tu arrives à cette ligne.

Ainsi je te suggère de mettre un espion pour regarder le contenu de Find à la ligne qui bogue, et montre-nous un petit screen du contenu de l'espion stp. ;)
28/11/2008, 13h44
Godzestla

Citation de Decondelite

Citation:

J'ai vérifié le chemin dans l'explorateur: ça n'a pas l'air d'être ça.

Comment fais-tu cela ? J'en suis incapable , :aie:
Si tu peux m'expliquer... merci.
28/11/2008, 13h52
faamugol

Merci encore de vous consacrer à trouver une solution.

Citation:

je te suggère de mettre un espion pour regarder le contenu de Find à la ligne qui bogue

Tu veux dire de faire un MSGBOX du contenu..de find ou , je ne comprends pas trop .

Merci de m'aider,
28/11/2008, 14h28
decondelite

Chose très frappante: je n'ai trouvé sur le site aucun tuto complet sur le débogage en VB/VBA pour te répondre! 8O

=> A faire (qui se dévoue on verra)

Donc je t'explique.
Les espions, ce sont des indicateurs qui te permettent à tout moment d'un programme (et même sans aucun programme actif 8-) ) de:
-connaître la valeur d'une variable
-connaître le contenu d'un objet
-calculer une expression quelconque

Bref, en ce qui me concerne, les espions sont devenus un outil de débogage absolument indispensable. A un tel point que je ne me sers presque plus de la fenêtre "Variables locales" qui est selon moi très limitée en possibilités et surtout bourrée d'informations inutiles. Je m'en sers même pour aider beaucoup de monde sur ce forum sans taper une seule ligne de code. ;)

Pour ajouter un espion: ouvre la fenêtre des espions en faisant "Affichage"->"Fenêtre espions", et dedans clic droit->"Ajouter un espion".

Et maintenant, pour répondre à ma question, lorsque tu as cliqué sur le bouton "débogage" une fois que ton programme a planté, tu insère le texte "wdDoc.ActiveWindow.Selection.Find" comme nouvel espion, et tu observes dans la fenêtre ce que t'indique l'espion.

Si tu as un "+" à gauche, déroule l'espion et fais moi un screen du contenu qui risque d'être assez volumineux. S'il n'y est pas screen quand même. ;)

PS: je ne m'étends pas sur les possibilités des espions qui sont très larges, mais bon ça ça vient avec la pratique et une bonne maîtrise du concept de portée des variables.