Discussion :

[faamugol]

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 :

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
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

[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).

[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

[faamugol]

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 :

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
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,

[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.

[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).