Création d'un fichier word via macro excel [Résolu]
WedgeAnt
- Messages postés
- 13
- Date d'inscription
- lundi 7 août 2006
- Statut
- Membre
- Dernière intervention
- 27 mai 2008
- Messages postés
- 209
- Date d'inscription
- jeudi 5 août 2004
- Statut
- Membre
- Dernière intervention
- 15 juillet 2009
A voir également:
- Création d'un fichier word via macro excel
- Ouverture d'un fichier word avec macro Excel ✓ - Forum - VB.NET
- Imprimer une liste de fichiers pdf et word via vba excel ✓ - Forum - Visual Basic 6
- Créer un fichier PDF via feuille Excel en VBA ✓ - Forum - VBA Office (Excel, Word ...)
- Ouvrir un fichier word par vba exel ✓ - Forum - Visual Basic 6
- Rechercher et Remplacer dans Word par Macro Excel ✓ - Forum - Visual Basic 6
10 réponses
Meilleure réponse
- Messages postés
- 2237
- Date d'inscription
- lundi 29 mai 2006
- Statut
- Membre
- Dernière intervention
- 29 mai 2008
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:
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:
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
222 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2237
- Date d'inscription
- lundi 29 mai 2006
- Statut
- Membre
- Dernière intervention
- 29 mai 2008
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:
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:
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
222 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2237
- Date d'inscription
- lundi 29 mai 2006
- Statut
- Membre
- Dernière intervention
- 29 mai 2008
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:
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:
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
222 internautes nous ont dit merci ce mois-ci
- Messages postés
- 13
- Date d'inscription
- lundi 7 août 2006
- Statut
- Membre
- Dernière intervention
- 27 mai 2008
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
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
- Messages postés
- 209
- Date d'inscription
- jeudi 5 août 2004
- Statut
- Membre
- Dernière intervention
- 15 juillet 2009