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

Résolu
Vidalitis Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
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




A voir également:

2 réponses

Réponse 1 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
1
Réponse 2 / 2
Vidalitis Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   23
 
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.
0
Vidalitis Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   23
 
En fait non c'est bon ça marche super bien merci à toi j'ai gagné un temps précieux!
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
De rien, au plaisir de te relire sur le Forum

Cordialement
Patrice

PS : passe le sujet en résolu.
0