Excel et création d'un doc word par une macro Résolu

Question

Bonjour, 
Je souhaite créer plusieurs document words portant le nom inscrit dans une plage de cellule, et ce via une macro.
G2 "Fiche 001"=>Fiche001.doc
G3"Fiche 002"=>Fiche 002.doc
etc etc
Pour le moment, j'ai réussi à trouver ça:

Sub word()

Dim WordApp As word.Application
Dim WordDoc As word.Document

Set WordApp = New word.Application
Set WordDoc = New word.Document
WordApp.Visible = True

Dim PathApp As String
PathApp = ThisWorkbook.Path
WordDoc.SaveAs (PathApp & "\fiches\" & Range("G6").Value)

WordDoc.Close
WordApp.Quit
End Sub

Sauf que mon but est de l'appliquer aux cellules G2 à G183.
Comment faire?
D'avance merci



Configuration: Ordinateur:
    Toshiba Quosmio X300
    Windows 7 Ultimate Edition
    Mozilla Firefox

Patrice33740 · Answer

Bonjour,

Essaie ce code :

Sub Word()
'Ajouter une référence à :
'Microsoft Word xx.0 Oject library

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Cel As Range
Dim PathApp As String

  PathApp = ThisWorkbook.Path
  Set WordApp = New Word.Application
  WordApp.Visible = True
  For Each Cel In ActiveSheet.Range("G2:G183").Cells
    Set WordDoc = WordApp.Documents.Add
    WordDoc.SaveAs (PathApp & "\fiches\" & Cel.Value)
    WordDoc.Close
    Set WordDoc = Nothing
  Next Cel

  WordApp.Quit
  Set WordApp = Nothing

End Sub

Penses à créer le répertoire fiches et à ajouter la référence à Microsoft Word xx.0 Oject library

Vidalitis · Answer

Bonjour, et merci de ta réponse
le code a l'air de fonctionner mais j'ai un bug au niveau de la ligne de sauvegarde du fichier:
Erreur 5152
Nom de fichier non valide 

Pourtant il s'agit bien du répertoire dans lequel je veux sauvegarder mes fiches, et il est bien existant. même en inscrivant le chemin absolu ça ne marche pas.

Excel et création d'un doc word par une macro

2 réponses

Newsletters