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
Configuration: Windows 2000
Internet Explorer 6.0

1 réponse

  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