Création d'un fichier word via macro excel [Résolu]
WedgeAnt13
Messages postés lundi 7 août 2006Date d'inscription
27 mai 2008
Dernière intervention
-
5 déc. 2006 à 11:26 - Dernière réponse : chaudier37209
Messages postés jeudi 5 août 2004Date d'inscription
15 juillet 2009
Dernière intervention
- 23 sept. 2008 à 22:52
J'ai essayé de chercher un peu sur les forums, mais je n'ai pas trouvé de solution répondant à mon probleme ...
Je souhaiterais, via une macro excel, créer automatiquement un fichier word avec un nom défini par la valeur d'une cellule et un contenu correspondant au contenu d'autres cellules.
Je sais créer un nouveau document excel de cette manière en utilisant Dim X as WorkBook, mais je ne connais pas le type de variable à utiliser pour un fichier Word.
Je sais aussi que pour lancer Word on peut utiliser la commande Shell, mais ça ne m'avance pas à grand chose ...
Si quelqu'un a la solution miracle ... merci d'avance
Cette fois, je peux créer un fichier word, mais quand je lance la création d'un second fichier (avec un nom différent), j'obtiens une erreur :
Erreur d'exécution -2147023174 (800706ba)
Erreur Automation
Le serveur RPC n'est pas disponible
Par contre, si je laisse une fenêtre word ouverte pendant le traitement, ça fonctionne ...
Voici mon code (tout simple à priori)
Dim WordApp As Word.Application
Dim fichier_word As Word.Document
Sub creer_feuille_word(ByVal titre As String)
Set WordApp = New Word.Application
WordApp.Visible = True
WordApp.DisplayAlerts = False
Set feuille_word = Word.Documents.Add
nom_fichier = "H:\ETUD03\TEST" & titre & ".doc"
WordApp.DisplayAlerts = True
feuille_word.SaveAs FileName:=nom_fichier
feuille_word.Close
WordApp.Quit
End Sub
