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..)
Merci de votre aide...
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
Partager