Sujet Précédent Sujet Suivant

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

Résolu/Fermé
Vidalitis Messages postés 65 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 27 juin 2015 - 29 sept. 2011 à 14:15
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 30 sept. 2011 à 11:53
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
29 sept. 2011 à 20:56
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 mercredi 30 avril 2008 Statut Membre Dernière intervention 27 juin 2015 23
30 sept. 2011 à 09:20
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 mercredi 30 avril 2008 Statut Membre Dernière intervention 27 juin 2015 23
30 sept. 2011 à 09:42
En fait non c'est bon ça marche super bien merci à toi j'ai gagné un temps précieux!
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
30 sept. 2011 à 11:53
De rien, au plaisir de te relire sur le Forum

Cordialement
Patrice

PS : passe le sujet en résolu.
0