Sujet Précédent Sujet Suivant

VBA, excel: donner un titre à un fichier word

Fermé
ludo - 6 mai 2008 à 15:38
mario90 Messages postés 29 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 18 septembre 2014 - 19 juin 2008 à 15:00
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 lundi 15 avril 2002 Statut Membre Dernière intervention 18 septembre 2014 7
19 juin 2008 à 15:00
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