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