VBA, excel: donner un titre à un fichier word

ludo -  
mario90 Messages postés 31 Statut Membre -
Bonjour,
j'ai un fichier excel avec dans ma 1er colonne des titres.
je voudrais creer pour chaque cellule de cette colonne un fichier word ayant pour nom de fichier "le titre de la cellule".
est possible d'avoir de l'aide pour creer une macro capable de founir ce travail ? merci d'avance
A voir également:

1 réponse

Réponse 1 / 1
mario90 Messages postés 31 Statut Membre 7
 
Ce bout de code devrait pourvoir t'aider :

Sub Renommerfichier()

Dim DocWord As Object

Set DocWord = CreateObject("Word.Application")

'Supposons que tes titres commençent en A1

Ligne = 1

While Cells(Ligne, 1) <> ""


'Ouverture du modèle

DocWord.Documents.Open "C:\Documents and Settings\toto\Mes documents\Modele.doc"

DocWord.ActiveDocument.SaveAs "C:\Documents and Settings\toto\Mes documents\" & Cells(ligne, 1) & ".doc"
DocWord.ActiveDocument.Close

Ligne = Ligne + 1

Wend





Set DocWord = Nothing


End Sub
0