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.
Mais l'application word est bien demarrée, car le document est vide, alors qu'il contien du texte. Mais rien ne se passe.
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
Merci de votre aide
Partager