Création d'un fichier word via macro excelRésolu

Question

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

drikce06 · Accepted Answer

Salut, c'est la même chose mais avec word :

ajoute la références microsoft word et :

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 & "" & Range("A1").Value)


WordDoc.Close
WordApp.Quit

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

WedgeAnt · Answer

Merci beaucoup, c'est tout ce qu'il me fallait !!! :)

WedgeAnt · Answer

Euh, juste un truc ... ajouter la référence à Word ... comment on fait ça ? ^^

drikce06 · Answer

Dans VBA
Outils > Références > et tu coches microsoft word library....

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

WedgeAnt · Answer

Thanx :)

WedgeAnt · Answer

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

WedgeAnt · Answer

Oups, le second Dim ne sert à rien ... il n'a pas d'utilité dans ce code ^^

drikce06 · Answer

Private Sub CommandButton1_Click()


Dim WordApp As Word.Application
Dim fichier_word As Word.Document



creer_feuille_word ("H:\ETUD03\TEST\Titre.doc")


End Sub


Sub creer_feuille_word(ByVal PathName As String)


Set WordApp = New Word.Application
WordApp.Visible = True


Set feuille_word = New Word.Document


feuille_word.SaveAs Filename:=PathName


feuille_word.Close
WordApp.Quit


End Sub

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

wacssine · Answer

Bonjour,

il y a une possibilité de le faire oar vb.net ??

merci.

chaudier37 · Answer

bonjour
j'ai tenté cette procédure sur excel 2007 ça ne marche pas.

Création d'un fichier word via macro excel

10 réponses

Votre réponse