VBA, excel: donner un titre à un fichier word

ludo -  
mario90 Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -
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 29 Date d'inscription   Statut Membre Dernière intervention   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