WedgeAnt
Messages postés13Date d'inscriptionlundi 7 août 2006StatutMembreDernière intervention27 mai 2008
-
5 déc. 2006 à 11:26
chaudier37
Messages postés209Date d'inscriptionjeudi 5 août 2004StatutMembreDernière intervention15 juillet 2009
-
23 sept. 2008 à 22:52
Bonjour à tous
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
A voir également:
Génération automatique de document word avec excel et vba
WedgeAnt
Messages postés13Date d'inscriptionlundi 7 août 2006StatutMembreDernière intervention27 mai 2008 5 déc. 2006 à 13:37
Bon, de retour ;)
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