Discussion :

[ericdev67]

Bonjour,

En colonne A, j'ai une liste de nom (54 noms). Je souhaite créer un fichier Word par nom : il faudrait donc que le code boucle sur la colonne A (ça, c'est bon sais faire), et créer un fichier word. Ce fichier word devra contenir en titre le nom, en entête le nom, avoir un fond bleu, et être enregistré en page web (type HTM)....donc dans mon dossier, il y aura 54 fichiers HTM avec comme nom de fichier, le nom, et en entête du fichier word, le nom....

J'ai essayé avec l'assistant, mais....cela ne donne rien...

Une petite aide...?

Merci,

[LawNasK]

Bonjour,

Voici un code qui devrait (je ne peux pas le tester actuellement) créer tous tes fichier. Il faut intégrer tout ce que tu veux faire dans Word pendant que l'application est ouverte.

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
Sub BoucleWord()
    'ne pas oublier d'activer la référence Microsoft Word xx.x Object Library
 
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim boucle As Integer    
    Dim chemin As String
    Dim nomDoc As String
 
    chemin = ThisWorkbook.Path 'à modifier selon l'envie
 
    For boucle = 1 to 54
        nomDoc = ThisWorkbook.ActiveSheet.Range("A" & boucle)
 
 
        'Création instance Word
        Set WordApp = New Word.Application
 
        'Ouvre le document Word
        Set WordDoc = WordApp.Documents.Add
 
        'ici la coloration les entêtes les titres etc
 
        WordDoc.saveAs chemin & nomDoc & ".htm"
 
        WordDoc.Close
        WordApp.Quit
    Next
End Sub

[ericdev67]

Super merci LawNasK,

Ton code donne exactement le résultat recherché....cool, merci !!!!!

A+ pour de prochaines aventures....