Discussion :

[tissou_vba]

Bonjour,

J'ai un pb qui me fait me poser qql questions..

J'ai sur un fichier excel une liste de contacts (avec nom, mails, etc...)

Je dois générer pour chaque ligne un fichier (suivant un modèle), et le stocker dans un dossier.

J'ai imaginé ouvrir le fichier, le modifier, l'enregistrer sous un nom précis dans le bon repertoire et passer à la ligne suivante.

Mais j'ai plusieurs questions :
Est-ce la bonne solution de tout gérer sous excel, sans faire de macro sous world ?
Comment faire un Find Replace (j'ai des pb d'arguments..)
Est ce que je peux switcher facilement entre world et Excel ?

voici mon code pour l'instant.. (un peu light..)

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
 
Sub OpenFiles()
 
    Dim pWdApp As Word.Application
    Dim pWdDoc As Word.Document
 
    'open file into MS Word
    Set pWdApp = CreateObject("Word.Application")
    Set pWdDoc = pWdApp.Documents.Open("C:\Documents and Settings\Administrator\My Documents\ModeleAssessment.doc")
    pWdApp.Visible = True
 
    Sheets("Fichier master").Select
 
    For rec = 1 To Range("A1").Rows.Count
        pWdDoc.Select
        Selection.Find.Execute
        Selection.Find.Execute Replace("Study_Code", True, Cells(rec, 3).Value)
    Next rec
 
End Sub

Merci de votre aide...

[jfontaine]

Est-ce la bonne solution de tout gérer sous excel, sans faire de macro sous world ?

Ce que tu veux faire et c'est dans le titre c'est du publipostage.
Pourquoi ne pas utiliser les outils de publipostage de word?

[tissou_vba]

En fait, le publipostage sous world ne me fait qu'un gros fichier, de plus j'ai un champ calculé.
Ce que j'aimerai moi c'est faire x fichier pr mes x lignes de mon fichier excel et je ne crois pas que ce soit possible.