VBA, excel: donner un titre à un fichier word Fermé

Question

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

mario90 · Answer

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	oto\Mes documents\Modele.doc"

	DocWord.ActiveDocument.SaveAs "C:\Documents and Settings	oto\Mes documents\" & Cells(ligne, 1) & ".doc"
                 DocWord.ActiveDocument.Close

	Ligne = Ligne + 1

  Wend



  

  Set DocWord = Nothing


End Sub

VBA, excel: donner un titre à un fichier word

1 réponse

Newsletters